Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 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.55 MB
Время: 0.03 c
1-87478
mace
2003-02-18 12:43
2003.02.27
service application (debugging, running :)


7-87713
Digitman
2002-12-25 13:52
2003.02.27
Взаимодействие с процессом Services.exe


3-87268
Andrio
2003-02-08 15:33
2003.02.27
Триггер на SQL для IB6


6-87581
DJ_Sedoy
2003-01-07 07:38
2003.02.27
Перебор активных соединений TServerSocket


8-87576
VVVaaa
2002-11-12 11:32
2003.02.27
Проблемка с выводом на image





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский