Низкоуровневый хук на клавиатуру [D7, WinXP]
_Seldon_ © (2005-06-03 05:18:00)
Хочу поставить сабж. Делаю так:
library Hook;
uses
Windows, Messages, SysUtils;
const
WH_KEYBOARD_LL=13;
var
HookID:HHOOK;
function
Keyb(Code:Integer;wParam:Word;lParam:Longint):Longint stdcall;
begin
beep;
end;
procedure DLLEntryPoint(dwReason:Integer);
begin
case dwReason of
DLL_PROCESS_ATTACH:HookID:=SetWindowsHookEx(WH_KEYBOARD_LL,@Keyb,hInstance,0);
DLL_PROCESS_DETACH:UnhookWindowsHookEx(HookID);
end;
end;
begin
DLLProc:=@DLLEntryPoint;
DllEntryPoint(DLL_PROCESS_ATTACH);
end.
Но хук не страбатывает. Зато если заменить WH_KEYBOARD_LL на
WH_KEYBOARD - то при каждом нажатии хук весело бибикает. В чём
проблема?
Digitman (2005-06-03 08:12:00) [1]
а зачем ДЛЛ-то понадобилась ?
WH_KEYBOARD_LL расчудесно работает и безо всяких ДЛЛ ..
Наверх 
ЧАТ |
Орешник |
|
