Ver Mensaje Individual
  #1  
Antiguo 04-04-2006
crievep crievep is offline
Miembro
 
Registrado: feb 2006
Ubicación: Bucaramanga, Colombia
Posts: 21
Reputación: 0
crievep Va por buen camino
Question uso de WaitForSingleObject para hacer un instalador

Hola:
Estoy haciendo un instalador que debe ejecutar otros .EXEs, lo hago de la siguiente forma pero no espera hasta terminar la instalacion del primer exe, estos ejecutables son instaladores, y deseo que despues de presionar el boton: 'Terminar' continue la instalacion del otro, pero en realidad no se detiene:

Código Delphi [-]
// primer exe
 
    ruta := Pchar(ExtractFileDir(Application.ExeName) + '\Instaladores\Primer.exe');
    ExecInfo.cbSize := SizeOf(ExecInfo);
    ExecInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
    ExecInfo.Wnd := 0;
    ExecInfo.lpVerb := 'open';
    ExecInfo.lpFile := ruta;
    ExecInfo.lpParameters := nil;
    ExecInfo.lpDirectory := nil;
    ExecInfo.nShow := SW_NORMAL;
    ShellExecuteEx(@ExecInfo);
    WaitForSingleObject(ExecInfo.hProcess, INFINITE); 
   
// segundo.exe

    ruta := Pchar(ExtractFileDir(Application.ExeName) + '\Instaladores\Segundo.exe');
    ExecInfo.cbSize := SizeOf(ExecInfo);
    ExecInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
    ExecInfo.Wnd := 0;
    ExecInfo.lpVerb := 'open';
    ExecInfo.lpFile := ruta;
    ExecInfo.lpParameters := nil;
    ExecInfo.lpDirectory := nil;
    ExecInfo.nShow := SW_NORMAL;
    ShellExecuteEx(@ExecInfo);
    WaitForSingleObject(ExecInfo.hProcess, INFINITE);

De antemano gracias por la posible ayuda y correciones necesarias para solucionar esto

Última edición por dec fecha: 04-04-2006 a las 21:32:17.
Responder Con Cita