Закрытие неактивного окна по горячей клавише!

[TiG]

У меня есть моя прога и мне нужно, чтобы она закрывалась горячей кнопкой Q даже если она неактивна, но работает.
Помогите пожалуйста, желательно код.

[TiG]

В смысле программа неактивна, но работает)))

[A.A.Z.]

Можно через хук:
В модуль:

Код: Выделить всё

Public Const WH_KEYBOARD = 2

Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

Public hHook As Long

Public Function KeyboardProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If idHook < 0 Then
   KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
Else
   If wParam = Asc("Q") Then End
   KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
End If
End Function

В форму:

Код: Выделить всё

Private Sub Form_Load()
hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID)
End Sub

Private Sub Form_Unload(Cancel As Integer)
UnhookWindowsHookEx hHook
End Sub


Только не запускай код в VB - он тоже закроется

Также можно по таймеру отслеживать:
добавь таймер на форму

Код: Выделить всё

Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer

Sub Form_Load()
Timer1.Interval = 1
End Sub

Sub Timer1_Timer()
Select Case GetAsyncKeyState(Asc("Q"))
Case -32767
End
End Select
End Sub

[TiG]

Большое спасибо, все получилось)))