Показать сообщение отдельно
Старый 22.05.2014, 11:21   #5 (permalink)
k1d
Member
 
Регистрация: 16.05.2014
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от grelly Посмотреть сообщение
Exec (процедура) (модуль Dos)



Выполняет заданную программу с заданной командной строкой.
Объявление

Procedure Exec(Path, CmdLine : String);

Режим

Real, Protected
Замечания

Ошибки сообщаются в переменной DosError.


При возникновении аварийных ситуаций устанавливаются такие

коды ошибок:
2 - файл не найден;
8 - нет необходимой памяти;
10 - ошибка в оборудовании;
11 - ошибка в формате.

Пример

{$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.


проверь какая ошибка возвращается
постоянно выбивает ошибку 2..
k1d вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070