Запуск программы по горячей клавише, даже когда открыты другие приложения. - VB
Формулировка задачи:
См. сабж.
Хотелось бы отдать 'Ctrl' + 'Scroll Lock' (к примеру) под запуск одного EXE-файла. Если видим рабочий стол, и на нём есть иконка к этой проге, то никаких проблем (параметр 'Быстрый вызов'). А если на столе нет иконки, и стол вообще не виден?!
Вроде где-то было на эту тему, но не помню где - не нашёл ни здесь, ни на VBNET.RU etc ...
Заранее всем спасибо.
Решение задачи: «Запуск программы по горячей клавише, даже когда открыты другие приложения.»
textual
Листинг программы
- Private Const PM_NOREMOVE = &H0
- Private Const WM_KEYUP = &H101
- Private bCancel As Boolean
- Private st As String
- Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" _
- (lpMsg As Msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, _
- ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
- '
- Private Sub Form_Load()
- Dim Message As Msg
- '
- Show
- bCancel = False
- st = ''
- '
- Do While Not (bCancel)
- If PeekMessage(Message, Me.hWnd, WM_KEYUP, WM_KEYUP, PM_NOREMOVE) Then
- st = st + Chr(Message.wParam) ' накапливаем нажатые символы в строке st
- End If
- DoEvents
- Loop
- '
- End Sub
- '
- '
- Private Sub Form_Unload(Cancel As Integer)
- bCancel = True
- Debug.Print st ' выводим строку st
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д