[科普中国]-应用程序快捷键-

应用程序快捷键，就是打开系统偏好设置----键盘----快捷键----应用程序快捷键----点击‘’+‘’号----应用程序里选择你要的某个程序----鼠标点击键盘快捷键那个框，按你想要的快捷键。比如同时按下command Q--点击添加就可以了。

Windows应用程序的快捷键设置方法通过分析Windows API快捷键注册方法，实现了对应用软件的快捷键自动定义，并在工业控制领域得到了成功应用。1

快捷键定义查阅Windows API，函数RegisterHotKey用于设置快捷键。经过测试，发现通过该函数确实可以很方便地实现快捷键应用。

RegisterHotKey API：

BOOL RegisterHotKey(HWND hWnd，//窗口句柄Intid，//标示符UINT fsModifiers，//辅助按键UINT vk//键值)；

Windows规定：快捷键标示符在应用程序的取值范围在0x0000到0xBFFF之间，在动态链接库的取值范围为0xC000到0xFFFF之间。

为了保证快捷键标示符独一性，可使用GlobalAddAtom函数设置敏感键的独一标示符。需要注意：GlobalAddAtom返回值在0xC000到0xFFFF范围之间，为满足RegisterHotKey的调用要求，如果在应用程序中设置敏感键可利用GlobalAddAtom返回值减去0xC000。还需说明，快捷键的辅助按键包括Ctrl、Alt、Shift，对于Windows兼容键盘还支持Windows键(该键键面上有Windows标志)，其值为Mod_Win，。1

快捷键声明及实现在Delphi主程序窗体中加入如下代码：

private{ Private declarations }…QKeyid：integer；Procedure WMHotKeyHandle(var msg：Tmessage)；

message WM_HotKey； //响应敏感键按键消息…

在FormCreate事件中加入如下代码…

QKeyid：=GlobalAddAtom(pchar(“UDFQKey”))-$C000； //Windows约定需减$C000RegisterHotKey(handle，QKeyid，MOD_CONTROL，$42)； //注册快捷键为Ctrl+B…1

快捷键事件响应一旦快捷键设置成功，如果相应快捷键被按下，不论应用软件当前是否被激活，Windows系统都发送给应用程序WM_HOTKEY消息。

以下三行代码行分别获得三个变量值：

id：=(int) wParam；fsModifiers：=(UINT) LOWORD(lParam)； //辅助按键uk：=(UINT) HIWORD(lParam)； //键值

Windows系统发送WM_HotKey消息发送给应用程序后，需要在程序中设置相关事件予以响应，也即WMHotKeyHandle过程，以该应用软件获得消息后，弹出窗口为例，代码如下：

Procedure TForm1.Wmhotkeyhandle(var msg：Tmessage)；beginif(msg.LParamHi=$42)and(msg.lparamLo=MOD_CONTROL)thenbeginmsg.Result：=1；Application.MessageBox('截获快捷键'，‘’信息‘’，MB_OK)；end；end；

其中msg.Result：=1说明该消息已接收完毕。1

快捷键释放应用软件退出前，应把快捷键释放掉，以供Windows系统可能为其它系统提供资源。释放需要使用Windows API函数UnRegisterHotKey：

BOOL UNREGISTERHOTKEY(HWND HWND，//窗口句柄INT id//已经注册的快捷键标示符)；

因此，在FormClose事件中加入如下代码：

…unregisterhotkey(handle，hotkeyid)；DeleteAtom(HotKeyID)；…1

钩子函数的应用程序快捷键设置随着现代生活节奏的加快，计算机作为工作学习的必备品，人们对其的使用也越来越追求效率。针对软件环境和条件，采用了通过设置钩子函数的方法，应用键盘钩子的方式实现了使用快捷键实现软件的显示隐藏，从而实现了对应用程序的快捷操作。由此，解决了应用程序快捷操作不足、设置单一的难题，实现了应用程序的快速切换，满足了工作学习中的需求，重要的是可以通过使用钩子函数对应用程序进行各种操作的快捷键设置，极大地减少了工作量，提高了工作效率。2

设置键盘钩子设置钩子是通过API函数SetWindowsHookEx，函数声明：

SetWindowsHookEx(idHook，lpfn，hMod，dwThread－Id)，作用是将一个hook程序加载入Hook消息链，其中主要的参数是idHook，其设定了具体的钩子，这个参数可以是以下值：WH_KEYBOARD、WH_KEYBOARD_LL、WH_MOUSE、WH_MOUSE_LL等，其中参数：

**·**WH_KEYBOARD：一旦有键盘敲打消息(键盘的按下、键盘的弹起)，在这个消息被放在应用程序的消息队列前，WINDOWS将会调用你的钩子函数。钩子函数可以改变和丢弃键盘敲打消息。

**·**WH_MOUSE：每个鼠标消息在被放在应用程序的消息队列前，WINDOWS将会调用你的钩子函数。钩子函数可以改变和丢弃鼠标消息。

**·**WH_KEYBOARD_LL、WH_MOUSE_LL：最底层挂钩，可以捕获全部的系统按键信息、鼠标信息。

因此，可以根据需要采取相应的钩子，一般来说使用底层键盘钩子WH_KEYBOARD_LL为好。由此，钩子的设置代码为：

Private Const WH_KEYBOARD_LL=13&

m_Hook=SetWindowsHookEx(WH_KEYBOARD_LL，Addres－sOf KeyboardProc，_App．hInstance，0&)

其中，KeyboardProc就是设置具体控制操作的钩子函数程序。由此，钩子就设置完成了，每当有键盘消息传递时，就把消息传递给KeyboardProc这个钩子函数程序进行处理。2

键盘钩子结构体采用的键盘钩子是WH_KEYBOARD_LL，那么它的代码参数是HC_ACTION和 HC_NOREMOVE，其中HC_ACTION具体对应的参数值是wParam和lParam，而wParam和lParam表示的是具体的键盘消息，因此，可以利用API函数CopyMemory将内存中的键盘消息复制到键盘钩子的索引结构中。

Static kbdllhks As KBDLLHOOKSTRUCT

If nCode=HC_ACTION Then

Call CopyMemory(kbdllhks，ByVal lParam，Len(kbdllhks))

其中，kbdllhks就是定义的键盘消息的结构体，包含了具体的键盘信息，结构体的定义如下：

PrivateTypeKBDLLHOOKSTRUCT

vkCodeAsLong

scanCodeAsLong

flagsAsLong

timeAsLong

dwExtraInfoAsLong

EndType

在结构体中主要的参数是vkCode和flag，vkCode表示键盘的具体键码，flag代表键是否按下。因此，可以通过内存复制得到的kbdllhks，具体来说就是kbdllhks．vkCode来设置具体的快捷键。2

快捷键的设置快捷键说起来可以是键盘上的任何键，当然实际上也确实能够这样设置，但是最好是根据易用性的原则来进行具体的设置，而且要注意键设置的惟一性，即不要和Win－dows已有的系统键值冲突。因此，在采用Alt+某个键来进行设置。

Private Const LLKHF_ALTDOWN=&H20&

Private Const VK_a=&H41

If(kbdllhks．vkCode= VK_a)And CBool(kbdllhks．flags And

LLKHF_ALTDOWN)Then

……

End if

由此，只要按下Alt+a之后，就会响应设置的具体代码。当然，也可以对kbdllhks．vkCode设置不同的键值或设置其他的组合键来达到要求。2

应用程序句柄设置好快捷键之后，就需要对应用程序的控制进行程序设计，由于设置的是全局系统的钩子，也就是说键值满足快捷键的设置后就会触发，同时是对某个具体的应用程序进行控制操作，因此，需要在触发键盘钩子、满足快捷键键值条件后，响应具体的应用程序控制操作的设计。因此，可以通过API函数GetForegroundWindow得到当前窗口也就是当前应用程序的句柄，然后再通过使用API函数GetWindowText来得到当前窗口的标题，而应用程序的标题常常是固定的，那么就可以通过比对获得的窗口标题来

判断当前是否是需要控制的应用程序。由此，代码如下：

Dim s As String*255，flag As Integer，hwnd As Longhwnd=GetForegroundWindowGetWindowText hwnd，s，255flag=InStr(1，s，" HX System")

其中flag就表示了当前的窗口的标题是否为“HXSystem”，通过flag的值就可以对程序进行判断。2

应用程序控制设定的应用程序控制操作是显示和隐藏，使用的是API函数ShowWindow，通过使用刚才获得的窗口句柄，设置该函数的参数SW_HIDE和 SW_SHOWNOR－MAL，从而使得程序窗口隐藏或者显示原状。

Private Const SW_HIDE=0

Private Const SW_SHOWNORMAL=1

If gram=0then

If flag〈〉0Then

ShowWindow hwnd，SW_HIDE

gram=1

End i

Else

ShowWindow hwnd，SW_SHOWNORMAL

gram=0

End If2

本词条内容贡献者为:

王沛 - 副教授、副研究员 - 中国科学院工程热物理研究所