Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.016 c
1-70389
Arch-vile
2003-05-10 22:39
2003.05.22
TList и свойства его Item ов


7-70535
Calm
2003-03-24 16:19
2003.05.22
Как узнать запущен ли процесс с заданным именем?


4-70574
Smok_er
2003-03-21 13:29
2003.05.22
Вопрос про system tray icon


3-70151
Igor Mish
2003-05-01 20:44
2003.05.22
Что такое CalcOp1 в Rave ?


1-70327
Maximov
2003-05-06 01:58
2003.05.22
RichEdit. как определить номер строки над которой курсор мыши?