36

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

romik105 15 марта 2023

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

категория: информатика

65

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

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...