Fórum Pegar URL dos navegadores #477631

Bom dia pessoal

Na net existem vários exemplos de como pegar os links ativos dos navegadores FireFox, IE, e Chrome, mas infelizmente na versão do Delphi XE4 que estou usando atualmente, isto não funciona.

Alguém tem códigos para compartilhar que permitam que as url´s sejam capturadas de todos estes navegadores citados acima.

Vejamos este código que não dá certo.

Declare na Uses a unit DDEMAN


function GetURL(Service: string): String;
var
ClDDE: TDDEClientConv;
temp:PChar;
begin
Result := '';
//create a new DDE Client object
ClDDE:= TDDEClientConv.Create( nil );
with ClDDE do
begin
SetLink(Service,'WWW_GetWindowInfo');
temp := RequestData('0xFFFFFFFF'); // Aqui dá o sequinte erro descrito abaixo
Result := StrPas(temp);
StrDispose(temp);
CloseLink;
end;
ClDDE.Free;
end;

Erro: E2010 Incompatible Types: PWideChar and PAnsiChar

Não me lembro de como resolver isto.

Resto do código para pegar a url.

Button1 OnClick
EditIExplore.Text:=GetURL('IExplore');
EditFirefox.Text:=GetURL('Firefox');

Essa função vai pegar a URL e o Titulo:

Então vc faz o seguinte pra pegar só a URL:
Button2 OnClick

Var Valor : String;

Valor:=GetURL('IExplore');
EditIExplore.Text:=copy(Valor,2,pos(',',Valor)-3);

Há um outro detalhe, o Chrome isto não dá certo segundo os vários fóruns que consultei.

Grato a todos mais uma vez pela imensa ajuda.

Valnei