Delphi监控CapsLock键的状态

Question

我的程序在后台运行，并使用计时器定期检查 Capslock 是否打开或关闭。

我的问题是是否存在比使用计时器更好的解决方案？

procedure TForm1.Timer2Timer(Sender: TObject);
var KeyState: TKeyboardState;
begin
  GetKeyboardState(KeyState) ;
 if (KeyState[VK_CAPITAL] = 0) then
  CheckBox1.Checked:=False //Capslock is OFF
 else
  CheckBox1.Checked:=True; //Capslock is ON
end;

Answer 1

使用低级键盘钩子(Hook)WH_KEYBOARD_LL来执行此操作。使用 SetWindowHookEx 安装 Hook 。您将收到 Hook 过程中每个键盘事件的通知。通过调用GetKeyboardState检测原始状态。

请注意，您必须更仔细地阅读文档。对于 GetKeyboardState 它说:

If the key is a toggle key, for example CAPS LOCK, then the low-order bit is 1 when the key is toggled and is 0 if the key is untoggled.

因此，测试整个字节是否为零是错误的。仅测试低位。使用 和 $1 来挑选该位。