2

我正在基于运行 Win7 的旧计算机构建多媒体控制台。

我想用数字键盘控制玩家。我不能使用常见的媒体控制设备，因为它们只响应 windows 媒体播放器。我将使用 KVM Player、Winamp 等。所以每个人都有自己的一套键盘快捷键，用于播放、暂停、转发、音量等。

为此，我正在考虑构建一个 Delphi 应用程序来检测前台应用程序并从数据库中获取该应用程序使用的快捷方式。

当我使用数字键盘（普通遥控器的大小）并按下播放时，如果我使用 Winamp 或Media Player Classic 5，我的应用程序可以检测到它并将密钥发送到操作系统。PSpace

我应该使用哪些功能来首先抓住按下的键，然后发送不同的键？

4

1 回答 1

3

部分解决方案可以使用键盘挂钩 ( WH_KEYBOARD_LL ) 来捕获特殊组合键或单个键，然后使用keybd_event函数发送（替换）另一个击键。

试试这个拦截 VK_UP密钥并发送一个示例代码S 

var
 hhk: HHOOK;


function CBT_FUNC(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;


type
  PKBDLLHOOKSTRUCT = ^TKBDLLHOOKSTRUCT;
  TKBDLLHOOKSTRUCT = record
    vkCode: cardinal;
    scanCode: cardinal;
    flags: cardinal;
    time: cardinal;
    dwExtraInfo: Cardinal;
  end;
  PKeyboardLowLevelHookStruct = ^TKeyboardLowLevelHookStruct;
  TKeyboardLowLevelHookStruct = TKBDLLHOOKSTRUCT;

var
 LKBDLLHOOKSTRUCT: PKeyboardLowLevelHookStruct;
begin
   case nCode of
     HC_ACTION:
     begin
       LKBDLLHOOKSTRUCT := PKeyboardLowLevelHookStruct(lParam);
        if (LKBDLLHOOKSTRUCT^.vkCode = VK_UP)  then
        begin

          if (wParam=WM_KEYUP) or (wParam=WM_SYSKEYUP)then
           keybd_event( Ord('S'), 0, KEYEVENTF_KEYUP, 0)
          else
           keybd_event( Ord('S'), 0, 0, 0);

          Exit(1); //eat the key
        end;
     end;
   end;
  Result := CallNextHookEx(hhk, nCode, wParam, lParam);
end;

Procedure InitHook();
begin
  hhk := SetWindowsHookEx(WH_KEYBOARD_LL, @CBT_FUNC, 0, 0);
  if hhk=0 then RaiseLastOSError;
end;


Procedure KillHook();
begin
  if (hhk <> 0) then
    UnhookWindowsHookEx(hhk);
end;


initialization
  InitHook();

finalization
  KillHook();
end.

在使用这种钩子之前记得阅读文档，特别是备注部分。

于 2012-12-18T21:18:29.960 回答