Desactivar Bloq Mayus

[hugao]

Tengo una aplicacion hecha en delphi 7 y necesito que cuando ella se ejecute, rebice si el bloq Mayús se encuentra activo y de ser asi lo desactive.

de antemano les doy la gracias por colaborarme

[roman]

Prueba este par de funciones:


(* Determina si la tecla Bloq. May. está activada o no *)
function IsCapsLockOn: Boolean;
begin
Result := Windows.GetKeyState(VK_CAPITAL) and $0001 = $0001;
end;

(* Conmuta el estado de la tecla Bloq. May. *)
(* *)
(* keybd_event simula la pulsación de una tecla *)
(* es necesario simular tanto que se oprime como *)
(* que se suelta *)
procedure ToggleCapsLock;
begin
keybd_event(VK_CAPITAL, 0, 0, 0);
keybd_event(VK_CAPITAL, 0, KEYEVENTF_KEYUP, 0);
end;


Ejemplo de uso:


if IsCapsLockOn then
ToggleCapsLock;


// Saludos