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]