Turbo Pascal Documentation

Процедура SwapVectors

Модуль Dos

     Функция: Меняет местами внутренние векторы.
     Описание: SwapVectors
     Примечания: Меняет местами содержимое указателей  Save-
IntXX в модуле System и текущее содержимое векторов прерыва-
ний. Процедура SwapVectors обычно вызывается непосредственно
перед  и  непосредственно  после  вызова Exec. Таким образом
обеспечивается, что выполняемый по вызову  Exec  процесс  не
использует  никаких  обработчиков  претываний, установленных
текущим процессом и наоборот.
     Прочее: См. также процедуру Еxec.
     Пример:

        {M 8192,0,0}
        uses Dos;
        var
          Command: string[79];
        begin
          Write('Введите команду ДОС:');
          Readln(Command);
          if Command <> '' then
             Command := '/C' + Command;
          Swapvectors;
          Exec(GetEnv('COMSPEC'), Command);
          SvapVectors;
          if DosError <> 0 then
           Writeln('Командный файл COMMAND.COM выполнить нельзя');
         end.