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

tim2k09 tim2k09    3   19.05.2019 15:00    2

Ответы
BackspaceAlt BackspaceAlt  12.06.2020 18:58

Посмотри в 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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика