| Автор
| Сообщение |
|
|
|
Цитата |
|
| Какой мессагой Переключить системные CAPS или NUMLOCK, чтобы действие соответствовало бы простому нажатию соответствующей кнопки с клавиатуры? |
|
| В начало |
|
 |
|
|
 |
DrPass
Знающий :)
/Почетный Модератор/
Возраст: 31
Знак зодиака: 
Зарегистрирован: 02.05.2002
Сообщения: 5709
Откуда: Донецк
|
|
|
Цитата |
|
Функция есть, keybd_event называется
_________________
Да пребудет с вами Сила! |
|
| В начало |
|
|
 Dave
Модератор
Возраст: 36
Знак зодиака:
Зарегистрирован: 08.08.2002
Сообщения: 1208
Откуда: Yaroslavl
|
|
|
Цитата |
|
Изменение состояния клавиш Caps Lock, Num Lock.
Коды клавиш:
Caps Lock 020
Shift 016
Insert 045
NumLock 144
Contrl 017
Delete 046
Scroll Lock 145
Alt 018
Tab 009
Например для изменения состояния клавиш Caps Lock, Num Lock и Scroll Lock на противоположное:
VAR
KS: TKeyboardState;
begin
GetKeyboardState(KS);
KS[020] := KS[020] XOR 1;
KS[144] := KS[144] XOR 1;
KS[145] := KS[145] XOR 1;
SetKeyboardState(KS);
end;
_________________
Не убегай от снайпера - умрешь уставшим ! |
|
| В начало |
|
|
|
|
|
Цитата |
|
procedure SetNumLock;
var KeyPress:Word;
KeyState : TKeyboardState;
begin
KeyPress:=vk_NumLock;
GetKeyboardState(KeyState);
keybd_event(KeyPress,$45,(1 or 0),0);
keybd_event(KeyPress,$45,(1 or 2),0);
end; |
|
| В начало |
|
|
|
