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


本文整理自网络,侵删。

 
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 string 常用字串符处理函数

Delphi cxgrid使用小结

Delphi 字符串加密解密代码

Delphi 关闭android安卓程序

Delphi webbrowser1 querystatuswb

Delphi根据字符分割字串成数组

winapi 字符及字符串函数(12): lstrlen - 串长度

Delphi 获取文件名不带扩展名

Delphi richedit的实现msn / qq 中的动画表情

Delphi mscomm 发送接收

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...