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;