您现在的位置:首页 >> 基础算法 >> window基础 >> 内容

Delphi中设置和获取CapsLock和NumLock键的状态

时间:2011/9/3 15:29:48 点击:

  核心提示:600) this.width = 600;'>部分代码:procedure ToggleNumLock;var KeyState: TKeyboardState;begin //note: Use...

600) this.width = 600;">

部分代码:

procedure ToggleNumLock;
var
   KeyState: TKeyboardState;
begin
   //note: Use VK_CAPITAL for Caps Lock
   GetKeyboardState(KeyState) ;
   //simulate key events (down + up)
   if (KeyState[VK_NUMLOCK] = 0) then
   begin
     Keybd_Event(VK_NUMLOCK, 1, KEYEVENTF_EXTENDEDKEY or 0, 0) ;
     Keybd_Event(VK_NUMLOCK, 1, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0) ;
   end
   else
   begin
     Keybd_Event(VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY or 0, 0) ;
     Keybd_Event(VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0) ;
   end;
end;

全部代码已经打包下载



迅雷专用高速下载

作者:站长 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2019 版权所有 All Rights Reserved.
  • 沪ICP备05001939号