Процедура Exec

Модуль DOS

Выполняет заданную программу с заданной командной строкой.

Объявление:

Procedure Exec(Path, CmdLine : String);

Режим:

Protected,  Real

Замечание:

Ошибки сообщаются в переменной DosError. При компилировании программы, которая использует вызов Exec, уменьшите максимальный размер кучи, иначе, возможно, что для запускаемой программы не хватит памяти (DosError = 8).

Пример:

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