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;

[Robert Marquardt]

Da war letztens ein Thread ueber JOURNALHOOKs hier bei dem das auch nicht ging. Warum erwartest du uebrigens das die Mausmessages die gleichen Parameter wie Keyboardmessages haben?

[marabu]

Guten Morgen.

Wenn du Konstanten mehrmals verwendest, dann ist eine Konstantenvereinbarung vorteilhaft. Wenn du dann noch die richtige Konstante verwendest - um so besser.

Delphi-Quellcode:

const
  PREV_KEY_STATE = 1 shl 30; // $40000000
begin
  // ...
  if lparam and PREV_KEY_STATE = PREV_KEY_STATE then Beep;
  // Ohne Konstante geht es auch so:
  if Odd(lparam shr 30) then Beep;
  // ..
end;

Edit: Das nur zu deinem Delphi-Problem. Zu deinem Problem mit Windows hat Robert schon was geschrieben.

Grüße vom marabu

[Hedge]

Zitat:

Warum erwartest du uebrigens das die Mausmessages die gleichen Parameter wie Keyboardmessages haben?

Reine Vermutung gepaart mit Unwissen

Danke für die Tipps. Habe es vorerst über WMKEYUP gelöst, aber scheinbar wird ne DLL fällig sein, denn es ist auch nicht möglich die Richtung in der man das Mausrad gescrollt hat zu ermitteln mit nem Journalhook :/