Notebook Presenter Mouse - Abfangen der Präsentationstasten

[Martin K]

Hallo,
habe mir die "Wireless Notebook Presenter Mouse 8000" von Microsoft gekauft.
Mit den Präsentationstasten lässt sich leider nur PowerPoint steuern, wir erstellen unsere Präsentationen allerdings mit LaTeX und verwenden zum präsentieren den Acrobat Reader. Nach etwas googeln habe ich folgende Links gefunden:
Fertige Lösung
Lösung für Ubuntu
OpenOffice

Nun wollte ich mir so etwas wie im ersten Link selber basteln, vor allem da die Mouse 3 Tasten zur Präsentationssteuerung hat, die fertige Lösung aber nur den Vor- und Zurückbutton abfängt.

Das hier klingt dabei besonders hilfreich:

Zitat:

The mouse generates the WM_APPCOMMAND message with the "cmd" set to
APPCOMMAND_MEDIA_NEXTTRACK for the next page
APPCOMMAND_MEDIA_PREVIOUSTRACK for the previous page

and (not necessary for presentations, but could be used to start and stop
embedded animations and sounds)
APPCOMMAND_MEDIA_PLAY_PAUSE for the media control button

Also habe ich mir folgendes gebastelt, funktioniert auch:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure Hallo(var Msg: tagMsg); message WM_APPCOMMAND;
  end;

{...}

procedure TForm1.Hallo(var Msg: tagMSG);
begin
  case Msg.wParam of
    720896: ShowMessage('Nächste Folie');
    786432: ShowMessage('Vorherige Folie');
    917504: ShowMessage('Leere Folie');
  end;
end;

Nur:
Die Meldung wird immer 2mal angezeigt wenn das Fenster den Fokus hat, sonst nur einmal.
Mir ist es nicht gelungen, das Ganze über RegisterHotKey zu machen, das ist aber mein Ziel und dabei brauch ich eure Hilfe
Die Präsentationstasten sollen schließlich richtig abgefangen werden, im Moment startet sich nämlich bei "Leere Folie" (APPCOMMAND_MEDIA_PLAY_PAUSE) zusätzlich noch der Windows Media Player...
Ach ja, diese APPCOMMAND_MEDIA_...-Befehle habe ich in Delphi nicht gefunden, es erscheint immer "Undefinierter Bezeichner"...

Danke schonmal für eure Antworten