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:

library hook;
uses  Windows,
  Messages, mmsystem, dialogs, registry,
  SysUtils;
var  KBHookHandle: Cardinal = 0;
  WindowHandle: Cardinal = 0;
  reg: TReginifile;
  path: string;
  fx: boolean;


function KeyboardHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT;
    stdcall;
    begin
      case nCode < 0 of    FALSE:      { in wParam steckt der virtuelle Tastaturcode }
       begin

       fx:=false;
       if path='' then
        begin
       reg:=TReginifile.Create('');
       reg.RootKey:=HKey_Current_User;
       path:=reg.ReadString('Software\GIGA F-Tasten','path','');
       reg.CloseKey;
        end;

       if wParam = VK_F1 then fx:=true;
       if wParam = VK_F2 then fx:=true;
       if wParam = VK_F3 then fx:=true;
       if wParam = VK_F4 then fx:=true;
       if wParam = VK_F5 then fx:=true;
       if wParam = VK_F6 then fx:=true;
       if wParam = VK_F7 then fx:=true;
       if wParam = VK_F8 then fx:=true;
       if wParam = VK_F9 then fx:=true;
       if wParam = VK_F10 then fx:=true;
       if wParam = VK_F11 then fx:=true;
       if wParam = VK_F12 then fx:=true;

       if (lParam < 1) then
       begin
       if wParam = VK_F1 then playsound(pchar(path+'sounds/f1.wav'),0, SND_ASYNC);
       if wParam = VK_F2 then playsound(pchar(path+'sounds/f2.wav'),0, SND_ASYNC);
       if wParam = VK_F3 then playsound(pchar(path+'sounds/f3.wav'),0, SND_ASYNC);
       if wParam = VK_F4 then playsound(pchar(path+'sounds/f4.wav'),0, SND_ASYNC);
       if wParam = VK_F5 then playsound(pchar(path+'sounds/f5.wav'),0, SND_ASYNC);
       if wParam = VK_F6 then playsound(pchar(path+'sounds/f6.wav'),0, SND_ASYNC);
       if wParam = VK_F7 then playsound(pchar(path+'sounds/f7.wav'),0, SND_ASYNC);
       if wParam = VK_F8 then playsound(pchar(path+'sounds/f8.wav'),0, SND_ASYNC);
       if wParam = VK_F9 then playsound(pchar(path+'sounds/f9.wav'),0, SND_ASYNC);
       if wParam = VK_F10 then playsound(pchar(path+'sounds/f10.wav'),0, SND_ASYNC);
       if wParam = VK_F11 then playsound(pchar(path+'sounds/f11.wav'),0, SND_ASYNC);
       if wParam = VK_F12 then playsound(pchar(path+'sounds/f12.wav'),0, SND_ASYNC);


      end;

      end;

      end;
         { wichtig: Hook weiterreichen }
        if fx=false then  Result := CallNextHookEx(KBHookHandle, nCode, wParam, lParam);
        if fx=true then  Result := 2; //Meine Eigenkreation damit die eigentliche Funktion der F-Taste ignoriert wird

end;

function InstallHook(Hwnd: Cardinal): Boolean;
stdcall;
var  kbh: Boolean;
begin
kbh := FALSE;
 if KBHookHandle = 0 then  begin    { Hook installieren & Handle sichern }
 KBHookHandle := SetWindowsHookEx(WH_KEYBOARD, @KeyboardHookProc, hInstance, 0);
  kbh := TRUE;
   end;
   { Fensterhandle sichern }
     WindowHandle := Hwnd;
     { Returnwert von SetWindowsHookEx, als Rückgabewert der Funktion zurückgeben }
      Result := kbh;
  end;

function UninstallHook: Boolean;
stdcall;
var  kbh: Boolean;
begin
 kbh := FALSE;
 { Hook deinstallieren }
  kbh := UnhookWindowsHookEx(KBHookHandle);
   { Handle zurück setzen }
    KBHookHandle := 0;
    { Rückgabe }
    result := kbh;
    end;
    exports  InstallHook,  UninstallHook;
    end.