Главная страница
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.025 c
4-1117809540
nixon1
2005-06-03 18:39
2005.07.31
Получить день недели в формате английского языка


4-1117711004
Dok
2005-06-02 15:16
2005.07.31
Максимально скрыть процесс...


6-1113750182
Nekrom@NT
2005-04-17 19:03
2005.07.31
пересылка скриншота по стеку протоколов TCP/IP


3-1118885789
Dvm_home
2005-06-16 05:36
2005.07.31
Определение дубля


3-1119434430
snowman2002
2005-06-22 14:00
2005.07.31
Вопрос по локальным базам данных