Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.039 c
1-1170682073
Nicky000
2007-02-05 16:27
2007.04.01
Печать ScrollBox


2-1173615519
Евгений 0232
2007-03-11 15:18
2007.04.01
несколько вопросов новичка


2-1172997048
mavrtuva
2007-03-04 11:30
2007.04.01
QuantumGrid


15-1173308821
mr 666
2007-03-08 02:07
2007.04.01
Где в WinXP


2-1173810247
TApp
2007-03-13 21:24
2007.04.01
TListView