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

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

  • Отправка Вашего сообщения в более чем 1 200 000 форм обратной связи России Это отправка по формам с сайтов в разделе контакты, которые заполняются нашим роботом. Далее письмо с вашим предложением приходит на контактный E-mail организации. При отправку через форму каждый сайт отправляет сообщение...
  • Здравствуйте, меня зовут Пакалов Алексей, я являюсь руководителем Благотворительного Фонда Помоги Детям http://pomogi-detjam.ru Мы занимаемся помощью детям-сиротам, детям-инвалидам,детям из неблагополучных семей,основным родом нашей деятельности являются дети больные детским церебральным параличом....
  • shopg39 shopg81 shopg82 shopg42 shopg63 Добро пожаловать в сексшоп алматы shopg24 shopg68 shopg29 shopg88 shopg36

Счетчики