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;
