Как программным путем включить num lock
Как программным путем включить num lock
Как программным путем включить num lock procedure tmyform.button1click(sender: tobject); var keystate : tkeyboardstate; begin getkeyboardstate(keystate); if (keystate[vk_numlock] = 0) then keystate[vk_numlock] := 1 else keystate[vk_numlock] := 0; setkeyboardstate(keystate); end; Для caps lock замените vk_numlock на vk_capital.