IPB

> DOSXCODE.PAS
Чат
Форум
Загрузка...
 

Язык:
Русский
English


 { Пример программы для DosExitCode и Exec }

{$M $4000, 0, 0 }   { 16Kб стек, нет кучи }
uses Dos;

var
  ProgramName, CmdLine : String;
begin
 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.
 
 К началу страницы 
Тэги:
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 



-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"