Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.28;
Скачать: CL | DM;

Вниз

Зажигание клавиш   Найти похожие ветки 

 
Konsul   (2002-01-03 13:32) [0]

Как программно зажечь и потушить Num Lock, Caps Lock, Scroll Lock?


 
Alx2 ©   (2002-01-03 14:04) [1]

Пример описан в SDK.
Перевел на Паскаль.


procedure SetNumLock( bState : Boolean );
var keyState : TKeyboardState;
begin

GetKeyboardState(keyState);
if( (bState and ((keyState[VK_NUMLOCK] and 1)=0)) or
((not bState) and ((keyState[VK_NUMLOCK] and 1)=1) ))
then
begin
// Simulate a key press
keybd_event( VK_NUMLOCK,
$45,
KEYEVENTF_EXTENDEDKEY, 0 );

// Simulate a key release
keybd_event( VK_NUMLOCK,
$45,
KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,
0);
end
end;


По поводу ScrollLock:
везде замени NUMLOCK на Scroll.


 
Alx2 ©   (2002-01-03 14:15) [2]

Да, вдогонку.
Клавиша для CapsLock зовется VK_Capital.
Собственно, вот полный ответ на Ваш вопрос:

procedure SetSomeLock( bState : Boolean; what : integer );
var keyState : TKeyboardState;
Key : Word;
begin
Case what of
2 : Key := VK_CAPITAL;
3 : Key := VK_SCROLL
else
Key := VK_NUMLock;
end;
GetKeyboardState(keyState);
if( (bState and ((keyState[key] and 1)=0)) or
((not bState) and ((keyState[key] and 1)=1) ))
then
begin
// Simulate a key press
keybd_event( key,
$45,
KEYEVENTF_EXTENDEDKEY, 0 );

// Simulate a key release
keybd_event( key,
$45,
KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,
0);
end
end;


SetSomeLock(true,1) - включаем NumLock;
SetSomeLock(true,2) - включаем CapsLock;
SetSomeLock(true,3) - включаем ScrollLock;


 
Filat ©   (2002-01-11 20:08) [3]

Извините, но как её правильно зарегистрировать в процедурах.



Страницы: 1 вся ветка

Текущий архив: 2002.01.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
1-90243
Хлор
2002-01-08 05:43
2002.01.28
Здравствуйте! Пиплы подскажите как сохранить все форму с объектами наход. на ней


1-90257
ЛамерОК
2002-01-09 14:01
2002.01.28
Как сделать так чтобы edit не реагировал бипом на нажатие заперщенных клавиш?


1-90275
Mr. API
2001-12-27 19:31
2002.01.28
работа с архивами


6-90344
Darkf0x
2001-11-05 14:38
2002.01.28
socket!!!


4-90425
Gennady
2001-11-29 11:25
2002.01.28
Clipboard снова...