uses
  DDEMan;

procedure TForm1.Button1Click(Sender: T);
var
  DDE:TDDEClientConv;
begin
  DDE:=TDDEClientConv.Create(self);
  if DDE.SetLink("IExplore","WWW_GetWindowInfo") then
  Memo1.Lines.Add(DDE.RequestData("0xFFFFFFFF,sURL,sTitle"));
  DDE.Free;
end;