Отследить сочетание клавиш...

[ScorpionX]

Как программно можно отследить нажатие сочетаний, типа: ALT+F4, SHIFT+CTRL, и т.д.?

[Zer]

Ну, например, GetKeyboardState. А дальше прверяй, какие клавиши нажаты...
F1-F24 --- &H70-&H87
Для распознания клавишь Shift, Control, Alt:
GetKeyState, GetAnsyKeyState
LShift - &HA0
... и т.д. ...

[tyomitch]

Обрабатывать Form_KeyDown ?

[Zer]

Это если форма активна...

[Amed]

И хуки на клавиши...

[HugoFlex]

Как я понял это связано с клав шпионом , у меня тоже был такой situation.
Есть примерчик:
Text1 и Timer1 в форму
Объявляшь API:

Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function GetAsyncKeystate Lib "user32" Alias "GetAsyncKeyState" (ByVal vkey As Long) As Integer

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

Private Sub Timer1_Timer()
Dim keystate As Long
Dim Shift As Long

Shift = GetAsyncKeystate(vbKeyShift)

If (Shift And &H1) = &H1 Then
Text1 = Text1 + " {Shift} "
End If

keystate = GetAsyncKeystate(vbKeyControl)
If (keystate And &H1) = &H1 Then
Text1 = Text1 + " {Ctrl} "
End If

keystate = GetAsyncKeystate(&HDE)
If (RUKEYSON = False And Shift = 0) And (keystate And &H1) = &H1 Then
    Text1 = Text1 + "'"
End If
   If (RUKEYSON = False And Shift <> 0) And (keystate And &H1) = &H1 Then
  Text1 = Text1 + Chr(34)
End If

Public Function RUKEYSON() As Boolean
    Dim hAppWnd As Long
    Dim ThreadID As Long
    Dim ThreadLayout As Long

hAppWnd = GetForegroundWindow

      ThreadID = GetWindowThreadProcessId(hAppWnd, ByVal 0&)
      ThreadLayout = GetKeyboardLayout(ThreadID)

If ThreadLayout = 67699721 Then
   RUKEYSON = False
ElseIf ThreadLayout = 68748313 Then
   RUKEYSON = True
End If
End Function

Дальше можешь обробатовать для остальных кнопок, c Alt+F4 тоже так же, но после проверки Alt'а проверяешь С помошью оператора OR F4.

[ScorpionX]

Это не связанно со шпионами, просто программ ка запускается вместо Эксплорера и надо отслеживать все виндовые сочетания...