. . .
        strPackPath := 'gbak -b -g -v ' + StrFrom + ' ' + StrTo + ' -user SYSDBA -password masterkey';
        pac := PChar('/C ' + strPackPath);
        HINST := ShellExecute(0,'open','cmd.exe',pac, 'C:\Windows\system32\',SW_SHOW);   
        case HINST of
        . . .

//  strPackPath := 'gbak -b -g -v ' + StrFrom + ' ' + StrTo + ' -user SYSDBA -password masterkey';
//  fName:= PChar('/C ' + strPackPath);   // /C закрывать окно CMD после окончания процесса
                                                            // /K по окончании процесса окно не закрывать 

procedure TArchBaseCopy.ExecDosApp(fName: PChar);
var ShExecInfo  : TShellExecuteInfo;
    ExitCode    : DWORD;
begin
  FillChar(ShExecInfo, SizeOf(TShellExecuteInfo), 0);
  ShExecInfo.cbSize := sizeof(TShellExecuteInfo);
  ShExecInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
  ShExecInfo.Wnd := Handle;
  ShExecInfo.lpVerb := 'open';
  ShExecInfo.lpFile := 'cmd.exe';
  ShExecInfo.lpDirectory := 'C:\Windows\system32\';
  ShExecInfo.lpParameters := fName;
  ShExecInfo.nShow := SW_SHOW;
  if ShellExecuteEx(@ShExecInfo) and (ShExecInfo.hProcess <> 0) then
    repeat
    Application.ProcessMessages;
    GetExitCodeProcess(ShExecInfo.hProcess, ExitCode);
    until (ExitCode <> STILL_ACTIVE) or Application.Terminated
  else begin
    case ShExecInfo.hInstApp of
      0                      : SendEventBox(ET_RELEASE, 'Операционная успешна.');
      SE_ERR_FNF             : SendEventBox(ET_CRITICAL, 'Файл не найден');
      SE_ERR_PNF             : SendEventBox(ET_CRITICAL, 'Путь не найден');
      SE_ERR_ACCESSDENIED    : SendEventBox(ET_CRITICAL, 'Доступ к файлу запрещен');
      SE_ERR_OOM             : SendEventBox(ET_CRITICAL, 'He хватает памяти');
      SE_ERR_DLLNOTFOUND     : SendEventBox(ET_CRITICAL, 'He хватает памяти');
      SE_ERR_SHARE           : SendEventBox(ET_CRITICAL, 'Файл захвачен другим пользователем');
      SE_ERR_ASSOCINCOMPLETE : SendEventBox(ET_CRITICAL, 'Не полная информация о связанном с файлом приложении');
      SE_ERR_DDETIMEOUT      : SendEventBox(ET_CRITICAL, 'Истекло время на выполнение операции DDE');
      SE_ERR_DDEFAIL         : SendEventBox(ET_CRITICAL, 'Ошибочная операция DDE');
      SE_ERR_DDEBUSY         : SendEventBox(ET_CRITICAL, 'Операция DDE занята');
      SE_ERR_NOASSOC         : SendEventBox(ET_CRITICAL, 'Нет приложения, связанного с файлом');
      else SendEventBox(ET_RELEASE, 'Код ошибки не инициализирован: ' + IntToStr(ShExecInfo.hInstApp));
    end;
  end;
  CloseHandle(ShExecInfo.hProcess);
end;