delphi - tierra - ¿Cómo puedo esperar hasta que se complete un proceso externo?

procesos geologicos internos

Question

Así que hice un formulario en Delphi que me permite ejecutar varios scripts sikuli con varias configuraciones. Lo que estoy trabajando ahora es hacer posible que alguien use el formulario, para configurar varios scripts de sikuli para que se ejecuten uno tras otro. Como en:

Paso 1: SikuliScript1 con ConfigFile1. Paso 2: SikuliScript2 con ConfigFile2. etc ... Este es mi código hasta ahora:

procedure TSikRunForm.btnRunClick(Sender: TObject);
begin
    DirCombo:= ''/C ''+DirSik+''/sikuli-script.cmd'' +'' -r '' + DirScript + '' --args ''+DirConfig;
    if SikFound then begin
      ShellExecute(Handle, nil, ''cmd.exe'', pChar(DirCombo), nil, SW_SHOWNORMAL);
      Application.minimize;
    end else begin
      ShowMessage(''Select the correct folder for your Sikuli installation folder'');
    end;
end;

Y esto funciona perfecto, la secuencia de comandos de sikuli se ejecuta perfectamente, y mientras se ejecuta, la línea de cmd es visible con las diversas acciones que se muestran que se están realizando. Después de que la secuencia de comandos de sikuli está lista, la línea de cmd se cierra por sí misma. Entonces, el manejador de shell sabe cuándo cerrar el proceso en ejecución. Entonces mi pregunta es: ¿es posible decir delphi: después de que el controlador haya cerrado el proceso, ejecute el siguiente proceso (Sikuli Script)? Ahora sé que puedo ir con todo el createProcess en Delphi, pero parece excesivo. Tiene que haber una forma de hacerlo más rápido y más fácil. Alguien tiene una pista?

Answer 1

Con CreateProcess puede obtener un identificador de proceso y con WaitForSingleObject puede verificar cuándo se completa el proceso. Utilizo la siguiente función, esto ejecuta el comando en segundo plano:

procedure ExecuteAndWait(const aCommando: string);
var
  tmpStartupInfo: TStartupInfo;
  tmpProcessInformation: TProcessInformation;
  tmpProgram: String;
begin
  tmpProgram := trim(aCommando);
  FillChar(tmpStartupInfo, SizeOf(tmpStartupInfo), 0);
  with tmpStartupInfo do
  begin
    cb := SizeOf(TStartupInfo);
    wShowWindow := SW_HIDE;
  end;

  if CreateProcess(nil, pchar(tmpProgram), nil, nil, true, CREATE_NO_WINDOW,
    nil, nil, tmpStartupInfo, tmpProcessInformation) then
  begin
    // loop every 10 ms
    while WaitForSingleObject(tmpProcessInformation.hProcess, 10) > 0 do
    begin
      Application.ProcessMessages;
    end;
    CloseHandle(tmpProcessInformation.hProcess);
    CloseHandle(tmpProcessInformation.hThread);
  end
  else
  begin
    RaiseLastOSError;
  end;
end;

Answer 2

Debe esperar hasta que se indique el identificador del proceso. Por ejemplo, mediante una llamada a WaitForSingleObject. Obviamente, CreateProcess le devuelve un identificador de proceso en el que puede esperar. No puede convencer a ShellExecute de que devuelva un identificador de proceso, pero su hermano más capaz, ShellExecuteEx, lo hará.

Sin embargo, yo personalmente elegiría CreateProcess aquí. Obtendrá más flexibilidad y control, y no es tan complejo. Por ejemplo, puede suprimir la visualización de la ventana de la consola si lo desea.

Answer 3

Este es un truco y es menos sofisticado, pero tal vez podrías generar un archivo * .bat que contenga las llamadas a los guiones, si es necesario usando "iniciar / esperar" en cada línea.

Answer 4

Ok, he investigado más sobre esto y lo he resuelto, tal como sugirió David. Mostraré lo que hice, si alguien más tiene alguna pregunta o algo:

procedure TSikRunForm.btnRunClick(Sender: TObject);
begin
CmdLine:=  ''C://windows//system32//cmd.exe'';
uniqueString(CmdLine);
if SikFound then begin
  //----------For loop---------------
  DirScript:= TScriptEdit.Text;
  DirConfig:= TConfEdit.Text;
  DirCombo:= ''/C ''+DirSik+''/sikuli-script.cmd'' +'' -r '' + DirScript + '' --args ''+DirConfig;
  CreateProcess(PChar(CmdLine),PChar(DirCombo),Nil,Nil,False,CREATE_NO_WINDOW,nil,nil,StartInfo,ProcInfo);
  procHandle:= ProcInfo.hProcess;
  Application.minimize;
  WaitForSingleObject(procHandle, INFINITE);

  DirScript:= TScriptEdit2.Text;
  DirConfig:= TConfEdit2.Text;
  DirCombo:= ''/C ''+DirSik+''/sikuli-script.cmd'' +'' -r '' + DirScript + '' --args ''+DirConfig;
  CreateProcess(PChar(CmdLine),PChar(DirCombo),Nil,Nil,False,CREATE_NO_WINDOW,nil,nil,StartInfo,ProcInfo);
  procHandle:= ProcInfo.hProcess;
  Application.minimize;
  WaitForSingleObject(procHandle, INFINITE);
  //----------------------------------------
  showMessage(''Gedoan'');
end else begin
  ShowMessage(''Select the correct folder for your Sikuli installation folder'');
end;
end;

Funciona exactamente como yo quería. Los 2 scripts de sikuli se ejecutarán uno tras otro.