Советы по Delphi




Как заблокировать ввод?


Andrew Pastushenko советует:

Вот недокументированная функция из User32.dll, которая блокирует ввод (мышь, клавиатуру кроме Ctrl+Alt+Del). При нажатии Ctrl+Alt+Del все разблокируется :-(

    procedure BlockInput; external 'user32.dll';

Передаем параметры в стек вручную через push, иначе что-то глючит:

1 - заблокировать
0 - разблокировать

    procedure Block;
asm
push 1 call BlockInput end;


procedure UnBlock;
asm
push 0 call BlockInput end;

[001798]




Содержание  Назад  Вперед