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 savedialog覆盖询问

Delphi 类的声明

Delphi tmsweb core 刷新当前页面

Delphi研究之驱动开发篇（四）--使用系统内存堆

Delphi inputbox 用法

Delphi 开发中遇到的dll问题思考及解决方法

Delphi 延时的4种方法

Delphi checkbox 透明

Delphi的对象注销方法destroy和free的区别

Delphi 如何将access数据库后缀名accdb改为mdb

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

转载请注明出处：木庄网络博客 » Delphi 如何通过代码控制打开键盘数字锁定NumLock