Encender y apagar leds del teclado.

[matabyte]

Buenas, como siempre con una pregunta

Sabéis alguna forma de encender en Delphi los LEDs del teclado? Me refiero a los "Scroll Lock", "Caps Locks" y el "Num Lock".

Gracias por la ayuda

[matabyte]

Me autorespondo y dejo la solución por si alguien también tiene el mismo problema

Código Delphi [-]
procedure ToggleNumLock(tecla:integer);
var
   KeyState: TKeyboardState;
begin
   //note: Use VK_CAPITAL for Caps Lock

   GetKeyboardState(KeyState) ;

   //simulate key events (down + up)
   if (KeyState[tecla] = 0) then
   begin
     Keybd_Event(tecla, 1, KEYEVENTF_EXTENDEDKEY or 0, 0) ;
     Keybd_Event(tecla, 1, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0) ;
   end
   else
   begin
     Keybd_Event(tecla, 0, KEYEVENTF_EXTENDEDKEY or 0, 0) ;
     Keybd_Event(tecla, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0) ;
   end;
end;

procedure ParpadearTimer(Sender: TObject);
begin
  parpadear.Enabled:=false;
     if radionumlock.Checked then ToggleNumLock(VK_NUMLOCK);
     if radiomayusculas.Checked then ToggleNumLock(VK_CAPITAL);
     if radioscroll.Checked then ToggleNumLock(VK_SCROLL);
  parpadear.Enabled:=true;
end;

[rgstuamigo]

Yo no veo diferencia entre esto

Código Delphi [-]
Keybd_Event(tecla, 1, KEYEVENTF_EXTENDEDKEY or 0, 0) ;
Keybd_Event(tecla, 1, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0) ;

y esto

Código Delphi [-]
Keybd_Event(tecla, 0, KEYEVENTF_EXTENDEDKEY or 0, 0) ;
Keybd_Event(tecla, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0) ;

Cual es la diferencia? Y por que el if?.
Otra observacion que veo es que estas deshabilitando tu Timer antes de ejecutar las demas lineas, lo cual implica que nunca se ejecutaran,
Te funciona asi??.
Saludos...