terminar aplicacion

[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 !!!