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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы