Fórum Capturar URL do Navegador #368808
04/03/2009
0
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;
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)