Как включить Caps Lock

Советы » Клавиши » Как включить 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.

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com