|
Платные хостинги
Раскрутка сайта
Книги по программированию
Низкоуровневый перехват мыши, работа с ловушками
- Как перехватывать события от мыши с помощью низкоуровневого фильтра WH_MOUSE_LL. И чем он отличается от обычного. Просто когда ставишь фильтр WH_MOUSE, мышь в состоянии убрать фокус с какого либо объекта, например с едита, но при этом проде как кнопки не работают. Если кто то может объяснить, не сочтите за труд.
- Вот это не понял... Добавлено @ 11:06 Да, ну и перхватывать аналогично как и в обычных хуках.SetWindowsHookEx и указатель на функцию которая будет обрабатывать сообщения пришедшие от ловушки...
- Ну вот один из найдных мною перехватчиков мыши...Код library Hookdemo;usesBeeper in '\DELDEMOS\HOOKDEMO\BEEPER.PAS';exportsSetHook index 1,UnHookHook index 2,HookProc index 3;beginHookedAlready:=False;end.highlightSyntax('delphiI2NTc=','delphi');А вот BEEPER.PAS.Код unit Beeper;interfaceuses Wintypes, Winprocs, Messages;function SetHook: Boolean; export;function UnHookHook: Boolean; export;function HookProc(Code: integer; wParam: Word; lParam: Longint): Longint; export;var HookedAlready: Boolean;implementationvar ourHook: HHook;function SetHook: Boolean;begin if HookedAlready then exit; ourHook := SetWindowsHookEx(WH_MOUSE, HookProc, HInstance, 0); HookedAlready := True;end;function UnHookHook: Boolean;begin UnHookWindowsHookEx(ourHook); HookedAlready := False;end;function HookProc(Code: integer; wParam: Word; lParam: Longint): Longint;begin if (wParam = WM_LBUTTONDOWN) then MessageBeep(0); result := CallNextHookEx(ourHook, Code, wParam, lParam);end;end.highlightSyntax('delphiYzU1NT','delphi');
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
