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

Ответы 1

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

    • Автор:

      tyrell
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years