Fórum Capturar ERRO GBAK com CreateProcess #51150

{ **** Executa um processo **** }
function ExecProcess(FileName, Params: String; WindowState: Word; ProcessName: String = ´´; Wait: Boolean = True): Boolean;
var SI: TStartupInfo;
    PI: TProcessInformation;
    CmdLine: String;
    Status: Cardinal;
begin
  CmdLine:= FileName + ´ ´ + Params;
  FillChar(SI, SizeOf(SI), #0);
  with SI do
    begin
      cb:= SizeOf(SI);
      dwFillAttribute:= FOREGROUND_RED;
      if ProcessName <> ´´ then lpTitle:= PChar(ProcessName);
      wShowWindow:= WindowState;
      dwFlags:= STARTF_USESHOWWINDOW + STARTF_USEFILLATTRIBUTE;
    end;
  Result:= CreateProcess( nil, PChar(CmdLine), nil, nil, False,
                          CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
                          PChar(ExtractFilePath(FileName)), SI, PI
                         );
  if Result then
    begin
      if Wait then
        WaitForSingleObject(PI.hProcess, INFINITE);

      {***********************************************}
      {alteração para capturar o codigo retornado pelo processo}
      {***********************************************}
      GetExitCodeProcess(PI.hProcess, status);
      Result := Status = 0;
      {***********************************************}

      CloseHandle(PI.hProcess);
      CloseHandle(PI.hThread);
    end;
end;


procedure TForm1.BitBtn1Click(Sender: TObject);
const
  gbak = ´c:\arquivos de programas\firebird\bin\gbak.exe´;
var
  gParams: String;
  Sucessfull: boolean;
begin

  gParams:= ´-b -v -y ´  + ´"´ + edt_LogFile.Text + ´"´ +  ´ ´ +
            ´-user ´     + edt_usuario.Text + ´ ´ +
            ´-password ´ + edt_senha.Text   + ´ ´ +
            ´"´ + edt_DatabaseFile.Text  + ´"´ + ´ ´ +
            ´"´ + edt_BackupFile.Text    + ´"´;
  { **** }

  if fileexists(edt_backupfile.Text) then
     DeleteFile(edt_backupfile.Text);

  if fileexists(edt_logfile.Text) then
     DeleteFile(edt_logfile.Text);

  SucessFull := ExecProcess(gbak, gParams, SW_HIDE,´Back-Up´);
  memobackuplog.Lines.LoadFromFile(edt_logfile.text);

  if Sucessfull then
     ShowMessage(´Backup completado com SUCESSO.´)
  else ShowMessage(´Backup completado com ERROS.´)

  { **** }
end;

      GetExitCodeProcess(PI.hProcess, status);
      Result := Status = 0;