procedure TForm1.Button1Click(Sender: TObject);
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;
function GetIETitle(HWnd: THandle): string;//HWnd: IE的Handle
var
Title: string;
begin
SetLength(Title,100);
GetWindowText(HWnd,PChar(Title),100);
Result:= Title;
FreeMem(Title,0);
end;
