Ah! Jetzt raff ichs. Vor dem selben Problem stand ich schon mal.
Jedoch scheint JournalHook bei den Parametern eine Schwäche zu haben, denn egal wie ich das 30. Bit prüfe, es kommt nix dabei raus...
Hier meine Testkandidaten:
Delphi-Quellcode:
const
PREV_KEY_STATE = 1 shl 30; // $40000000
begin
// ...
if lparam and PREV_KEY_STATE = PREV_KEY_STATE then Beep;
// ..
end;
und:
if Odd(lparam shr 30) then Beep;
Nix beep't