Как включить 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.

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

• Эмуляция нажатия клавиш
• Установка ловушки для клавиатуры
• Убрать программу из списка Ctrl+Alt+Delete