[Black_Ocean]

Hola estimados colegas de ClubDelphi,

Estoy complicado con una rutina que estoy haciendo y ya que no se que más hacer. Ojalá me puedan echar una manito

Lo que necesito es que, al ejecutar un proceso, este espere a que termine completamente su ejecución, esto es, incluyendo otros hilos que genere (en pocas palabras, que soporte multihilo). Esto se da en la mayoría de los casos cuando se ejecutan desinstaladores/instaladores de aplicaciones.

Esta rutina que he logrado hacer con ayudas sólo sirve para un proceso, pero si este genera un hilo y termina su ejecución devuelve inmediato el control, a pesar de no haber terminado el segundo proceso que generó

He buscado en los tips de ClubDelphi y en todos los foros y ninguno soporta multihilo .

Este es mi código:

Código Delphi [-]
Win32CreateProcess(const FileName, Parameters: String; var ExitCode: DWORD; const Wait: DWORD = 0; const Hide: Boolean = False): Boolean;
var
  myInfo: SHELLEXECUTEINFO;
  iWaitRes: DWORD;
begin
  ZeroMemory(@myInfo, SizeOf(SHELLEXECUTEINFO));
  myInfo.cbSize := SizeOf(SHELLEXECUTEINFO);
  myInfo.fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_NO_UI;
  myInfo.lpFile := PChar(FileName);
  myInfo.lpParameters := PChar(Parameters);
  if Hide then
    myInfo.nShow := SW_HIDE
  else
    myInfo.nShow := SW_SHOWNORMAL;
  ExitCode := 0;
  Result := ShellExecuteEx(@myInfo);
  if Result then
  begin
    while WaitForSingleObject(myInfo.hProcess, 100) = WAIT_TIMEOUT do
      Application.ProcessMessages;

    iWaitRes := WaitForSingleObject(myInfo.hProcess, 100);

    if (iWaitRes = WAIT_TIMEOUT) then
    begin
      Result := False;
      TerminateProcess(myInfo.hProcess, 0);
    end;
    GetExitCodeProcess(myInfo.hProcess, ExitCode);
    CloseHandle(myInfo.hProcess);
  end;
end;

Espero que me puedan ayudar amigos.

De antemano, Muchas gracias y cordiales saludos