Запуск программы по горячей клавише, даже когда открыты другие приложения. - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д