terminar aplicacion

[nosferatu177]

hola buenas tardes, de nuevo por aqui solicitando apoyo :o; 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 :D, 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:o algo asi como poder tener el control de ese proceso):



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 :confused:, 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;


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 :D!!!:)