Давным давно, в одной далекой-далекой галактике.

[filimonovdmtry]

Вот наконец руки дошли до отключения Ctrl+Break/Ctrl+C в DOSовых PASCAL-программах. Давно хотел попробовать.

И вот что у меня получилось:

Uses DOS;

Procedure NoBreak; Interrupt; Begin End;

Var A : String[10];
Begin
SetIntVec ($23, @NoBreak);
SetIntVec ($1b, @NoBreak);

While True Do
begin
Write ('Строка ввода (для окончания ввода нажмите "."): ');
ReadLn (A);
If A = '.' Then Break;
End;
End.

Код учебный, и судя по всему ни куда больше не пойдет, ибо в DOS я сижу под DOSbox, а там эти кнопки отключены намертво (иногда очень их не хватает).

А вообще жаль что DOS умер. Отличная была система.