Вопрос и Ответ 10

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

Пример:

Меняем состояния клавиш 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);