Fazer um link para uma página web em seu programa

Aviso importante!

Eu sei que você não quer ver propagandas, porém o conteúdo gratuito só está aqui graças a publicidade. Considere desativar o AdBlock para esse site.

Para aqueles que querem ter em seus programas feitos em delphi, um link que leve para uma página de internet, segue o exemplo.

Crie uma procedure como a seguir:

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

Feito isso é só chamar a procedure onde for mais conveniente para você, no evento OnClick de um botão por exemplo. Para tanto basta colocar o seguinte código:

AbreNavegador('www.rbtech.info');

Prontinho, quando for clicado no objeto referido, o navegador padrão do computador será aberto com o endereço solicitado.

Sobre o autor

Ricardo Bernardi

Sou técnico em hardware e desenvolvedor web, e sobre estes dois assuntos comecei a compartilhar aulas e artigos, tornando-me blogueiro em 2008. Em 2010 esse hobby virou profissão, e desde então tenho buscado melhorar e profissionalizar cada vez mais os projetos que mantenho na web.

Comentários

Nenhum comentário foi publicado para este post. Seja o primeiro a comentar...

Deixe seu comentário