Текущий архив: 2007.04.01;
Скачать: CL | DM;
Вниз
Как программно нажать (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);
← →
novill © (2006-11-14 14:06) [3]> [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 и обновлялся я недавно, но этой статьи нет (
Страницы: 1 вся ветка
Текущий архив: 2007.04.01;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.03 c
