Buscar por:

Ligando/desligando a tecla caps lock

Código

//Inclua na seção uses: Windows { Esta função liga/desliga Caps Lock, conforme o parãmetro State }

procedure tbSetCapsLock(State: boolean); 

begin 

  if (State and ((GetKeyState(VK_CAPITAL) and 1) = 0)) or 

  ((not State) and ((GetKeyState(VK_CAPITAL) and 1) = 1)) then 

  begin 

  keybd_event(VK_CAPITAL, $45, KEYEVENTF_EXTENDEDKEY or 0, 0); 

  keybd_event(VK_CAPITAL, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); 

  end; 

end; 

{ Exemplos de uso: } 

tbSetCapsLock(true); { Liga Caps Lock } 

tbSetCapsLock(false); { Desliga Caps Lock } {Aparentemente, podemos usar esta mesma técnica para ligar/desligar Num Lock. Neste caso trocaríamos VK_CAPITAL por VK_NUMLOCK. Por incrível que pareça não funcionou (pelo menos no teste que fiz). E tem mais: isto está na documentação do (R)Windows.}