GetIntVec

Z Delphi & Pascal (česká wiki)
Verze z 2. 10. 2012, 15:42, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (1 revízia: Uses DOS)
(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)
Skočit na navigaci Skočit na vyhledávání

Vrací adresu uloženou v určeném vektoru přerušení.

Deklarace
procedure GetIntVec(IntNo: Byte; var Vector: Pointer);
Režim
Windows, Reálný, Chráněný
Poznámky
IntNo udává číslo vektoru přerušení (0..255). Adresa se vrátí v proměnné Vector.
Viz také
SetIntVec


Vzorový příklad

{ GetIntVc.PAS }
{ Vzorový příklad pro procedury GetIntVec a SetIntVec. }
{$C FIXED PRELOAD PERMANENT}
{ Pro Windows: }
{ uses WinDos, WinCrt; }
uses Dos, Crt;
 var
   Int1CSave : Pointer;
 {$F+,S-,W-}
 procedure TimerHandler; interrupt;
   begin
     { Ovladač časového přerušení }
     {*** Pozor na specifika DPMI ***}
   end;
 {$F-,S+}
 begin
   GetIntVec($1C,Int1CSave);
   SetIntVec($1C,Addr(TimerHandler));
   writeln('Stiskněte libovolnou klavesu...');
   repeat until Keypressed;
   SetIntVec($01C,Int1CSave);
 end.