Процедура SwapVectors

Модуль DOS

Переключает указатели SaveIntXX в модуле System на текущие вектора.

Объявление:

Procedure SwapVectors;

Режим:

Protected,  Real

Замечание:

Меняет содержимое указателей SaveIntXX в модуле System на текущее содержимое векторов прерываний. SwapVectors обычно вызывается перед и после обращения к Exec. Это гарантирует, что вызываемый процесс не будет использовать никаких подпрограмм обработки прерываний, установленных текущим процессом и наоборот.

Пример:

{Getenv.PAS}
 
{ Пример программы для функции GetEnv }
 
{$M 8192, 0, 0}
 
Uses Dos;
 
Var Command : String[79];
 
Begin
 Write('Введите команду DOS: ');
 ReadLn(Command);
 If Command <> '' Then Command:='/C '+Command;
 SwapVectors;
 Exec(GetEnv('COMSPEC'), Command);
 SwapVectors;
 If DosError <> 0 Then WriteLn('Ошибка при запуске COMMAND.COM');
End.