Mausradrichtung bei Journalhook ermitteln

[Robert Marquardt]

Ich habe mal das with beseitigt, denn es ist hier unpraktisch.

Delphi-Quellcode:

function MouseHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT;  stdcall;
var
  P: PEventMsg;
  Delta: Smallint;
begin
  If nCode = HC_ACTION then
   begin
    If lParam <> 0 then
     begin
      P := PEventMsg(lParam);
      If P^.Message = WM_MOUSEWHEEL then
       begin
        // HIWORD extrahiert ein WORD das man zu einem Smallintumtypen muss, damit das Vorzeichen wieder auswertbar wird.
        Delta := Smallint(HIWORD(P^.wParam));
        Inc(Form1.i);
        Form1.Label1.Caption := IntToStr(Form1.i);
       end;
     end;
   end;
  Result := CallNextHookEx(Form1.MouseHook, nCode, wParam, lParam);
end;