getcbrk.pas

 {GetCBrk.PAS}
 
 { Пример программы для процедур GetCBreak и SetCBreak }
 
 Uses WinDos;
 
 Const OffOn : Array [Boolean] Of String[4] = ('выкл','вкл');
 
 Var  Cb : Boolean;
 
 Begin
  GetCBreak(Cb);
  WriteLn('Проверка на Ctrl-Break : ', OffOn[Cb]);
  Cb:=Not(Cb);
  WriteLn('Переключение проверки на : ', OffOn[Cb]);
  SetCBreak(Cb);
 End.