| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
А можно ли под 2000 помигать лампочками на клаве как в 98 [D6, Win2k, WinXP]
OlegM © (2003-03-24 11:38:00)Привет всем!
Вот собсно и все.
OlegM (2003-03-24 14:38:00) [1]Спасибочки !
ggsoft (2003-03-24 14:34:00) [2]Во-во, вопрос-то <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 13:41:00) [3]А программно как?
ZZ (2003-03-24 12:15:00) [4]Можно. Вот собственно и весь ответ :)
| |
