📄 020.htm
字号:
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI专题--API应用-->应用程序敏感键的实现</TITLE>
<META NAME="keywords" CONTENT=" DELPHI专题--API应用 应用程序敏感键的实现">
<META NAME="description" CONTENT=" - DELPHI专题--API应用 - 应用程序敏感键的实现">
<style>
<!--
#page {position:absolute; z-index:0; left:0px; top:0px}
.tt3 {font: 9pt/12pt "宋体"}
.tt2 {font: 12pt/15pt "宋体"}
a {text-decoration:none}
a:hover {color: blue;text-decoration:underline}
-->
</style>
</HEAD>
<a href="index2.html">返回</a>
<body text="#000000" aLink=#9900ff link=#006699 vLink=#006699 bgcolor="#FFFFFF" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3">
<TABLE WIDTH="100%" CELLPADDING=10 CELLSPACING=0 BORDER=0>
<TR>
<TD class="tt2" bgcolor="#F5F8F8" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷体_GB2312">应用程序敏感键的实现</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
<p><span style="font-size: 9pt"><font color="#ffffff">----</font>
在一个应用程序内部菜单、部件都可以设置敏感键。如在菜单中一般用Alt+F进入“文件”之类的子菜单。另外我们在桌面上设置的快捷方式里的快捷键，无论你任何时候按下你所设置的快捷键就会启动相应的应用程序。在多个正在运行的应用程序中如何利用一个按键动作迅速地回到你所需要的应用程序呢？这就需要利用敏感键（HOTKEY）的技术来实现。本文利用Delphi3.0开发工具来阐述该技术在应用程序的实现方法。
</span></p>
<BR>
<p><span style="font-size: 9pt"><font color="#b00e">一、敏感键的设置 </font></span></p>
<BR>
<p><span style="font-size: 9pt"><font color="#ffffff">----</font> 在windows Api中有一个函数RegisterHotKey用于设置敏感键，它的调用方式如下：
</span></p>
<BR>
<pre><span style="font-size: 9pt"> BOOL RegisterHotKey(
HWND hWnd, //响应该敏感键的窗口句柄
Int id, //该敏感键的唯一标示符
UINT fsModifiers, //该敏感键的辅助按键
UINT vk //该敏感键的键值
);</span></pre>
<BR>
<p> </p>
<BR>
<p><span style="font-size: 9pt"><font color="#ffffff">----</font>
其中敏感键的唯一标示符在Window中规定应用程序的取值范围为0x0000到0xBFFF之间，动态链接库的取值范围为0xC000到0xFFFF之间。为了保证其唯一性建议使用GlobalAddAtom函数来设置敏感键的唯一标示符。需要注意的是GlobalAddAtom还回的值是在0xC000到0xFFFF范围之间，为满足RegisterHotKey的调用要求，如果是在应用程序中设置敏感键可以利用GlobalAddAtom还回值减去0xC000。
</span></p>
<BR>
<p><span style="font-size: 9pt"><font color="#ffffff">----</font>
敏感键的辅助按键包括Mod_Ctrl 、Mod_Alt、Mod_Shift,对于Windows兼容键盘还支持Windows键，即其键面上有Windows标志的那个键，其值为Mod_win。
</span></p>
<BR>
<p><span style="font-size: 9pt"><font color="#ffffff">----</font> 在Delphi中建立一个“New
Application”，在Tform1中的Private段中加入如下代码 </span></p>
<BR>
<pre><span style="font-size: 9pt"> private
{ Private declarations }
hotkeyid :integer;
procedure WMhotkeyhandle(var msg:Tmessage);
message wm_hotkey; //响应敏感键按键消息
在FormCreate事件中加入如下代码
…
hotkeyid:=GlobalAddAtom(pchar
(“UserDefineHotKey”))-$C000;
//减去$C000是为了保证取值范围的限制
registerhotkey(handle,hotkeyid,
MOD_CONTROL or mod_Altt,$41);
//敏感键为ctrl+Alt+A
…</span></pre>
<BR>
<p> </p>
<font color="#b00e">
<BR>
<p><span style="font-size: 9pt">二、敏感键的响应 </span></p>
</font>
<BR>
<p><span style="font-size: 9pt"><font color="#ffffff">----</font>
一旦敏感键设置成功，在程序应用过程中如果有相应敏感键被按下，Windows系统都会给你的应用程序发送一个消息WM_HOTKEY，不管你的应用程序是否为当前活动的。其中WM_HOTKEY消息的格式为：
</span></p>
<BR>
<pre><span style="font-size: 9pt">idHotKey = (int) wParam;
// 该参数在设置系统级的敏感键有用,一般不予使用
fuModifiers = (UINT) LOWORD(lParam);
//敏感键的辅助按键
uVirtKey = (UINT) HIWORD(lParam);
//敏感键的键值</span></pre>
<BR>
<p> </p>
<BR>
<p><span style="font-size: 9pt"><font color="#ffffff">----</font> 因为Windows系统只是把一个WM_HotKey的消息发送给应用程序,要完成具体的事情需要一个消息处理程序,也就是上面Private段里的procedure
WMhotkeyhandle(var msg:Tmessage); message wm_hotkey; 过程, 它的代码如下(这里只是简单地把窗口最前面显示)
</span></p>
<BR>
<pre><span style="font-size: 9pt"> procedure TForm1.Wmhotkeyhandle
(var msg:Tmessage);
begin
if (msg.LParamHi=$41) and
(msg.lparamLo=MOD_CONTROL or mod_Alt) then
begin
msg.Result:=1; //该消息已经处理
application.BringToFront;
//把窗口最前面显示
end;
end;</span></pre>
<BR>
<p> </p>
<font color="#b00e">
<BR>
<p><span style="font-size: 9pt">三、敏感键的释放 </span></p>
</font>
<BR>
<p><span style="font-size: 9pt"><font color="#ffffff">----</font>
在应用程序退出来之前应当把你所设置的敏感键释放掉,以释放其所占有的系统资源,这里需要调用两个Windows
API函数UNREGISTERHOTKEY,它的调用格式如下: </span></p>
<BR>
<pre><span style="font-size: 9pt"> BOOL UNREGISTERHOTKEY(
HWND HWND, //与敏感键关联的窗口句柄
INT ID //敏感键的标示符
);
也就是说只要在FormClose事件中加入如下代码
…
unregisterhotkey(handle,hotkeyid);
DeleteAtom(HotKeyID);
…</span></pre>
<BR>
<p> </p>
<BR>
<BR>
<hr color="#EE9B73" size="1" width="94%">
</TD>
</TR>
</table>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -