Prob mit Tastatur Hook

[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