Ver Mensaje Individual
  #2  
Antiguo 26-09-2005
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Suponiendo que en "Label1.Caption" está la URL que mencionas podrías hacer algo así:

Código Delphi [-]
 uses
   ShellApi;
 
 procedure TForm1.Label1Click(Sender: TObject);
 begin
   ShellExecute(Self.Handle, 'open',
     PChar(label1.Caption), nil, nil, 0);
 end;
Para ejecutar el "NotePad" la cosa es similar, salvo que en lugar de la URL habrías de utilizar la ruta del programa: creo que con el nombre del ejecutable valdría, esto es:

Código Delphi [-]
   ShellExecute(Self.Handle, 'open',
     PChar('notepad.exe'), nil, nil, 0);
De todos modos echa un vistazo a las posibilidades de "ShellExecute" en la ayuda del SDK de Win32 (que está disponible en el menú de ayuda de Delphi).
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita