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

Вниз

Низкоуровневый хук на клавиатуру   Найти похожие ветки 

← →
_Seldon_   (2005-06-03 05:18) [0]

Хочу поставить сабж. Делаю так:

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) [1]

а зачем ДЛЛ-то понадобилась ?
WH_KEYBOARD_LL расчудесно работает и безо всяких ДЛЛ ..

---

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

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

Наверх

Память: 0.46 MB
Время: 0.05 c