RE: Как зажечь NumLock

ambarka2 — Thu, 11 May 2006 15:06:33 GMT

это способ для вин9x

для NT другой нужен

[code]keybd_event (VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY, 0);
keybd_event (VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);[/code]

Как зажечь NumLock

stanmarket — Wed, 10 May 2006 08:04:30 GMT

Нужно программно включить индикатор NumLock. Нижеприведенный код почемуто не работает. Может кто в курсе? (ОС Win XP SP2, Delphi 7.0 Enterprise)

procedure TForm1.Button1Click(Sender: TObject);
VAR KS : TKeyboardState;

begin
GetKeyboardState(KS);
KS[144] := 1;
SetKeyboardState(KS);
end;