HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
23 ноября. В 1922 году (95 лет назад) - Писатель А.С. ГРИН завершает в Петербурге написание фантастической феерии "Алые паруса", посвятив ее своей жене Нине Грин.
 
 

Turbo Pascal Documentation

Функция Swap


     Функция: Переставляет местами старший и  младший  байты
аргумента.
     Описание: Swap(x)
     Тип результата: Совпадает с типом параметра.
     Примечания: Параметр x - выражение целого типа или слово.
     Прочее: См. также функции Hi, Lo.
     Пример:

      var
        x : word;
      begin
        x := Swap(1234);  { 3412 }
      end.

Процедура 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.




HOME