计算机二级辅导:从当前的浏览器取得当前URL计算机等级考试

文章作者 100test 发表时间 2009:07:16 18:33:22
来源 100Test.Com百考试题网

　　编辑特别推荐:

　　全国计算机等级考试（等考）指定教材

　　全国计算机等级考试学习视频

　　全国计算机等级考试网上辅导招生

　　全国计算机等级考试时间及科目预告

　　百考试题教育全国计算机等级考试在线测试平台

　　全国计算机等级考试资料下载

　　全国计算机等级考试论坛

　　确定在uses子句中增加DDEMan。
　　uses windows, ddeman, ......
　　function Get_URL(Servicio: string): String.
　　var
　　Cliente_DDE: TDDEClientConv.
　　temp:PChar. <.<.----------------/\">.file://<.<.----------------这是新的
　　begin
　　Result := \.
　　Cliente_DDE:= TDDEClientConv.Create( nil ).
　　with Cliente_DDE do
　　begin
　　SetLink( Servicio,\WWW_GetWindowInfo\).
　　temp := RequestData(\0xFFFFFFFF\).
　　Result := StrPas(temp).
　　StrDispose(temp). file://避免内存漏洞
　　CloseLink.
　　end.
　　Cliente_DDE.Free.
　　end.
　　procedure TForm1.Button1Click(Sender).
　　begin
　　showmessage(Get_URL(\Netscape\)).
　　or
　　showmessage(Get_URL(\IExplore\)).
　　end.