HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail |
|
|
Turbo Pascal Documentation | ||
Функция: Меняет местами внутренние векторы. Описание: 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. |
HOME |