Caps Lock (и другие подобные клавиши)
Как мне включить Caps Lock? (Естественно, программным путем в Delphi) ...я уж и пробовал, и спрашивал...
попробуй это...
|
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.
[000144]
