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
1 respuesta más de otro experto
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;