![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
![]() 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.... |
#2
|
||||
|
||||
Este par de funciones te pueden servir:
Código:
// 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; Código:
if not CapsOn then Toggle; |
![]() |
|
|
![]() |
|