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

Вниз

Глобальный хук WH_MOUSE_LL   Найти похожие ветки 

← →
fdooch   (2007-07-30 20:34) [0]

Возникла проблема по работе с глобальными хуками. При выполнении нижеприведённого примера в Windows XP с включенными визуальными стилями мышь "зависает" при нажатиях на кнопках в заголовке окна (свернуть, минимизировать, закрыть). При выполнении аналогичных операций через контекстное системное меню или с помощью горячих клавиш (Alt+F4) задержки не возникает. В других ОС (Win2k, Vista) и в той же XP с выключенными визуальными стилями проблема отсутствует.

В чём заключается проблема и как её можно решить?


var
Hook: HHOOK;

function HookProc(Code: Integer; wParam: WPARAM; lParam: LPARAM): Longint; stdcall;
begin
 if (Code=HC_ACTION) and ((wParam=WM_RBUTTONDOWN) or (wParam=WM_RBUTTONUP))
  then   begin
          if wParam=WM_RBUTTONUP
           then   Windows.Beep(100, 100);
          Result:=HC_SKIP;
          Exit
         end
  else   Result:=CallNextHookEx(Hook, Code, wParam, lParam)
end;

procedure TForm1.FormCreate(Sender: TObject);
const
 WH_MOUSE_LL = 14;
begin
 Hook:=SetWindowsHookEx(WH_MOUSE_LL, @HookProc, HInstance, 0)
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 UnhookWindowsHookEx(Hook)
end;

---

← →
Yanis ©   (2007-07-30 22:30) [1]

Есть такая проблемка. А если в dll реализовать, то баг сохраняется?

---

← →
fdooch   (2007-07-31 11:40) [2]

При реализации хука в dll проблема осталась. Да и вообще, использование dll нежелательно. Переделал исходный код - использую хук в отдельном потоке. Все работает на ура. Кстати, в MSDN написано:

LowLevelMouseProc Function

LRESULT CALLBACK LowLevelMouseProc(int nCode, WPARAM wParam, LPARAM lParam);

nCode
[in] Specifies a code the hook procedure uses to determine how to process the message. If nCode is less than zero, the hook procedure must pass the message to the CallNextHookEx function without further processing and should return the value returned by CallNextHookEx. This parameter can be one of the following values.
HC_ACTION
The wParam and lParam parameters contain information about a mouse message.
wParam
[in] Specifies the identifier of the mouse message. This parameter can be one of the following messages: WM_LBUTTONDOWN, WM_LBUTTONUP, WM_MOUSEMOVE, WM_MOUSEWHEEL, WM_RBUTTONDOWN, or WM_RBUTTONUP.
lParam
[in] Pointer to an MSLLHOOKSTRUCT structure.

У меня (в Windows XP SP2)в параметре wParam (в отличие от утверждения MSDN) передаётся ещё и сообщения от средней и дополнительных клавишей мыши (WM_MBUTTONDOWN, WM_MBUTTONUP, WM_XBUTTONDOWN, WM_XBUTTONUP), что и необходимо для моего приложения. Кто-нибудь в курсе, подобное поведение сохраняется в Win2K? В Vista всё отлично - проверял.

---

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

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

Наверх

Память: 0.47 MB
Время: 0.017 c