GetIntVec
Verze z 2. 10. 2012, 15:42, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (1 revízia: Uses DOS)
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.