An dem Abschmieren war ich selbst schuld denn in dem Hook sollte man kein ShowMessage benutzen...
@SirThornberry: was meinst du mit normalem Auswerten der Message?
bei:
Delphi-Quellcode:
if P^.Message = WM_MOUSEWHEEL then
begin
Delta := Smallint(HIWORD(P^.paramL));
MainForm.Label1.Caption := IntToStr(Delta);
end;
wird stets 0 ausgegeben (bei paramL und paramH)