Главная страница
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
8-1154428046
AbrosimovA
2006-08-01 14:27
2007.04.01
Как реализовать сохранение кадров DVD-фильма в bmp-файл


2-1173255912
Jemadar
2007-03-07 11:25
2007.04.01
Повторный запуск и DDE


2-1173434026
pasha star
2007-03-09 12:53
2007.04.01
сортировка в ListBox


15-1173289712
MsGuns
2007-03-07 20:48
2007.04.01
В передверьи праздника


15-1173418402
sportman
2007-03-09 08:33
2007.04.01
Акт внедрения программного продукта