Habe einen JournalHook eingrichtet und es funktioniert auch alles super...
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;
Das einzige Problem das ich habe ist, dass ich es nicht schaffe zu ermitteln in welche Richtung sich das Mausrad dreht.
Delphi-Quellcode:
WM_MOUSEWHEEL
fwKeys = LOWORD(wParam);
zDelta = HIWORD(wParam);
xPos = LOWORD(lParam);
yPos = HIWORD(lParam);
laut Definition müsste dies aber eigentlich mit zDelta möglich sein..wie ermittel ich nun diesen Parameter in der oben genannten Funktion. Hab schon ziemlich lange rumprobiert aber nichts funktionierte.