Текущий архив: 2003.05.22;
Скачать: CL | DM;
Вниз
А можно ли под 2000 помигать лампочками на клаве как в 98 Найти похожие ветки
← →
OlegM © (2003-03-24 11:38) [0]Привет всем!
Вот собсно и все.
← →
ZZ © (2003-03-24 12:15) [1]Можно. Вот собственно и весь ответ :)
← →
OlegM © (2003-03-24 13:41) [2]А программно как?
← →
ggsoft © (2003-03-24 14:34) [3]Во-во, вопрос-то <A можно ли...> - можно, не знаю как в 98, но WXP, W2000 следующий код работает. (Обработчик OnTimer)
да и 98 будет работать, только без NUMLOCK-овской, если, конечно, ты эти лампочки имел ввиду - [NUMLOCK, SCROLL LOCK, CAPS LOCK] или другие..?
var
LightKey: array[0..2] of Integer = (VK_NUMLOCK, VK_CAPITAL, VK_SCROLL);
procedure TForm2.Timer1Timer(Sender: TObject);
procedure PressKey(KeyToPress: Integer);
begin
keybd_event(KeyToPress, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
keybd_event(KeyToPress, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;
begin
Randomize;
PressKey(LightKey[Random(High(LightKey) + 1)]);
end;
← →
OlegM © (2003-03-24 14:38) [4]Спасибочки !
Страницы: 1 вся ветка
Текущий архив: 2003.05.22;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.011 c
