WinXP 1. Как помигать лампочками на клаве? 2. Как сделать цветной анимированный курсор мыши? CreateCursor не умеет
Включить Caps: Код (Text): #include <windows.h> #include <winuser.h> int main(int argc, char* argv[]) { printf("Hello World!\n"); keybd_event(VK_CAPITAL,0,0,NULL); return 0; } а ВЫКЛЮЧИТЬ НЕ ЗНАЮ КАК Num и Scroll тем же макаром VK_NUMLOCK, VK_SCROLL. В SDK рекомендуют использовать SendInput
Я не проверял, но вот тут нашёл по след адресу: 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 тебе в руки
чтобы выключалось надо делать так (типа, до конца): Код (Text): invoke keybd_event,VK_CAPITAL,0,0,NULL invoke keybd_event,VK_CAPITAL,0,KEYEVENTF_KEYUP,NULL
один раз - зажгется, один раз - потухнет - может это непонятно: первый инвоук - нажать кнопку, второй - отпустить. на изменение статуса нужно нажатие и отпускание. не исключено, что достаточно отпускания (без нажатия) - некогда пробовать.