Функция DosExitCode()

Возвращает код завершения процесса.

Объявление:

Function DosExitCode : Word;

Режим:

Windows,  Protected,  Real

Замечание:

Младший байт - код завершения процесса. Старший байт устанавливается следующим образом: Тип завершения Старший байт Нормальное 0 Ctrl-C 1 Ошибка устройства 2 Keep процедура 3

Пример:

{DOSXCODE.PAS}
 
  { Пример программы для DosExitCode и Exec }
 
  {$M $4000, 0, 0 }   { 16Kб стек, нет кучи } 
  Uses Dos;
 
  Var ProgramName, CmdLine : String;
 Begin
  Write('Имя программы для запуска (с путем) : ');
  ReadLn(ProgramName);
  Write('Параметры командной строки ', ProgramName, ' : ');
  ReadLn(CmdLine);
  WriteLn('Пробую запустить...');
  SwapVectors;
  Exec(ProgramName, CmdLine);
  SwapVectors;
  WriteLn('... вернулся из Exec');
  { Была ошибка ? }
  If DosError<>0 Then WriteLn('Ошибка DOS #', DosError)
  Else WriteLn('Запуск был удачным. Код выхода = ', DosExitCode);
 End.