Ver Mensaje Individual
  #3  
Antiguo 24-02-2004
__cadetill __cadetill is offline
Miembro
 
Registrado: may 2003
Posts: 3.387
Reputación: 25
__cadetill Va por buen camino
Usando ShellExecute...

Código:
procedure TForm1.Label1Click(Sender: TObject);
begin
  ShellExecute(AboutBox.Handle,
               nil,
               PChar(TLabel(Sender).Caption),
               '',
               '',
               SW_SHOWNORMAL);
end;
PD: para que luego no digan que me lo dejo... añade ShellApi en el uses
Responder Con Cita