2 Respuestas
Respuesta de radaalvaro
Quieres mantener el nunlok activo, pero no comprendo en que momento
Si desde el inicio del computador, desde un programa.
Que legunaje necesitas usar, hay muchas posibilidades y tu pregunta es muy ambigua
Si desde el inicio del computador, desde un programa.
Que legunaje necesitas usar, hay muchas posibilidades y tu pregunta es muy ambigua
Respuesta de felixthecat
1
Debes agregar esta función en tu aplicación y ejecutarla cuando quieras asegurar que el numlock este activo (o al inicio de la aplicación):
procedure NumLockOn;
var
A: TKeyboardState;
begin
GetKeyboardState(A);
// si NumLock esta en OFF
if A[$90] = 0 then
begin
keybd_event($90, $90, 0, 0);
keybd_event($90, $90, KEYEVENTF_KEYUP , 0);
end;
end;
procedure NumLockOn;
var
A: TKeyboardState;
begin
GetKeyboardState(A);
// si NumLock esta en OFF
if A[$90] = 0 then
begin
keybd_event($90, $90, 0, 0);
keybd_event($90, $90, KEYEVENTF_KEYUP , 0);
end;
end;