Правила форума
DosExitCode (функция) (модуль DOS)Язык:
Русский
English
DosExitCode (функция) (модуль DOS)
Возвращает код завершения процесса.
Объявление
Function DosExitCode : Word;
Режим
Real, Protected
Замечания
Младший байт - код завершения процесса.
Старший байт устанавливается следующим образом:
Тип завершения Старший байт
Нормальное 0
Ctrl-C 1
Ошибка устройства 2
Keep процедура 3
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для 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.
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.
::
::
::
