Código
procedure Tform1.URLLabelClick(Sender: TObject);
var
TempString : array[0..79] of char;
begin
StrPCopy(TempString,URLLabel.Caption);
OpenObject(TempString);
end; //Insira a seguinte procedure logo após implementation:
procedure TTOKAboutBox.OpenObject(sObjectPath : PChar);
begin
ShellExecute(0, Nil, sObjectPath, Nil, Nil, SW_NORMAL);
end; //Adicione "ShellAPI" no uses.
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009