Navegador

[Guest fdelphi]

Olá gostaria de pegar a url que está no meu Navegador ativo...

por exemplo se o site do bol está aberto, aí o programa vai lá e busca http://www.bol.com.br - como faço isso?

Valeu um abraço!!

[Progr'amador]

Olá

declare no uses :ddeman

e use essa function:

function GetURL(Service: string): String;

var

ClDDE: TDDEClientConv;

temp:PChar;

begin

Result := '';

ClDDE:= TDDEClientConv.Create( nil );

with ClDDE do

begin

SetLink(Service,'WWW_GetWindowInfo');

temp := RequestData('0xFFFFFFFF');

Result := StrPas(temp);

StrDispose(temp);

CloseLink;

end;

ClDDE.Free;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ShowMessage(GetURL('IExplore'));

end;

--------------------------------

Abs. Progr'amador.