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编程时按回车键无效，无法换行解决办法

Delphi tlistview(tlistbox+图标显示)

oleinitialize和coinitialize的区别

Delphi [fmx]如何使用剪贴板

Delphi xe8安卓下汉字转gb2312

Delphi 使用int3进行hook处理

Delphi使用xmlhttp组件代码

Delphi 使用firedac的tfdscript组件执行文件中描述的sql语句

Delphi侦测按键输入

sqlite中的pragma语句攻略

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

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