Capturar URL do Navegador

Delphi

04/03/2009

Pessoal, estou usando a rotina abaixo para capturar a URL dos Navegadores.
Com o IExporer, Firefox e Opera deu certo, mas com o Netscape e Chrome não
deu.
Por que será?
Alguma coisa no setlnk ou no requestdata que devo mudar?

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;


Bressa

Bressa

Curtidas 0
POSTAR