vb6 - 使用Windows修改器设置全局热键

Question

我想在VB6中设置一个全局热键*，以监听键盘快捷键Win +O。

我发现了很多凌乱的示例，但没有涉及Windows键的示例。

设置热键的理想方法是什么？如何将Windows键作为修饰符？

*我追求全局快捷方式。这意味着我不必专注于应用程序即可工作。

Answer 1

Windows API中的RegisterHotKey将允许您注册全局热键。您还需要使用GlobalAddAtom获得唯一的热键标识符。有关详细信息，请参见this link。

Private Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
Private Declare Function GlobalAddAtom Lib "kernel32" Alias "GlobalAddAtomA" (ByVal lpString As String) As Integer

Private Const WM_HOTKEY As Long = &H312
Private Const MOD_WIN          As Long = &H8

  m_lHotkey = GlobalAddAtom("MyHotkey")
  Call RegisterHotKey(Me.hwnd, m_lHotkey, MOD_WIN, vbKeyO)

然后，您只需要在窗口上收听WM_HOTKEY消息即可。