Нужно перехватить нажатия клавиш вне программы. Как?
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 5
• Страница 1 из 1
- ксойд
- Начинающий
- Сообщения: 1
- Зарегистрирован: 31.03.2003 (Пн) 3:02
Нужно перехватить нажатия клавиш вне программы. Как?
ксойд » 31.03.2003 (Пн) 3:06
Нужно перехватить нажатия клавиш вне программы. Как?
- ALX_2002
- Мега гуру
- Сообщения: 2054
- Зарегистрирован: 25.11.2002 (Пн) 20:03
Re: Нужно перехватить нажатия клавиш вне программы. Как?
ALX_2002 » 04.04.2003 (Пт) 21:16
Это в модуль.
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub main()
Do
Sleep 2
If GetAsyncKeyState(27) Then MsgBox "Вы нажали esc": End
DoEvents
Loop
End Sub
Вот... Простенький код.
Пашет безотказно..., когда делаешь прогу резидента
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub main()
Do
Sleep 2
If GetAsyncKeyState(27) Then MsgBox "Вы нажали esc": End
DoEvents
Loop
End Sub
Вот... Простенький код.
Пашет безотказно..., когда делаешь прогу резидента
Сообщений: 5
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: Google-бот и гости: 140