Пара идиотских вопросов :-)

WinXP



1. Как помигать лампочками на клаве?



2. Как сделать цветной анимированный курсор мыши? CreateCursor не умеет

 

Включить Caps:

Код (Text):

1.  
2. #include <windows.h>
3. #include <winuser.h>
4.  
5. int main(int argc, char* argv[])
6. {
7.     printf("Hello World!\n");
8.     keybd_event(VK_CAPITAL,0,0,NULL);
9.     return 0;
10. }

а ВЫКЛЮЧИТЬ НЕ ЗНАЮ КАК Num и Scroll тем же макаром

VK_NUMLOCK, VK_SCROLL.

В SDK рекомендуют использовать SendInput

 

по моему я такое с помощью SetKeyboardState() делал

 

Я не проверял, но вот тут нашёл по след адресу:

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988622290&n=15



вот вырезка, не проверял:





procedure SetNumLock(bState:Boolean);var KeyState : TKeyboardState;begin GetKeyboardState(KeyState); if ( (bState) and (not ((KeyState[VK_NUMLOCK] and 1)=1) ) or ( (not (bState)) and ((KeyState[VK_NUMLOCK] and 1)=1))) then // Simulate a key press keybd_event(VK_NUMLOCK, $45, (KEYEVENTF_EXTENDEDKEY or 0), 0); // Simulate a key release keybd_event( VK_NUMLOCK, $45, (KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP), 0);end;

 

_DEN_

Вот, помойму, рабочий вариант для лампочки NumLock (с другими, видимо, нужно делать аналогично...):

; Мигаем индикатором NumLock.

invoke keybd_event, 144, 0, 0, 0 ; нажимаем NumLock

invoke Sleep, 1000

invoke keybd_event, 144, 0, 2, 0 ; отпускаем NumLock



З.Ы.: Не успел ответить первым...

 

Мигание лампочками - животрепещущая тема, волнующая сердца многих... За пять минут - столько понимания и сочувствия!

 

Через keybd_event у меня загараются, но не гаснут



А как узнать, какие лампочки горят в данный момент?

 

[offtopic]

Глюк - Win2kSP4 после прогона моего кода для выключения Caps нужно нажать два раза. Винда не контролирует изменение лампочек юзерскими программами.

[/offtopic]

_DEN_

GetKeyboardState тебе в руки

 

Arvensis

)))



_DEN_

GetKeyboardState не поможет?

 

Хороший пример мигания есть в KmdKit

 

чтобы выключалось надо делать так (типа, до конца):

Код (Text):

1. invoke keybd_event,VK_CAPITAL,0,0,NULL
2. invoke keybd_event,VK_CAPITAL,0,KEYEVENTF_KEYUP,NULL

 

shoo

У меня не работает

 

нажимай ОК и смотри налампочку. отв. быстро - я щас домой ухожу...

_360610627__capslock.zip

 

один раз - зажгется, один раз - потухнет - может это непонятно: первый инвоук - нажать кнопку, второй - отпустить. на изменение статуса нужно нажатие и отпускание. не исключено, что достаточно отпускания (без нажатия) - некогда пробовать.

 

shoo

Верно, я гоню. Сенькс.