1 578
editací
Změny
Skočit na navigaci
Skočit na vyhledávání
Založena nová stránka: 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ý ;…
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.
[[Category:DOS]]
[[Category:WinDos]]
[[Category:Procedúry DOS]]
[[Category:Procedury podpory 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.
[[Category:DOS]]
[[Category:WinDos]]
[[Category:Procedúry DOS]]
[[Category:Procedury podpory přerušení]]
