Проблема с хуком, Делаю подмену клавиш мыши

[zhefran]

Поставил хук, который подменивает нажатие левой кнопки мыши на нажатие средней. Проблема в том, что в Word не срабатывает.
В блокноте и в броузере работает, а в Word нет!

Вытяжка с MSDN:

The Mouse Wheel

The mouse wheel combines the features of a wheel and a mouse button. The wheel has discrete, evenly-spaced notches. When you rotate the wheel, a wheel message is sent to your application as each notch is encountered. The wheel button can also operate as a normal Windows middle (third) button. Pressing and releasing the mouse wheel sends standard WM_MBUTTONUP and WM_MBUTTONDOWN messages. Double clicking the third button sends the standard WM_MBUTTONDBLCLK message.

В моем хуке идет такое дело:

Function SysMsgProc(Code:Integer; WParam:LongInt; LParam:LongInt):LongInt; stdcall;
Var Msg:TMessage;
Begin
 IF (Code=HC_ACTION) then
  Case TMsg(Pointer(LParam)^).Message OF
   WM_lBUTTONDOWN: TMsg(Pointer(LParam)^).Message:=WM_mbuttondown
      else Result:=CallNextHookEx(SysHook,Code,WParam,LParam);
  End;
end;

Почему в Word это не работает?

[B_N]

А с какой стати здесь SysMsgProc?

Читайте MSDN целиком:

WH_SYSMSGFILTER
Installs a hook procedure that monitors messages generated as a result of an input event in a dialog box, message box, menu, or scroll bar. The hook procedure monitors these messages for all applications in the same desktop as the calling thread. For more information, see the SysMsgProc hook procedure.

[zhefran]

Можно обьяснить как для чайника?

[B_N]

Сообщение от zhefran

Можно обьяснить как для чайника?

Зачем Вы из всего многообразия хуков выбрали самый неудобный? Чем Вам не понравились WH_CALLWNDPROC, WH_GETMESSAGE, WH_MOUSE, WH_MOUSE_LL?

[zhefran]

Сама процедура установки:

procedure Hook(Flag:Boolean); export; stdcall;
Begin
 IF Flag then SysHook:=SetWindowsHookEx(WH_Getmessage,@SysMsgProc,HInstance,0) Else
  Begin
   UnhookWindowsHookEx(SysHook);
   SysHook:=0;
  End;
End;

exports Hook;

Я не могу понять какая разница как я назову функцию отлавливания сообщения SysMsgProc,KeyboardProc or MouseProc?

[B_N]

zhefran, давайте по порядку. Хук в ворде срабатывает вообще?

[zhefran]

Получается так, что одинарный клик ЛКМ в ворде не срабатавает, тоисть курсор в установленное место не устанавливается, при зажатой ЛКМ и движении мишки выделение не происходит.

[B_N]

Сообщение от zhefran

Я не могу понять какая разница как я назову функцию отлавливания сообщения SysMsgProc,KeyboardProc or MouseProc?

Разница в том, что никто, кроме Вас не знает, что Вы как назвали и что как вызываете, а именаиспользуются предопределённые.

Сообщение от zhefran

Получается так, что одинарный клик ЛКМ в ворде не срабатавает, тоисть курсор в установленное место не устанавливается, при зажатой ЛКМ и движении мишки выделение не происходит.

Где в хуке реакция на поднятие кнопки?

[zhefran]

Добавил - то же самое!

[B_N]

Сообщение от zhefran

Добавил - то же самое!

Значит Word исходит (я так понимаю, про скроллинг речь?) из текущего состояния кнопок, а сообщения использует по своему разумению.