مرکز تخصصی دلفی

uses
  DDEMan;

// Koosha System Software WWW.Delphi-Center.Blogfa.com

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;
//Copyright 2005 koosha system software WWW.DELPHI-CENTER.BLOGFA.COM