发信人: leezy (【HIT】穆子), 信区: BorlandDev
标  题: 从当前的浏览器取得当前URL
发信站: 哈工大紫丁香 (2002年01月19日15:49:46 星期六), 站内信件

摘　要：我如何从浏览器得到默认的URL给程序，象Mirabilis&nbs
关键字：URL BROWSER
类　别：网络


中文开发在线原创作品，未经允许，严禁任何形式的转载
    确定在uses子句中增加DDEMan。
uses windows, ddeman, ......
function Get_URL(Servicio: string): String;
var
   Cliente_DDE: TDDEClientConv;
   temp:PChar; //<<----------------这是新的
begin
    Result := '';
    Cliente_DDE:= TDDEClientConv.Create( nil );
     with Cliente_DDE do
        begin
           SetLink( Servicio,'WWW_GetWindowInfo');
           temp := RequestData('0xFFFFFFFF');
           Result := StrPas(temp);
           StrDispose(temp); //避免内存漏洞
           CloseLink;
        end;
      Cliente_DDE.Free;
end;
procedure TForm1.Button1Click(Sender);
begin
   showmessage(Get_URL('Netscape'));
      or
   showmessage(Get_URL('IExplore'));
end;


--
°★．☆° ．★·°∴°★．°·∴°☆ ·°∴° ☆．．·°∴°．☆°★°∴°

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.230.122]