Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.03;
Скачать: CL | DM;

Вниз

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



Страницы: 1 вся ветка

Текущий архив: 2003.07.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-7524
Mishenka
2003-06-21 23:35
2003.07.03
Как в Memo отменить автоматическую перемотку?


3-7321
vantage10
2003-06-06 13:58
2003.07.03
SQL запрос, бд-MS Access, по времени


14-7598
Домарощинер
2003-06-17 14:02
2003.07.03
HASPVVD Error


14-7600
Weare
2003-06-17 16:18
2003.07.03
Работа с почтовой программой


8-7561
Stan
2003-01-30 18:23
2003.07.03
Возникает ошибка