SPECIAL OFFER        Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!

⤷ 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;
More for developers
Databases for Amazon Associates
Amazon Categories
Amazon Nodes