WM_KEYDOWN lparam bit 30 auslesen?

[Hedge]

Hab schon gesehen dass es einen ähnlichen Thread wie diesen gibt-> http://www.delphipraxis.net/internal...keydown+lparam
...aber trotzdem krieg ich es nicht hin das 30. Bit des lparam auszulesen (aus MSDN: 30 Specifies the previous key state. The value is 1 if the key is down before the message is sent, or it is 0 if the key is up. )

Habe einen Journalhook:

Delphi-Quellcode:

function MouseHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT;  stdcall;
var
  P: PEventMsg;
begin
  If nCode = HC_ACTION then
   begin
    If lParam <> 0 then
     begin
      P := PEventMsg(lParam);
      if P^.message = WM_KEYDOWN then
        begin
        if (lparam and $20000000)=$20000000 then Beep;
        end;
      end;
   end;
end;