1

我正在尝试在我的 delphi 应用程序中捕获 appcommand_media_play、appcommand_media_stop、appcommand_media_nexttrack 等。

目前我使用代码：

procedure WM(var Msg: TMessage); message WM_APPCOMMAND;

procedure tform1.WM;
begin
case (msg.LParamHi AND NOT FAPPCOMMAND_MASK) of
  APPCOMMAND_MEDIA_PLAY: play;
  APPCOMMAND_MEDIA_PAUSE: pause;
  APPCOMMAND_MEDIA_STOP: stop;
  APPCOMMAND_MEDIA_NEXTTRACK: next;
  APPCOMMAND_MEDIA_PREVIOUSTRACK: prev;
end;
inherited;
end;

但这仅在窗口具有焦点时才有效。

我认为这样做的好方法可能是 windows hook ex。但我不知道如何用它捕获这些特殊键。此外，我从未编写过制作全局钩子所需的库。

有人知道如何做到这一点吗？

我期待你的回复

原谅我的英语

4

0 回答 0