Prob mit Tastatur Hook

[wayne312]

Hey leute,

ich versuche mich momentan an den Windows API Hooks. Das hab ich auch alles soweit verstanden nur mein tastatur hook macht irgentwie ein paar probleme..
also hier ma der Code für mein HookProc :

Delphi-Quellcode:

function MyKeyboardProc(nCode: integer; wparam: WPARAM; lParam: LPARAM):Integer; stdcall;
var
PKey : Integer;
begin
  Result:=CallNextHookEx(MyKeyboardHook,nCode,wParam,lParam);
  case nCode < 0 of
    True : exit;
    False :
      begin
        PKey:=wParam;
        case PKey of
          65 : List1.Append('a');
        end;
      end;
  end;
end;

Das funktioniert soweit auch ganz gut nur wenn ich jetz "a" drücke steht das dann gleich 4 mal in meiner List1 ....

Hab ich irgentwas falsch gemacht?

Danke

[wicht]

Geraten: wParam/lParam auswerten, weil die Funktion evtl. beim Drücken, Loslassen, sonstwas aufgerufen wird?

[wayne312]

danke für die antwort,

und wie kann ich feststellen ob die taste grade gedrückt bzw. losgelassen wurde?

[Medium]

Hier findest du eine komplette Aufschlüsselung der Parameter.

[wayne312]

Danke für den Link!

[Hobby-Programmierer]

Versuch mal

Delphi-Quellcode:

function MyKeyboardProc(nCode: integer; wparam: WPARAM; lParam: LPARAM):Integer; stdcall;
var
PKey : Integer;
begin
  Result:= CallNextHookEx(MyKeyboardHook,nCode,wParam,lParam);
  if nCode = HC_ACTION then
    case wParam of
      WM_KEYDOWN: begin
                    PKey:= wParam;
                    case PKey of
                      65 : List1.Append('a');
                    end;
                  end;
      WM_KEYUP  : begin
                  end;
    end;
end;

[edit] schau dir bei Gelegenheit auch mal 'Ord' und 'Chr' in der OH an :zwinker: