Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.059 c
1-1121228081
dm37
2005-07-13 08:14
2005.07.31
передача процедуры с параметром как параметр


4-1117438560
Гость2
2005-05-30 11:36
2005.07.31
Как добавить иконку в заголовок окна?


6-1113987837
MegaVolt
2005-04-20 13:03
2005.07.31
Как исспользовать SendARP под Win 98?


1-1120974311
Tab
2005-07-10 09:45
2005.07.31
чтение unicode строк из ini файлов


14-1120219494
WondeRu
2005-07-01 16:04
2005.07.31
Дано: 2 видеокамеры... 1 объект...