Buscar por:

Executando um programa e aguardando sua finalização

Código

//Inclua na seção uses: Windows 

function ExecAndWait(const FileName, Params: string; 

  const WindowState: Word): boolean; 

var 

  SUInfo: TStartupInfo; 

  ProcInfo: TProcessInformation; 

  CmdLine: string; 

begin 

  { Coloca o nome do arquivo entre aspas. Isto é necessário devido aos espaços contidos em nomes longos } 

  CmdLine := '"' + Filename + '"' + Params; 

  FillChar(SUInfo, SizeOf(SUInfo), #0); 

  with SUInfo do begin 

  cb := SizeOf(SUInfo); 

  dwFlags := STARTF_USESHOWWINDOW; 

  wShowWindow := WindowState; 

  end; 

  Result := CreateProcess(nil, PChar(CmdLine), nil, nil, false, 

  CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, 

  PChar(ExtractFilePath(Filename)), SUInfo, ProcInfo); 

  { Aguarda até ser finalizado } 

  if Result then begin 

  WaitForSingleObject(ProcInfo.hProcess, INFINITE); 

  { Libera os Handles } 

  CloseHandle(ProcInfo.hProcess); 

  CloseHandle(ProcInfo.hThread); 

  end; 

end; //- Exemplo de uso:

ExecAndWait('c:windowsnotepad.exe', '', SW_SHOW);

{Não se esqueça de informar o caminho (path) do arquivo completo. Esta função foi desenvolvida para Delphi 32 bits (2, 3, 4,...). }