Не включается Num Lock

[Alex Cones]

Проблемы при включении Num Lock`а:
Пробовал и так:

Keybd_event(VK_NUMLOCK, 0, 0, 0);

И так:

GetKeyboardState(KeyState);
if (KeyState[VK_NUMLOCK] = 0) then
KeyState[VK_NUMLOCK] := 1;

Результат тот же. НЕ ВКЛЮЧАЕТСЯ!
А мне обязательно нужно включить Num Lock при включении формы.

[Alex Cones]

Переписал код на FormCreate и первый вариант теперь работает, но если Num был включен до запуска, то он выключается. Как сделать, что бы он при запуске формы был включен?

[Лукманов Александр]

с какого то сайта -

var
  abKeyState: array [0..255] of byte;
begin
  GetKeyboardState( Addr( abKeyState[ 0 ] ) );
  abKeyState[ VK_NUMLOCK ] := abKeyState[ VK_NUMLOCK ] or $01;
  SetKeyboardState( Addr( abKeyState[ 0 ] ) );
end;

[Terran]

Можете включить так:

Function NumState: String;
Begin
If Odd(GetKeyState(VK_NUMLOCK)) Then
NumState:='Включён'
Else
NumState:='Выключен';
End;

Procedure TForm1.FormCreate(Sender: TObject);
Begin
If NumState='Выключен' Then
Begin
Keybd_Event(VK_NUMLock,0,0,0);
Keybd_Event(VK_NUMLock,0,KEYEVENTF_KEYUP, 0);
End;
End;

[Alex Cones]

Большое спасибо, Terran!
Правда, в FormCreate в самом начале нужно вызвать NumState, но это не важно. Спасибо.

[Новиков Сергей]

procedure TForm1.Button1Click(Sender: TObject);
var
KeyState: TKeyboardState;
begin
GetKeyboardState(KeyState);
if (KeyState[VK_NUMLOCK]=0) then
begin
// Имитировать релиз "NUMLOCK"
Keybd_Event(VK_NUMLOCK, 1, KEYEVENTF_EXTENDEDKEY or 0, 0);
// Имитировать клавушу "NUMLOCK"
Keybd_Event(VK_NUMLOCK, 1, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end
else
begin
Keybd_Event(VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
Keybd_Event(VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;
end;