[Mitiay]

Ругается на temp:= RequestData('0xFFFFFFFF');

Код:

var
  Form1: TForm1;
  temp,url:widestring;
implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
DdeClientConv1.SetLink('Firefox','WWW_Getwindowinfo');
Temp:= DdeClientConv1.RequestData('0xFFFFFFFF');
delete(Temp,1,pos('"',temp));
   url:=copy(temp,1,pos('"',temp)-1);
   showmessage(url);
end;

Вот рабочий код!Но как сравнивать url если он открыт то...