Вопрос избитый, но всё же: отлов mouse wheel

[Tarik]

Всем доброго времни суток! Вопрос уже довольно избитый, однако вразумительного ответа я на него так и не нашёл . Дело в том, что я пытаюсь отлавливать движения колеса мыши через JournalHook (как известно, глобальный хук на мышь из VB не поставишь). Юзаю немного доработанный класс от в. и у. Оловянникова. Так вот, само сообщение WM_MOUSEWHEEL отлавливается, но как узнать zDelta, то есть куда сдвинулось колесо - вверх или вниз? При установке глобального хука на мышь это можно узнать из wParam (это меня сишники научили ), но в JournalRecordProc в wparam передаётся всегда 0 Отсюда закономерный и, увы, типичный для нашей страны вопрос: что делать?

[GSerg]

Писать библу на VB

[Tarik]

Кхм... Я, конечно, понимаю - какой вопрос, такой и ответ... Но всё-таки хотелось бы подробнее

[GSerg]

Ну для глобального хука нужна библа? Ну вот писать её на VB

[Tarik]

Native DLL на VB? Я знаю, можно, конечно... А через JournalHook всё-таки нельзя извратиться?

"Хорёчек?..." (с) "Ангелы Чарли 2"

[A.A.Z.]

Хм... Где-то у меня валялся пример проще... Ага!

Код: Выделить всё

Option Explicit

Private Const PM_REMOVE = &H1
Private Const WM_MOUSEWHEEL = 522

Private Type POINTAPI
    x As Long
    y As Long
    End Type

Private Type Msg
    hWnd As Long
    Message As Long
    wParam As Long
    lParam As Long
    time As Long
    pt As POINTAPI
    End Type

Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
Private Declare Function WaitMessage Lib "user32" () As Long

Private bCancel As Boolean

Private Sub ProcessMessages()
Dim Message As Msg
Do While Not bCancel
WaitMessage
If PeekMessage(Message, Me.hWnd, WM_MOUSEWHEEL, WM_MOUSEWHEEL, PM_REMOVE) Then 'если колесо потрогали, то...
If Message.wParam < 0 Then 'скролл вверх
Me.Top = Me.Top + 240
Else 'скролл вниз
Me.Top = Me.Top - 240
End If
End If
DoEvents
Loop
End Sub

Private Sub Form_Load()
Me.Show
ProcessMessages
End Sub

Private Sub Form_Unload(Cancel As Integer)
bCancel = True
End Sub

Не пойдет?

[Tarik]

A.A.Z., спасибо за желание помочь, но это действует только в пределах своего потока и только когда форма активна Мне же нужно отлавливать глобально. Эх, придётся, наверное, на .net писать...

[A.A.Z.]

А, ясно...