Pegar o que esta no browser

Question

Ola pessoal eu estou com uma d�vida,� o seguinte eu estou querendo pegar o que esta digitado no browser. exemplo: www.teste.com.br,eu gostaria de pegar

Nildo · Answer

Esta dica foi pega do Dicas e Truques Delphi

uses 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�); 
      Result := StrPas(temp); 
      StrDispose(temp); 
      CloseLink; 
   end; 
   ClDDE.Free; 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
   ShowMessage(GetURL(�IExplore�)); 
end;