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 posansi

Delphi 资源文件管理 resources and images

Delphi动态创建控件的例子

Delphi 禁用启用网卡

Delphi 压缩图片(bmp、jpg、png)

Delphi 获取鼠标坐标大全方法

Delphi 动态数组的使用

Delphi urunpe

Delphi webbrowser1实现滚屏

Delphi 调用单元unit代码

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

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