Индикация статуса клавиш. Вариант 2

Вы можете отслеживать состояние "индикаторных" клавиш с помощью таймера с интерва состояние клавиш следующим образом:

VAR KS : TKeyboardState;
...
GetKeyboardState(KS);
IF Odd(KS[VK_NUMLOCK]) THEN {caps lock нажат}
... VK_VK_CAPITAL
... VK_SCROLL
... VK_INSERT
 
« Предыдущая статья   Следующая статья »