Ez az eljárás a gomb megnyomására bekapcsolja a Caps Lock (nagybetűs) módot, majd ismételt
megnyomására kikapcsolja azt.

procedure TForm1.Button1Click(Sender: TObject);
Var KeyState : TKeyboardState;
begin
   GetKeyboardState(KeyState);
   if (KeyState[VK_CAPITAL] = 0) then
     KeyState[VK_CAPITAL] := 1 // Bekapcsolja a Caps Lockot
   else
     KeyState[VK_CAPITAL] := 0; //Kikapcsolja a Caps Lockot
     SetKeyboardState(KeyState);
end;

A Num Lock és a Scoll Lock ki- és bekapcsolása ugyanezzel az eljárással oldható meg csak a
VK_CAPITAL helyére VK_NUMLOCK kerül illetve a VK_SCROLL kerül.