Запуск программы по горячей клавише, даже когда открыты другие приложения. - VB

Узнай цену своей работы

Формулировка задачи:

См. сабж. Хотелось бы отдать 'Ctrl' + 'Scroll Lock' (к примеру) под запуск одного EXE-файла. Если видим рабочий стол, и на нём есть иконка к этой проге, то никаких проблем (параметр 'Быстрый вызов'). А если на столе нет иконки, и стол вообще не виден?! Вроде где-то было на эту тему, но не помню где - не нашёл ни здесь, ни на VBNET.RU etc ... Заранее всем спасибо.

Решение задачи: «Запуск программы по горячей клавише, даже когда открыты другие приложения.»

textual
Листинг программы
  1. Private Const PM_NOREMOVE = &H0
  2. Private Const WM_KEYUP = &H101
  3. Private bCancel As Boolean
  4. Private st As String
  5. Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" _
  6.   (lpMsg As Msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, _
  7.   ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
  8. '
  9. Private Sub Form_Load()
  10.   Dim Message As Msg
  11. '
  12.  Show
  13.   bCancel = False
  14.   st = ''
  15. '
  16.  Do While Not (bCancel)
  17.     If PeekMessage(Message, Me.hWnd, WM_KEYUP, WM_KEYUP, PM_NOREMOVE) Then
  18.       st = st + Chr(Message.wParam) ' накапливаем нажатые символы в строке st
  19.    End If
  20.     DoEvents
  21.   Loop
  22. '
  23. End Sub
  24. '
  25. '
  26. Private Sub Form_Unload(Cancel As Integer)
  27.     bCancel = True
  28.     Debug.Print st ' выводим строку st
  29. End Sub

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


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

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

5   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы