GetCBreak

Z Delphi & Pascal (česká wiki)
Verze z 2. 10. 2012, 15:20, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (Založena nová stránka: Zjistí stav kontrolování stisku Ctrl+Break v DOSu. ;Režim :Windows, Reálný, Chráněný ;Deklarace procedure GetCBreak(var Break: Boolean); ;Poznámky :[[GetCB…)
(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í

Zjistí stav kontrolování stisku Ctrl+Break v DOSu.

Režim
Windows, Reálný, Chráněný
Deklarace
procedure GetCBreak(var Break: Boolean);
Poznámky
GetCBreak nastaví hodnotu Break v závislosti na stavu kontrolování stisku Ctrl+Break v DOSu. Když je vypnuto (False), DOS testuje Ctrl+Break pouze během vstupu a výstupu na konzoli, tiskárnu nebo komunikační zařízení. Když je zapnuto (True), testy se provádějí při každém volání systému.


Viz také
SetCBreak


Vzorový příklad

{ GetCBrk.PAS }
{ Vzorový příklad pro GetCBreak a SetCBreak. }
{ Pro Windows: }
{ uses WinDos, WinCrt; }
uses Dos;
 const
   OffOn : array [Boolean] of String[3] = ('vypnuto','zapnuto');
 var
   cb : Boolean;
 begin
   GetCBreak(cb);
   WriteLn('Kontrola Control-Break : ', OffOn[cb]);
   cb := not(cb);
   WriteLn('Změna stavu kontroly Control-Break do : ', OffOn[cb]);
   SetCBreak(cb);
 end.