terminar aplicacion

[nosferatu177]

hola buenas tardes, de nuevo por aqui solicitando apoyo ; estoy realizando un instalador, el problema es q necesito mandar ejecutar un .exe(q yo tambien realicé) y q al terminar este continue con el instalador; solo q el terminar el archivo.exe tambien termina el instalador y ya no continua con la siguente ventana. estuve buscando una opción y encontre este codigo http://www.latiumsoftware.com/es/delphi/00003.php para esperar a q termine una aplicación; solo q sigue terminando mi programa al terminar de ejecutarse el archivo.exe q mando llamar ; la pregunta es ¿habrá otra forma en la cual mi aplicacion(el instalador) no termine al momento en q tambien termine de ejecutar el archivo.exe?

espero se entienda el problema y alguien pueda orientarme

gracias

[[cHackAll]]

Dejame entender, realizaste un instalador, éste instalador corre a un archivo.exe, cuando finaliza por si mismo o cuando TU lo finalizas pues tambien el instalador finaliza, estoy bien?
Ahora el instalador lo configuraste (Ej. InstallShield)? o lo creaste? cuando digo creaste es una aplicacion que tu mismo codificaste, en el que de una forma u otra creas archivos, entradas de registro, etc... y además ejecutas al archivo.exe

Por lo que escribiste me parece que si. Siendo ESE el caso, por que no nos muestras la parte del código donde corres la otra aplicacion (archivo.exe) pues no encuentro el motivo con esos datos!

saludos

[nosferatu177]

hola cHackAll , en este caso estoy desarrollando un instalador, asi mismo desarrolle tambien los archivos.exe q mando ejecutar; este es parte del codigo q utilice e implemente de acuerdo al codigo q encontre en la liga antes mencionada(sigo en el entendido q este me ayuda a mandar ejecutar un .exe y cuando termine de ejecutarse pueda continuar con el instalador algo asi como poder tener el control de ese proceso):

Código Delphi [-]

    if creabd.Checked=true then
    begin
//***se crea el proceso para esperar a q se termine de ejecutar esta aplicación***//
      FillChar(proc_info, sizeof(TProcessInformation), 0);
      FillChar(startinfo, sizeof(TStartupInfo), 0);
      startinfo.cb := sizeof(TStartupInfo);
      if CreateProcess(nil, PChar(FInstalacion.dircd.Text+'\mysql_odbc\CreaBase.exe '+base+' root sqlpr65'), nil, nil, false, CREATE_DEFAULT_ERROR_MODE + NORMAL_PRIORITY_CLASS, nil, nil, startinfo, proc_info) then
        Timer1.Enabled := True
      else
      begin
        CloseHandle(proc_info.hProcess);
        Application.MessageBox('No se pudo ejecutar la aplicación', 'Error', MB_ICONEXCLAMATION);
      end;
    end;
//ejecutar crear sistema
    FileAttrs := FileAttrs + faArchive;                                         //q busque creasistema.exe
    if not FindFirst(FInstalacion.dircd.Text+'\instalar\CreaSistema.exe', FileAttrs, sr) = 0 then
    begin
      Application.MessageBox('No se encontro la aplicación','Error', MB_ICONEXCLAMATION);
      FindClose(sr);
    end
    else
    begin
//***se crea el proceso para esperar a q se termine de ejecutar esta aplicación***//
      FillChar(proc_info, sizeof(TProcessInformation), 0);
      FillChar(startinfo, sizeof(TStartupInfo), 0);
      startinfo.cb := sizeof(TStartupInfo);
      if CreateProcess(nil, PChar(FInstalacion.dircd.Text+'\instalar\CreaSistema.exe'), nil, nil, false, CREATE_DEFAULT_ERROR_MODE + NORMAL_PRIORITY_CLASS, nil, nil, startinfo, proc_info) then
        Timer1.Enabled := True
      else
      begin
        CloseHandle(proc_info.hProcess);
        Application.MessageBox('No se pudo ejecutar la aplicación', 'Error', MB_ICONEXCLAMATION);
      end;

[nosferatu177]

como puedes ver cHackAll, los archivos.exe tambien yo los realice, el problema es q al llegar a esa parte me los envia al mismo tiempo , espero se entienda y puedan orientarme, gracias

[[cHackAll]]

Me agrada que hagas tu propio instalador... el problema es sencillo, lo solucionas con una linea. te dejo tu mismo codigo, me tome la libertad de modificarlo un poquito pues habian algunas cosillas innecesarias desde mi punto de vista. En todo caso si no te funciona por algun motivo el nombre de la API que te interesa es WaitForSingleObject;

Código Delphi [-]
    FillChar(startinfo, sizeof(TStartupInfo), 0);
    startinfo.cb := sizeof(TStartupInfo);
    if creabd.Checked then
      if CreateProcess(nil, PChar(FInstalacion.dircd.Text+'\mysql_odbc\CreaBase.exe '+base+' root sqlpr65'), nil, nil, false, CREATE_DEFAULT_ERROR_MODE + NORMAL_PRIORITY_CLASS, nil, nil, startinfo, proc_info) then
      begin
        WaitForSingleObject(proc_info.hProcess, INFINITE);
        Timer1.Enabled := True
      end
      else
        Application.MessageBox('No se pudo ejecutar la base de datos', 'Error', MB_ICONEXCLAMATION);
    if not FileExists(FInstalacion.dircd.Text+'\instalar\CreaSistema.exe') then
      Application.MessageBox('No se encontro el sistema de instalacion','Error', MB_ICONEXCLAMATION)
    else
      if CreateProcess(nil, PChar(FInstalacion.dircd.Text+'\instalar\CreaSistema.exe'), nil, nil, false, CREATE_DEFAULT_ERROR_MODE + NORMAL_PRIORITY_CLASS, nil, nil, startinfo, proc_info) then
        Timer1.Enabled := True
      else
        Application.MessageBox('No se pudo ejecutar el sistema instalador', 'Error', MB_ICONEXCLAMATION);

PD: No se para que usas el TTimer, pero espero no afecte.

Saludos!

[nosferatu177]

gracias cHackAll, si funciono !!!