Ejecutar un .exe
 

Me gustaría hacer que al presionar un botón se ejecutase un programa de mi ordenador, es decir, un ejecutable (*.exe) del que se su ruta exacta. ¿Es posible? ¿cual es el código?

Muchas gracias.

Busca WinExec o ShellExecute en los foros.

// Saludos

gracias, saludos

Vale ya se hacerlo:

WinExec(PChar('notepad.exe'),SW_SHOWNORMAL);

Pero como sabe donde está el programa? acaso lo busca? no entiendo como lo hace...

Hola,

Windows tratará de localizar el programa en el directorio activo, en el del propio Windows, en "System" ó "System32", entre otros...

Pero, generalmente, indicamos la ruta completa del programa a ejecutar.

Y para ejecutar IE? no se donde está su ejecutable, no quiero poner una página en concreto sino la que tenga el usuario como "home"

:cool: Prueba con esto:

Código Delphi [-]
ShellExecute(0,nil,'about:home',nil,nil,SW_SHOW);

Acuerdate de agregar ShellApi a las uses

También en el registro se guardan las rutas de las aplicaciones, específicamente bajo la clave: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths

Por ejemplo Internet Explorer tiene un alias específico bajo esta clave, por lo cual si hace un WinExec(PChar('IEXPLORE.EXE'), SW_SHOWNORMAL); te debería abrir sin problemas el IE con su página Home...


Saludos...

Una opción:

Código Delphi [-]
ShellExecute(0, 'open', 'iexplore.exe', nil, nil, SW_SHOW);

Otra opción (la aprendí hoy del compañero cHackAll )

Código Delphi [-]
var
  IE: OleVariant;

begin
  IE := ComObj.CreateOleObject('InternetExplorer.Application');
  IE.GoHome;
  IE.Visible := true;
end;

// Saludos

Bueeeeno, ¿se puede saber por qué pasan "horas" y nadie contesta y cuando lo hago se me adelantan?

:p :D

// Saludos

Bueno, en algún momento te tenía que pasar lo que nos ha pasado a otros con respecto a ti... :D :p

Está bueno, vale para tí. :D

seoane, ¿tú que justificación das? :D :D

// Saludos

Pero no se quejara, ya le dimos 4 maneras de hacerlo. Y si me apuras le saco alguna mas :p :D

Fue a hablar el que siempre me pisa las respuestas :D

Muchas gracias a todos, me va de lujo ;-) esto tiene bastante utilidad. :D

Y lo prometido es deuda, hay va otra forma de hacerlo :p

Esta función devuelve la ruta del navegador predeterminado:

Código Delphi [-]
uses Registry;

function Navegador: string;
var
  Cliente: String;
begin
  Result:= '';
  with TRegistry.Create do
  try
    RootKey:= HKEY_LOCAL_MACHINE;
    Cliente:= '';
    if OpenKey('\SOFTWARE\Clients\StartMenuInternet' ,FALSE) then
    begin
      Cliente:= ReadString('');
      CloseKey;
    end;
    if OpenKey('\SOFTWARE\Clients\StartMenuInternet\' + Cliente + '\shell\open\command' ,FALSE) then
    begin
      Result:= ReadString('');
      CloseKey;
    end;
  finally
    Free;
  end;
end;

Yo voto por esta última. Es la que más respeta la desición del usuario.

// Saludos

seoane,

el segundo if, ¿no vendría mejor anidarlo en el primero?

// Saludos

Por poder se puede ...

Código Delphi [-]
uses Registry;

function Navegador: string;
var
  Cliente: String;
begin
  Result:= '';
  with TRegistry.Create do
  try
    RootKey:= HKEY_LOCAL_MACHINE;
    if OpenKey('\SOFTWARE\Clients\StartMenuInternet' ,FALSE) then
    begin
      Cliente:= ReadString('');
      CloseKey;
      if OpenKey('\SOFTWARE\Clients\StartMenuInternet\' + Cliente + '\shell\open\command' ,FALSE) then
      begin
        Result:= ReadString('');
        CloseKey;
      end;
    end;    
  finally
    Free;
  end;
end;

¿mejor? :p

Yo "nomás" decía. Porque si el primer condicional falla, como que el segundo ya venía sobrando :p

// Saludos

aprovechando...ejecutar archivo msi
 

hola buenas tardes, alguien de ustedes podria decirme como hacer q se ejecute un archivo .msi en el evento onclick;es q extoy haciendo un instalador y no logro hacer q se ejecute :S, ya utilice WinExec, pero creo q solo es con los .exe; gracias de antemano

¿Has probado ShellExecute?

// Saludos

Muy util esta informacion
 

Pero que pasaria si ademas cuando cierre mi aplicacion, quiero saber si el programa que abri desde mi aplicacion al presionar el boton esta aun ejecutandose y si es asi cerrarlo ;

Este hilo se refiere a la ejecucion de un programa al presionar un boton;

Yo quiero saber si al cerrar mi aplicacion el programa que ejecute al presionar el boton aun esta activo y si es asi cerrarlo junto a mi aplicacion

espero sea clara la pregunta

gracias por su ayuda

Te puede valer la función ShellExecuteEx la cual recibe como parámetro un puntero hacia una estructura de tipo SHELLEXECUTEINFO, si buscas en la ayuda encontrarás información sobre todos sus miembros, donde le puedes indicar el archivo sobre el que vas a trabajar, la acción a realizar ("open", por ejemplo), etc.

Dos miembros de esta estructura que te interesarán son fMask y hProcess. Si al primero le asignas el valor SEE_MASK_NOCLOSEPROCESS, dejará el proceso ejecutándose y el miembro hProcess recibira el "handle" del proceso.

Luego podrás preguntar por el estado del proceso...

PS: "Handle" nunca lo he traducido. ¿Cuál se les ocurre la forma más correcta de hacerlo?

Hola a todos, espero no llegar muy tarde :p

Código Delphi [-]
 WinExec('msiexec /i c:\windows\system32\sasetup.msi', SW_SHOW);

Código Delphi [-]
 
...
 
implementation
 
{$R *.dfm}
 
var
 si: TStartupInfo = (cb: SizeOf(TStartupInfo));
 pi: TProcessInformation;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 CreateProcess(nil, 'notepad', nil, nil, False, 0, nil, nil, si, pi);
end;
 
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 CanClose := WaitForSingleObject(pi.hProcess, 0) = WAIT_OBJECT_0;
 if not CanClose then
  MessageBox(0, 'No puedes cerrar la aplicacion hasta que cierres el Bloc de notas', nil, 0);
end;
 
end.

Saludos.

Con ShellExecuteEx sería así:

Código Delphi [-]
    
    SHELLEXECUTEINFO informacion;
    ZeroMemory(&informacion, sizeof(SHELLEXECUTEINFO));
    informacion.cbSize = sizeof(SHELLEXECUTEINFO);
    informacion.fMask = SEE_MASK_NOCLOSEPROCESS;
    informacion.lpVerb = "open";                           
    informacion.lpFile = "calc.exe";
    informacion.nShow = SW_SHOWMAXIMIZED;
    ShellExecuteEx(&informacion);

Y después, preguntar con WaitForSingleObject como el código de cHackAll...