Foros Club Delphi - ¿Cuando termina de ejecutarse un .exe?

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)

- - ¿Cuando termina de ejecutarse un .exe? (https://www.clubdelphi.com/foros/showthread.php?t=17416)

!3d1@n

07-01-2005 21:23:44

¿Cuando termina de ejecutarse un .exe?

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

07-01-2005 21:31:54

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

07-01-2005 22:04:36

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

07-01-2005 22:18:07

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

Un Saludo.

!3d1@n

10-01-2005 13:54:04

Grasias

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

!3d1@n

11-01-2005 19:19:40

Comentario (Importante)

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. :rolleyes: Me fuera mucho más útil aun.

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

Lepe	12-01-2005 12:39:49

En trucomania, el truco 285 es justo lo que buscas.

Saludos

!3d1@n

12-01-2005 16:43:57

No me sirvió el truco [285] del Trucomanía

Hola Lepe :

Probe el truco [285] del Trucomanía como me dices pero me da en esta linea el sgte error:

Código:

 wnd:=Handle; 

[Error] Unit1.pas(43): Undeclared identifier: 'Handle'

Al ponerlo como comentario:

Código:

//wnd:=Handle;

Se ejecuta sin problema solo que llego al la misma incognita de al principio del hilo (inicia un hilo y devuelve el control al programa).
Por favor si poder soluccionarmelo ...

De todas formas muchas gracias. :mad:

Lepe	13-01-2005 11:55:35

Handle es el identificador de ventana al que ha de informar, en este caso Form1.Handle.

En algunos casos, cuando lo llamo desde una unidad aparte, suelo llamarlo con el parámetro application.Handle

Yo tambien lo he usado para copias de seguridad de esta forma:

Código Delphi [-]  Err := RunAndWait(Application.Handle,
    GL.ExePathWithSlash + 'BDBackup.exe',
    '/auto restore ' );

  if Err > 32 then
  begin
    //    mensajeinsert(False, 2,'Base de datos restaurada con éxito, reinicie el programa');
    conectaalared
  end
  else
  begin
    Application.MessageBox(
      'Error interno del Sistema Operativo, Por favor, reinicie Windows',
      CONST_AVISO, MB_ICONINFORMATION + MB_OK);

    LogWrite('Código de error del sistema operativo en proc: dtm.RestoreBackup ' +
      IntToStr(Err));

Saludos

!3d1@n

14-01-2005 15:52:18

Hola Lepe :
Lo probaré, como me dices con el :

Código:

Wnd := Application.handle;

Por cierto ¿Cual es la etiqueta que usas para poner los codigos delphi en el foro ?

roman

14-01-2005 17:07:23

¡Vaya, vaya! ¡Qué bonito! Yendo a trucomanía cuando en casa tenemos la solución. :D

Al procedimiento original que te puse agrega las líneas:

Código Delphi [-]StartInfo.dwFlags := STARTF_USESHOWWINDOW;
StartInfo.wShowWindow := SW_MINIMIZE;

después de

StartInfo.cb := SizeOf(StartInfo);

Con esto la aplicación que ejecutes se iniciará minimizada.

// Saludos

!3d1@n

19-01-2005 15:46:54

!!! Ahora Sip.

Gracias Roman ..
Ahora si ... Todo marcha bien . Gracias una vez mas.

Lepe	21-01-2005 11:51:49

me he retrasado un poco... pero en fins:

[ delphi ]

codigo fuente aqui

[ /delphi ]

(sin los espacios dentro de los corchetes)

Saludos.

!3d1@n

24-01-2005 14:00:14

Código Delphi [-] for i := 1 to 10 do ShowMessage('Gracias');

La franja horaria es GMT +2. Ahora son las 23:50:03.