Mausrad abfangen - drehung außerhalb der anwendung erkennen

[Hedge]

Hoffe der thread ist nicht zu outdated um noch zu antworten..

WM_MOUSEWHEEL

Über den wparam sollte man ja eigentlich die Information kriegen in welche Richtung das Mausrad lief...

Nur ist jetzt die Frage wie man den ausliest bezogen auf die Funktion MouseHookProc

Kann mir da Jemand auf die Sprünge helfen?

hier nochmal die funktion zur Erinnerung:

Delphi-Quellcode:

function MouseHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT;  stdcall;
begin
  If nCode = HC_ACTION then
   begin
    If lParam <> 0 then with PEventMsg(lParam)^ do
     begin
      If Message = WM_MOUSEWHEEL then
       begin
        Inc(Form1.i);
        Form1.Label1.Caption := IntToStr(Form1.i);
       end;
     end;
   end;
  Result := CallNextHookEx(Form1.MouseHook, nCode, wParam, lParam);
end;