Windowsowy hak klawiatury zgłasza wszystko dwa razy

Question

Używam Delphi i próbuję czytać ze skanera kodów kreskowych przez USB, tak, że jest to po prostu kolejny Human Interface Device.

Dostaję poprawnie cyfry, ale otrzymam je dwa razy. Wyobrażam sobie, że to jest klucz i klucz.

Mogłem; kludge to z flagą i zignorować bardzo drugi raz, ale wolałby zrobić to propery.

Mój kod został nieznacznie zmieniony z this link.

Czy mogę określić, że chcę tylko zdarzenia key_up podczas przypisywania haka?

KBHook := SetWindowsHookEx(WH_KEYBOARD, 
          @KeyboardHookProc, 
          HInstance, 
          GetCurrentThreadId()) ; 

lub w jakiś sposób sprawdzić flagę w ramach samej funkcji haka?

---

Aktualizacja: próbowałem kodować, ale wygląda na to, że źle się spisałem. Oto, co starałem się na początku mojej funkcji haka

// http://msdn.microsoft.com/en-us/library/windows/desktop/ms644984%28v=vs.85%29.aspx 
if Code < 0 then 
begin 
    Result := CallNextHookEx(KBHook, Code, WordParam, LongParam); 
    Exit; 
end; 

if (((LongParam and $80000000) <> $80000000) (* key is not being released *) 
and ((LongParam and $40000000) <> $40000000)) (* key was not previously down *) then 
begin 
    Result := CallNextHookEx(KBHook, Code, WordParam, LongParam); 
    Exit; 
end; 

---

[Update] Dalsze Pięć lat później, i to nie pomoże, ale uważam, że mój oryginalny follow-up question (q.v) robi.

Answer 1

W swoim KeyboardHookProc, należy sprawdzić wysoki bit argumentu LongParam. Jeżeli bit wysoki wynosi zero, jest to naciśnięcie klawisza. Jeśli wyższy bit to jeden, jest to kluczowe wydanie.

Na przykład:

KeyUp:boolean; 

KeyUp := ((LongParam and (1 shl 31)) <> 0);