Правила форума
GetCBrk.PASЯзык:
Русский
English
uses Dos;
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.
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.
::
::
::
