Блокировка клавы с помошью хука

← →
neodiX © (2003-04-17 17:17) [0]

Все блокируеться, кроме ALT+TAB, WIN key (left or right) ну и так же ALT+ESC. Дело в том, что вроде вот так (см. ниже)должно блокировать, покрайней мере так в инете написано, но нифига, в чем проблема?
{Маппинг файла и все остальное реализовано как всегда } function KBD_HookProc(nCode: Integer; iWPARAM: wParam; iLPARAM: lParam): LResult; stdcall; far; var ReturnStructure: PMSG; begin if ncode<0 then CallNextHookEx(0, nCode, iwParam, ilParam) else result:=1; end; procedure UnLockMouse; begin UnHookWindowsHookEx(rHookRec^.HookID_Mouse); end; procedure LockKBD; begin rHookRec^.HookID_KBD := SetWindowsHookEx(WH_KEYBOARD, @KBD_HookProc, hInstance, 0); end; procedure UnLockKBD; begin UnHookWindowsHookEx(rHookRec^.HookID_KBD); end;

← →
Song © (2003-04-17 19:42) [1]

Нужен низкоуровневый хук - WH_KEYBOARD_LL

← →
neodiX © (2003-04-17 23:05) [2]

Song, это то, что надо! Только наверно надо какой то модуль в uses прописать, что бы компилятор понял WH_KEYBOARD_LL, а то ругается, не распознает :(

← →
ИгорьОк (2003-04-18 04:40) [3]

А обязательно так извращаться? Можно ведь просто использовать BlockInput, блокирует всё и полностью (даже мышь) на NT помогает только Reset, в смысле если не программно, а так.

JwaWinUser
из библиотеки JEDI Windows API Library

2 ИгорьОк
Мне надо не все сразу, а по отдельности блокиворать. Сначала мышь, потом маус.
Все вопрос закрыт, я уже узнал.

Блокировка клавы с помошью хука Найти похожие ветки