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