Запуск программы на выполнение из другой программы.

[ViNcHeStEr]

Как запустить EXE файл другой программы из своей программы?
=====
Пример:
делаем прогу на Паскале.
EXE файл другой проги лежит в папке с вашей прогой (сделанной на Паскале), например test.exe.
Пользователю предоставляется выбор 1 или 0. Если 0, то конец программы. Если 1, то запускается test.exe.
=====
Как это реализовать?

[_Dmitry]

Процедура Exec в модуле Dos
+ F1

[ViNcHeStEr]

У меня в справке нет ничего про эту процедуру...
Какой синтаксис у процедуры Exec?

[_Dmitry]

Exec('программа.exe','параметры');
Не может быть, чтобы ее небыло в справке.
У вас TurboPascal или Delphi?

[ViNcHeStEr]

Спасибо, у меня Borland Pascal.
Я написал вот так а прога test.exe не запускается...

program Exeshnik;
uses crt,dos;
var
a:integer;
begin
readln;
exec('test.exe','');
readln;
end.

[_Dmitry]

Добавьте путь к файлу в формате DOS (имена папок не длиннее 8 символов и никаких русских букв). Сохраняйте и восстанавливайте вектор прерываний до запуска программы и после завершения. Если и после этого работать не будет, попробуйте уменьшить размер памяти для основной программы (первая строка).

{$M 4000,0,0}
program Exeshnik;
uses crt,dos;
var
  a:integer;
begin
  readln;
  SwapVectors;
  exec('c:\temp\test.exe','');
  SwapVectors;
  readln;
end.

[ViNcHeStEr]

Спасибо большое! Всё работает!