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:

library KeyboardHook;

uses   
  Windows,
  Messages, Dialogs, sysutils; // da kommt später wieder was weg ;-)

var
  HookHandle: Cardinal = 0;
  MyWindowHandle: Cardinal = 0;

const APPCOMMAND_MEDIA_NEXTTRACK  = 720896; 

function KeyboardHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  case nCode < 0 of
    FALSE:
      begin
        if lparam = APPCOMMAND_MEDIA_NEXTTRACK then
        begin
          // weils nicht klappt, hab ich mir mal die Werte ausgeben lassen...
          showmessage('Fange ab - ' + inttostr(MyWindowHandle));
          PostMessage(MyWindowHandle,WM_APPCOMMAND,wparam,lParam);
          Result := 1;
        end
        else
          Result := CallNextHookEx(HookHandle, nCode, wParam, lParam);
      end;
    else
      Result := CallNextHookEx(HookHandle, nCode, wParam, lParam);
  end;
end;

function InstallHook(Hwnd: Cardinal): Boolean; stdcall;
begin
  Result := False;
  if HookHandle = 0 then begin   
//Erstmal Hook installieren
    HookHandle := SetWindowsHookEx(WH_SHELL, @KeyboardHookProc, HInstance, 0);
//Uebergebenes Fensterhandle sichern
    MyWindowHandle := Hwnd;
    Result := True;
// Testweise ne Ausgabe
    showmessage('Installiert ' + inttostr(hwnd) + ' ' + inttostr(MyWindowHandle));
  end;
end;

function UninstallHook: Boolean; stdcall;   
begin
//Hook aus der Hookchain entfernen
  Result := UnhookWindowsHookEx(HookHandle);
  HookHandle := 0;
end;

exports
//Installations- und Deinstallationsroutine exportieren
  InstallHook,   
  UninstallHook;
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:

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  protected
    // um den Krempel geht es mir ;-)
    procedure MediaKey (Var aMSG: tMessage); message WM_APPCOMMAND;
  end;

var
  Form1: TForm1;

type
  TInstallHook = function(Hwnd: THandle): Boolean; stdcall;
  TUninstallHook = function: Boolean; stdcall;

var
  InstallHook: TInstallHook;
  UninstallHook: TUninstallHook;
  lib: Cardinal;
  HWND: Cardinal;


procedure TForm1.FormCreate(Sender: TObject);
begin
  lib := LoadLibrary('KBHook.dll');
  if lib <> INVALID_HANDLE_VALUE then begin
    InstallHook := GetProcAddress(lib, 'InstallHook');
    UnInstallHook := GetProcAddress(lib, 'UninstallHook');
  end
  else showmessage('Fehler');

  if installHook(Form1.Handle) then showmessage('Hook installiert');
  Label1.Caption := intTostr(Form1.Handle);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UninstallHook;
end;

procedure TForm1.MediaKey (Var aMSG: tMessage);
begin
  case aMSG.LParam of
    APPCOMMAND_MEDIA_NEXTTRACK:
    begin
      showmessage('Next');
      aMsg.Result := 1;
    end;
  end;
end;					

1:
2:

oDemoObj := TWDB_IPCDemoObj.Create('NempNochEinMP3Player');
oDemoObj.Data := Hwnd;					

1:
2:
3:
4:

 //Das Object mit selben Namen wieder erstellen - da es schon existiert (nach install), komme ich so an das FensterHandle ran
oDemoObj := TWDB_IPCDemoObj.Create('NempNochEinMP3Player');
// Und dann die entsprechende nachricht weitergeben
PostMessage(oDemoObj.Data,WM_APPCOMMAND,wparam,lParam);					

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:

function KeyboardHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  // Damit kriege ich das FensterHandle meiner Anwendung
  // im HookInstall wird die Eigenschaft MainWindow dieses Objects
  // auf mein Handle gesetzt.
  oDemoObj := TWDB_IPCDemoObj.Create('NempNochEinMP3Player');
  case nCode < 0 of
    FALSE:
      begin
        if (lparam = APPCOMMAND_MEDIA_NEXTTRACK)
            or (lparam = APPCOMMAND_MEDIA_PREVIOUSTRACK)
            or (lparam = APPCOMMAND_MEDIA_STOP)
            or (lparam = APPCOMMAND_MEDIA_PLAY_PAUSE)
        then
        begin
          //Nachricht an mein Fenster senden
          PostMessage(oDemoObj.MainWindow,WM_APPCOMMAND,wparam,lParam);
          // Nachricht "erledigt"
          Result := 1;
        end
        else
          // Weiterleiten
          Result := CallNextHookEx(HookHandle, nCode, wParam, lParam);
      end;
    else
      // Weiterleiten
      Result := CallNextHookEx(HookHandle, nCode, wParam, lParam);
  end;
end;