Buscar

Abrindo uma url

Código

{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;  

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Windows
Adicionada dia: 30/07/03
Por: Mario C. Neto
Visualizada: 2077 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009