Как в pascal ABC одной программой запустить другую?

Как в pascal ABC одной программой запустить другую?
Гость
Ответ(ы) на вопрос:
Гость
Посмотри в Help'е функцию Exec. У  меня Turbo Pascal поэтому пример оттуда   Program StartApl;  {$M $4000, 0, 0 } { 16Kб стек, нет кучи } uses Crt, Dos; var ProgramName, CmdLine : String; begin     ClrScr;       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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы