Tecla Caps Lock

[AryEl]

hola a todos:

Necesito saber si hay alguna forma de saber si esta activa o no la tecla de caps lock, y en caso de no estarlo, como la activo ?? Gracias....

[roman]

Este par de funciones te pueden servir:


// Determina si está activa
function CapsOn: Boolean;
var
KeyState: Integer;

begin
KeyState := GetKeyState(VK_CAPITAL);
Result := (KeyState and $01) <> 0;
end;

// Intercambia entre acitiva e inactiva
procedure Toggle;
begin
Keybd_Event(VK_CAPITAL, 0, KEYEVENTF_EXTENDEDKEY, 0);
Keybd_Event(VK_CAPITAL, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;


Creo que no hay una forma directa de activarla o desactivarla, sólo de intercambiar el estado de manera que para activarla (sin desactivarla en el caso de que ya estuviera activa) tendrías que hacer:


if not CapsOn then Toggle;


// Saludos