Fórum Executar Programa Externo #361527

function Executa(Arquivo: String; Estado: Integer): Integer;
var
  Programa:array[0..512] of char;
  StartupInfo:TStartupInfo;
  ProcessInfo:TProcessInformation;
  Resultado:Cardinal;
begin
  StrPCopy(Programa,Arquivo);
  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,Resultado);
      Result := Resultado;
    end;
end;