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

Delphi , ОС и Железо , Клавиши

Вот недокументированная функция из 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;

Статья Как заблокировать ввод раздела ОС и Железо Клавиши может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: 2012-01-15 18:57:19 :: re:Как заблокировать ввод

пользователь: Dennis.

Ничерта не работает. Клава и мышь, как работали, так и продолжают, при старте приложение не выдаёт никаких ошибок.
По коду - ощущение такое, что чего-то там нет...
"external 'user32.dll'" - как-бы ни о чём.

:: 2012-05-10 17:49:50 :: re:Как заблокировать ввод

пользователь: kan.

Это для старых виндов

:: Главная :: Клавиши ::