Как считать состояние и программно переключить Caps Lock, Num Lock и Scroll Lock?

Для этого надо воспользоваться процедурами API:

procedure GetKeyboardState(var KeyState: TKeyboardState);
procedure SetKeyboardState(var KeyState: TKeyboardState);

которые возвращают и устанавливают, соответственно, состояния всех клавиш. Некоторые коды клавиш приведены ниже:

Клавиша Код Клавиша Код Клавиша Код
Caps Lock 020 Shift 016 Insert 045
NumLock 144 Contrl 017 Delete 046
Scroll Lock 145 Alt 018 Tab 009

Пример:

Меняем состояния клавиш Caps Lock, Num Lock и Scroll Lock на противоположное:
VAR KS: TKeyboardState; 
 begin
 
GetKeyboardState(KS);
 KS[020] := KS[020] XOR 1;
 KS[144] := KS[144] XOR 1;
 KS[145] := KS[145] XOR 1;
 SetKeyboardState(KS); 
 
end; 

Последние комментарии

  • http://www.jinmeifood.com/home.php?mod=space&uid=102831 http://www.shouyou9.net/home.php?mod=space&uid=63850 http://partphoto.com/home.php?mod=space&uid=162731 http://dle1.prestashop-studio.ru/user/AlexisTresy/ http://bbs.daxgame.com/home.php?mod=space&uid=252568 http://www.xc2.info...
  • http://www.0757py.com/space-uid-538380.html http://finansy.su/user/RogelioDaw/ http://siwa8.info/home.php?mod=space&uid=71258 http://legfilm.ru/user/Georgebok/ http://mykazan.ru/dark/profile.php?id=245822 http://bbs.pcboard.cn/space-uid-24717.html https://www.igrimace.com/bbs/home.php?mod=space...
  • http://bbs.beidouauto.com/space-uid-316427.html http://dwww.shumo.com/forum/home.php?mod=space&uid=443584 http://www.myweboasis.com/messageboard/index.php?action=profile;u=500366 http://666weixiu.com/home.php?mod=space&uid=512906 http://www.shouyou45.com/space-uid-90072.html http://hhnysq....

Счетчики