Buscar

Abrir um URL com o navegador padrão..

Código

Bom não vi nada relacionado e percebi que em algumas aplicações faltam este tipo de sistema.
 Então vou ensinar como fazer um link, você pode coloca-la em um label, button,image...e em outros componentes.
eu utilizo ela com um label.
 bom vamoa lá..
 insira no form um label.ou um button(fica por sua conta).

// dentro da PUBLIC isira este codigo.

 procedure JumpTo(const aAdress: String);  

//Agora abaixo do ultimo(END;) coloque..

procedure TForm1.JumpTo(const aAdress: String);  

var  

       buffer: String;  

begin  

       buffer := 'http://' + aAdress;  

       ShellExecute(Application.Handle, nil, PChar(buffer), nil, nil, SW_SHOWNORMAL);  

end;  

//e finalmente no botçao ou no label....coloque..
 
JumpTo('www.geocities.com/SiliconValley/Way/1497');  

//detalhe onde esta"www.geocities.com/SiliconValley/Way/1497" você coloca a url que quiser, mais não coloque o http:// s enão vai dar erro coloque a partir do www..
 ..
 Não deixe de visitar nosso site.
 'www.satellasoft.com'
showmessage('até a proxima pessoal..');
 

Publicidade

Vote na dica




Quantidade de votos: 1 voto
Aceitação: 20%


Detalhes da dica

Categoria: Forms
Adicionada dia: 25/12/10
Por: Gunnar Correa
Visualizada: 8211 vezes

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