Хук на систему

[Terran]

Всем привет! В нижеприведённом коде я устанавливаю хук на систему и отлавливаю в нём сообщения, что ролик мыши крутится. И тут вопрос, как узнать в какую именно сторону вращается ролик? Вверх или вниз? Т.к. на обе стороны вращения одно сообщение WM_MOUSEWHEEL...

Var
HookHandle: HHook;
Function HookProc(Code: Integer; WParam: Word; LParam: Longint): Longint; Stdcall;
Var
Msg: PEVENTMSG;
Begin
If Code>=0 Then
Begin
Msg:=Pointer(LParam);
Case Msg.message Of
WM_MOUSEWHEEL: Form1.Memo1.Lines.Add('Mouse');
End;
End;
End;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
HookHandle:=SetWindowsHookEx(WH_JOURNALRECORD,@HookProc,HInstance,0);
End;
Procedure TForm1.FormDestroy(Sender: TObject);
Begin
If HookHandle<>0 Then
UnhookWindowsHookEx(HookHandle);
End;

[mihali4]

Из хэлпа:

WM_MOUSEWHEEL
fwKeys = LOWORD(wParam); // key flags
zDelta = (short) HIWORD(wParam); // wheel rotation
xPos = (short) LOWORD(lParam); // horizontal position of pointer
yPos = (short) HIWORD(lParam); // vertical position of pointer

Вывод - нужно следить за yPos...

[Terran]

Поясните пожалуйста поподробнее... Как в моём случае поступить? Я следил за yPos как вы говорили, когда локально для формы отлавливал сообщение, а тут я пробовал различные варианты и что то у меня ничего не вышло.

[Strogg]

Если сохранять уПоз через небольшие промежутки времени, то можно узнать что и куда вращалось.

[Terran]

Можно даже не сохранять, а сразу на проверку ставить. У меня получается, что когда я ловлю сообщение для формы, то всё хорошо работает и всё легко могу распознать, а когда глобально пытаюсь словить, то у меня вылазит целая куча значений и они повторяются т.е. одни одинаковы, а раз они одинаковы, то я не могу сориентироваться. В общем всё работает кроме того что надо.

[Феска]

zDelta = (short) HIWORD(wParam); // wheel rotation

если дельта больше 0, то крутиться в одну сторону , если меньше в другую , если ноль то не знаю, наверно,прилетели инопланетяне.

[Terran]

Я такой вариант пробовал. Самое прикольное, что у меня постоянно 0 получается, что бы я не делал.

[Terran]

Наконец-то разобрался со своей проблемой. Выкладываю очень хороший код, может кому то и пригодится.

Private
    { Private declarations }
    Procedure WMUser(Var Message: TMessage); Message WM_USER;
...
Var
HMouseHook: HHOOK;
Type
TagMSLLHOOKSTRUCT = Packed Record
Pt: TPoint;
MouseData: DWord;
Flags: DWord;
Time: DWord;
DwExtraInfo: PDWord;
End;
TMSLLHOOKSTRUCT  = TagMSLLHOOKSTRUCT;
PMSLLHOOKSTRUCT = ^ TMSLLHOOKSTRUCT;
Function LowLevelMouseProc(nCode: Integer; WParam: WPARAM;
LParam: PMSLLHOOKSTRUCT): LRESULT; Stdcall;
Begin
Result := CallNextHookEx(HMouseHook, NCode, WParam, DWORD(LParam));
If nCode < 0 Then
Exit;
If nCode In [HC_ACTION, HC_NOREMOVE] Then
If WParam = WM_MOUSEWHEEL Then
PostMessage(Form1.Handle, WM_USER, Integer(LParam^.mouseData), 0);
End;
Procedure TForm1.FormCreate(Sender: TObject);
Const
WH_MOUSE_LL = 14;
Begin
HMouseHook:=SetWindowsHookEx(WH_MOUSE_LL, @LowLevelMouseProc, HInstance, 0);
End;
Procedure TForm1.WMUser(Var Message: TMessage);
Const
UD_MAXVAL = $7fff;
UD_MINVAL = -UD_MAXVAL;
Var
KeyState: TKeyboardState;
Begin
With Message Do
Begin
GetKeyboardState(KeyState);
If KeyState[VK_SHIFT] Shr 7 = 0 Then
Begin
If WParamHi < UD_MAXVAL Then
Caption:='Прокрутка вверх'
Else
Caption:='Прокрутка вниз';
End
Else
Begin // с нажатым Shift в офисе прокрутка осуществляется по горизонтали
If WParamHi < UD_MAXVAL Then
Caption := 'Прокрутка вправо'
Else
Caption := 'Прокрутка влево';
End;
End;
End;

Всем большое спасибо за помощь!!!