Get current url

Posted in Internet

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;