从当前的浏览器取得当前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;