Текущий архив: 2003.03.27;
Скачать: CL | DM;
Вниз
Программное нажатие клавиши Найти похожие ветки
← →
Spider-Lex (2003-01-27 08:46) [0]Привет всем!Проблема.Нужно программно нажать клавишу(CapsLock,NumLock,ScrollLock).Благодарен.@lex.
← →
Akim2 (2003-01-27 09:51) [1]// Из какого-то сайта, уже не помню
// Simulate a CAPS LOCK key press
keybd_event(VK_CAPITAL, $45, (KEYEVENTF_EXTENDEDKEY or 0), 0);
// Simulate a key release
keybd_event(VK_CAPITAL, $45, (KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP), 0);
← →
MetalFan © (2003-01-28 09:54) [2]Удалено модератором
Примечание: Задай СВОЙ вопрос отдельно
← →
MetalFan © (2003-01-29 09:03) [3]Удалено модератором
← →
MetalFan © (2003-01-29 09:05) [4]Удалено модератором
← →
Spider-Lex © (2003-02-02 10:52) [5]keybd_event(VK_CAPITAL, $45, (KEYEVENTF_EXTENDEDKEY or 0), 0);
// Simulate a key release
keybd_event(VK_CAPITAL, $45, (KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP), 0); Не действует для NumLock-а.
Как?
← →
blackman © (2003-02-02 16:45) [6]Может быть так:
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;
Заменяйте VK_NUMLOCK на все что душе угодно
Страницы: 1 вся ветка
Текущий архив: 2003.03.27;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.035 c
