Как включить Caps LockDelphi , ОС и Железо , Клавиши
Как включить Caps 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.
Статья Как включить Caps Lock раздела ОС и Железо Клавиши может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
:: Главная :: Клавиши ::
|
