Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.017 c