quarta-feira, 12 de janeiro de 2011

Abrir automaticamente seu navegador padrão e carregar a pagina determinada pelo link

1º Declare o procedure na seção PUBLIC da unit. 
   procedure JumpTo(const aAdress: String); 

2º Coloque a cláusula ShellAPI na uses no início da unit. 

procedure TForm1.JumpTo(const aAdress: String); 
var 
       buffer: String; 
begin 
       buffer := 'http://' + aAdress; 
       ShellExecute(Application.Handle, nil, PChar(buffer), nil, nil, SW_SHOWNORMAL); 
end; 

procedure TForm1.Label1Click(Sender: TObject); 
begin 
         JumpTo('www.geocities.com/SiliconValley/Way/1497'); 
end; 

Um comentário: