dosxcode.pas

  {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.