Multimedia-Tasten hooken

[Gausi]

KeyDown kann auch nichts bringen, weil diese Tasten keine Tasten im üblichen Sinne sind. Sie lösen kein Tastatur-Event aus, sondern das Senden einer WM_APPCOMMAND-Message. An die ganzen Konstanten kann man z.B. so gelangen

Delphi-Quellcode:

procedure MediaKey (Var aMSG: tMessage); message WM_APPCOMMAND;    
//[...]    
procedure TForm1.MediaKey (Var aMSG: tMessage);    
begin    
  Showmessage(InttoStr(aMSG.LParam));
  aMsg.Result := 1;
end;

Man erhält dann, nach entsprechender Konvertierung ins Hex-Format:

Delphi-Quellcode:

APPCOMMAND_VOLUME_MUTE = $80000;     
APPCOMMAND_VOLUME_DOWN = $90000;     
APPCOMMAND_VOLUME_UP   = $a0000;

Alternativ kann man auch nach den Konstanten-Namen googeln. Irgendwo findet man immer ne Liste damit