Как программно нажать (Num,Caps,Scroll)Lock?

← →
novill © (2006-11-14 13:53) [0]

чтобы на клавиатуре лампочки засветились?

Такой код включает/выключает CapsLock, но лампочка не загорается (

procedure TForm1.Button1Click(Sender: TObject);
Var
KeyState: TKeyboardState;
Begin
GetKeyboardState(KeyState);
KeyState[VK_capital]:= KeyState[VK_capital] xor 1;
SetKeyboardState(KeyState);
End;

← →
Array © (2006-11-14 14:03) [1]

http://narod.yandex.ru/cgi-bin/yandmarkup?cluster=14&prog=0x2757571A&HndlQuery=848415328&PageNum=0&g=6&d=0&q0=7 21894624&p=

← →
novill © (2006-11-14 14:03) [2]

Вопрос снят.

keybd_event(VK_capital,extra,0,0); keybd_event(VK_capital,extra,KEYEVENTF_KEYUP,0);

> [1] Array © (14.11.06 14:03)
> http://narod.yandex.ru/cgi-bin/yandmarkup?cluster=14&prog=0x2757571A&Hndl
> Query=848415328&PageNum=0&g=6&d=0&q0=7 21894624&p=

Спасибо.
Одно вот странно - у меня установлен DelphiWorld и обновлялся я недавно, но этой статьи нет (

Как программно нажать (Num,Caps,Scroll)Lock? Найти похожие ветки