Chamar um programa e esperar a finalização

Para executar um programa e esperar até esse programa finalizar, use a rotina abaixo:

• Acrescente na cláusula  uses  as units:  uses System,Windows,SysUtils;

function Executa (Arquivo : String; Estado : Integer) : Integer;
var

  Programa : array [0..512] of char;

  CurDir : array [0..255] of char;

  WorkDir : String;

  StartupInfo : TStartupInfo;

  ProcessInfo : TProcessInformation;

begin

  StrPCopy (Programa, Arquivo);

  GetDir (0, WorkDir);

  StrPCopy (CurDir, WorkDir);

  FillChar (StartupInfo, Sizeof (StartupInfo), #0);

  StartupInfo.cb := sizeof (StartupInfo);

  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;

  StartupInfo.wShowWindow := Estado;

  if not CreateProcess (nil, Programa, nil, nil, false, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then

    Result := -1

  else

  begin

    WaitForSingleObject (ProcessInfo.hProcess, Infinite);

    GetExitCodeProcess (ProcessInfo.hProcess, Result);

  end;

end;



Estado é o tipo de janela que aparecerá, que pode ser:
 

• SW_SHOWNORMAL(Janela em modo normal)
• SW_MAXIMIZE (Janela maximizada)
• SW_MINIMIZE (Janela minimizada )
• SW_HIDE (Janela Escondida)