Предмет: Информатика,
автор: Ternyfolls
как в pascal ABC одной программой запустить другую?
Ответы
Автор ответа:
0
Посмотри в 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.
Похожие вопросы
Предмет: Русский язык,
автор: kenganik
Предмет: История,
автор: nikitapetrov5112
Предмет: Английский язык,
автор: aifonairpodsageee
Предмет: География,
автор: gke
Предмет: Литература,
автор: Аноним