¿Cuando termina de ejecutarse un .exe?

!3d1@n · #1 07-01-2005

Hola ..
Estoy haciendo una aplicación en delphi6 en la cual tiene una opción que es la salva y restaura de la base de datos. Esta misma antes de salvarla la comparto con el Arj mediante este codigo.

Código:

WinExec(PChar(Camino+#0),SW_SHOWMINNOACTIVE);
donde Camino := 'C:\Control\ARJ.exe e -y A:\SBDCont.ARJ C:\Control';)

Pero he aca mi pregunta : ¿ Cómo saber cuando termina de ejecutarse el mismo ?

Muy Agredecido ...

marcoszorrilla · #2 07-01-2005

Pues que yo sepa con WinExec, no hay manera de saber cuando termina, porque según he experimentado inicia un hilo y devuelve el control al programa, con lo cual podemos pensar que ha terminado pero sigue en el hilo iniciado hasta que termina.

Un truco sucio, pero que resulta, sería crear un fichero bat, con las instrucciones pertinentes, pero la primera sería crear un fichero temporal, la segunda hacer la copia de seguridad y la tercer eliminar el fichero temporal y así nosotros desde Delphi esperaríamos hasta que el fichero temporal se eliminara.

Puede quedar algo como esto.

Código:

dir *.txt >espera
C:\Control\ARJ.exe e -y A:\SBDCont.ARJ C:\Control
del espera

Entonces desde WinExec llamaríamos a este Bat y no directamente a ARj.

Un Saludo.

roman · #3 07-01-2005

Este procedimiento ejecuta la aplicación que le indiques y no regresa el control a tu aplicación sino hasta que la otra termine:

Código Delphi [-]procedure ExecuteProcessAndWait(ProcessName: String);
var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;

begin
  FillChar(StartInfo, SizeOf(StartInfo), 0);
  StartInfo.cb := SizeOf(StartInfo);

  if CreateProcess(PChar(ProcessName), nil, nil, nil, false, 0, nil, nil, StartInfo, ProcInfo) then
    WaitForSingleObject(ProcInfo.hProcess, INFINITE);
end;

// Saludos

marcoszorrilla · #4 07-01-2005

Estaba buscando esa función pero veo que ya ha dado la respuesta Román.

Un Saludo.

!3d1@n · #5 10-01-2005

Muchas grasias a ambos, despues de probralas les comentos ...

!3d1@n · #6 11-01-2005

Hola a todas las personas de este foro

Les cuento que probe el procedimiento de Roman y me ha sido muy útil, solo que no se si se podría agregar a el procedimiento, que la aplicación se ejecutase minimizada.

Me fuera mucho más útil aun.

Mil grasias a todos de antemano, y en especial a Roman.