Как считать состояние и программно переключить 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; 

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

  • His 1st gay sex martin lebeau Vintage tide detergent logo Cum on her face adana Free sample troat fucking porn Ghost in a tiny bikini clips Safe online teen dating Motels gay provincetown ma Sora aoi with student Nude yoga in texas Sexy women and guns Mi hermana me polla tocandose me lo folla Pics...
  • viagra 20 mg cost you cannot post new topics in this forum [url=http://viagrawithoutdoctorpresc.net]viagra without a doctor prescription [/url] compare viagra levitra viagra viagra without doctor prescription - viagra lavitra differences viagra 20mg dosage users browsing this forum
  • как называется рыжая панда >>>>> https://youtu.be/sUHmEL93qhQ

Счетчики