从当前的浏览器取得当前URL

确定在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;