Главная страница
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.041 c
4-1163585456
MegaVolt
2006-11-15 13:10
2007.04.01
Как в WinXP отключить визульные эффекты для отдеьно взятого окна.


2-1173855331
forward
2007-03-14 09:55
2007.04.01
Файл в расшареной папке


1-1171015510
DelphiLexx
2007-02-09 13:05
2007.04.01
FreeAndNil


2-1173613570
НОВИЧЕК2007
2007-03-11 14:46
2007.04.01
Работа программы на другом компьютере.


2-1173694820
Gyrus
2007-03-12 13:20
2007.04.01
Количество записей с Null полем