PKBDLLHOOKSTRUCT ?

← →
Dmitriy M. Volkov (2003-06-22 22:49) [0]

Нашёл вот такую вещь. Проблема в том, что не понятно, что такое "PKBDLLHOOKSTRUCT" - Undeclared Identifier. Подскажите, плз. Кстати, low level keyboard hook чем-то отличается от обычного? Т.е. в MSDN пишут про такой WH_KEYBOARD_LL, а что он из себя представляет?

function GlobalKeyBoardHook (nCode:Integer; awParam:Word; alParam:LPARAM):LRESULT; stdcall; var bControlKeyDown:boolean; pkbhs:PKBDLLHOOKSTRUCT; begin if nCode=HC_ACTION then begin pkbhs:=PKBDLLHOOKSTRUCT(alParam); // Check to see if the CTRL key is pressed bControlKeyDown:=(GetAsyncKeyState (VK_CONTROL) and $8000)<>0; Result:=1; // Disable WINDOWS Key if (pkbhs^.vkCode in [VK_LWIN, VK_RWIN]) then exit; // Disable CTRL+ESC if (pkbhs^.vkCode = VK_ESCAPE) and bControlKeyDown then exit; // Disable ALT+TAB if (pkbhs^.vkCode = VK_TAB) and ((pkbhs^.flags and LLKHF_ALTDOWN)<>0) then exit; // Disable ALT+ESC if (pkbhs^.vkCode = VK_ESCAPE) and ((pkbhs^.flags and LLKHF_ALTDOWN)<>0) then exit; // Disable CTRL+ALT+DEL ?? Does not work if (pkbhs^.vkCode = VK_DELETE) and ((pkbhs^.flags and LLKHF_ALTDOWN)<>0) and bControlKeyDown then exit; end; Result:=CallNextHookEx (CurrentHook, nCode, awParam, alParam); end;

← →
Вася Пупкин © (2003-06-22 22:56) [1]

The KBDLLHOOKSTRUCT structure contains information about a low-level keyboard input event.

typedef struct tagKBDLLHOOKSTRUCT {
DWORD vkCode;
DWORD scanCode;
DWORD flags;
DWORD time;
ULONG_PTR dwExtraInfo;
} KBDLLHOOKSTRUCT, *PKBDLLHOOKSTRUCT;

Подробнее - см. MSDN

← →
Dmitriy M. Volkov (2003-06-22 23:31) [2]

Хорошо, но почему в Delphi эта структура не известна? Тот код, что я приводил выше не работает из-за того, что Дельфи не известно что такое "PKBDLLHOOKSTRUCT". Помогите, плз.

← →
Palladin © (2003-06-23 00:08) [3]

а где ты взял этот код?

← →
Dmitriy M. Volkov (2003-06-23 05:30) [4]

Вот тут нашёл http://www.codeguru.com/vb/links/comments/552.shtml Это судя по всему переделка кода, который выложен на MSDN

PKBDLLHOOKSTRUCT ? Найти похожие ветки