频道分类

Delphi 如何通过代码控制打开键盘数字锁定NumLock

作者:admin 来源: 日期:2020/9/15 14:13:06 人气: 标签:

 
uses
  Windows;
...
procedure SetNumLockOn;
var
  KeyState: TKeyBoardState;
begin
  GetKeyboardState(KeyState);
  if GetKeyState(VK_NUMLOCK) = 0 then begin
    KeyState[VK_NUMLOCK] := 1;
    SetKeyboardState(KeyState);
  end;
end;

上一篇:Delphi 如何替换Word文档中的文本下一篇:没有资料