Mega Code Archive

 

Categories / Delphi / LAN Web TCP

 

Get current url

Title: Get current url Use SetLink and RequestData methods of TDDEClientConv type. SetLink specifies the service and topic of a DDE conversation. RequestData requests data from a DDE server. procedure TForm1.Button1Click(Sender: TObject); var DDEClient: TDDEClientConv; Str: PChar; begin DDEClient:=TDDEClientConv.Create(nil); with DDEClient do begin SetLink('IExplore','WWW_GetWindowInfo'); Str:=RequestData('0xFFFFFFFF'); Caption:=StrPas(Str); StrDispose(Str); end; DDEClient.Free; end;