Форум: "Система";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];
ВнизПомогите с кодом... Найти похожие ветки
← →
BOBAKO (2002-12-28 19:44) [0]Всех с анступающим, всем счатстья и любви! :)
Как программно вкл NUm lock
caps lock
scroll lock
код на каждую лампочку :)
А то блин у меня есть код но только работает на 98 виндах а на ХР не пашет не поможете а?
Нужно.
← →
Cobalt (2002-12-28 20:42) [1]А какой у тебя код? А то подскажут еще то же самое...
← →
BOBAKO (2002-12-29 15:08) [2]Вот этот код я использую для 98
VAR
KS: TKeyboardState;
begin
GetKeyboardState(KS);
KS[020] := KS[020] XOR 1; //Caps Lock
KS[144] := KS[144] XOR 1; //Num Lock
KS[145] := KS[145] XOR 1; //Scroll Lock
SetKeyboardState(KS);
end;
а какой чтоб на 2000 и Хр работал?
← →
vuk (2002-12-29 20:00) [3]procedure SetKeyState( Key : word; Value : boolean );
begin
if (GetKeyState(Key) = 1) <> Value then
begin
keybd_event( Key, 0, KEYEVENTF_EXTENDEDKEY, 0);
keybd_event( Key, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;
end;
SetKeyState(VK_NUMLOCK, true);
SetKeyState(VK_CAPITAL, true);
SetKeyState(VK_SCROLL, true);
← →
BOBAKO (2002-12-30 10:24) [4]пАСИБО ЩАС ПРОВЕРЮ!
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c