¿Cuando termina de ejecutarse un .exe?

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

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

!3d1@n · #2 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.

[Lepe] · #3 12-01-2005

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

Saludos

!3d1@n · #4 12-01-2005

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.

[Lepe] · #5 13-01-2005

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 · #6 14-01-2005

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 · #7 14-01-2005

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

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