ejecutar programa exterior y detectar finalización de éste

[petete2008]

Hola a todos,
Quisiera saber si es posible lo siguiente.
Quiero lanzar una aplicación externa desde un programa en delphi y cuando ésta aplicación externa finalice que también lo haga la aplicación que la lanzó ( o sea la hecha en delphi ).

Gracias

[[escafandra]]

Mira a ver si esto te sirve para empezar.

Saludos.

[JAV]

Supe hacer algo así con dos funciones:

WinExec: Para ejecutar la aplicación externa.
FindWindow: Para verificar si el formulario principal de la aplicación sigue activo.

Código Delphi [-]
procedure EjecutarYEsperar;
var
  HandleApli: HWND;
begin
  WinExec(PChar('C:\Temp\pepe.exe'), SW_SHOWNORMAL);
  HandleApli := 1;
  while HandleApli <> 0 do 
    begin
      HandleApli := FindWindow(Nil, PChar('pepe'));
      Applicacion.ProcessMessages;
    end;
  // Al salir del ciclo significa que la pantalla principal de la aplicación ya no está activa.
  ...
  // Cerrar aplicación llamadora.
  ...
end;

[[cHackAll]]

Use ShellExecuteEx o CreateProcess.

Saludos

[roman]

De hecho es lo que ya cita escafandra. En el enlace mencionado viene la función WinExecAndWait32 que utiliza WaitForSingleObject. Faltará ver si petete se decide a examinar el código o no.

// Saludos

[petete2008]

Si, muchas gracias a todo.
Por motivos de faena no he podido todavia ver el código pero en tal que me despeje un poco le hecho un vistazo.
Muchas gracias a todos!!