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:

Código Delphi [-]
(* 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:

Código Delphi [-]
if IsCapsLockOn then
  ToggleCapsLock;

// Saludos