⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 key.htm

📁 对于学习很有帮助
💻 HTM
字号:
🔍 
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>应用程序敏感键的实现</title>
</head>

<body bgcolor="#FFFFFF" text="#000000">

<p align="center">　<font color="#0000c0"></p>

<h2 align="center">应用程序敏感键的实现 </font></h2>

<h3 align="center">浙江巨化集团公司物资装备分公司 <br>
胡小文 </h3>

<p><font color="#ffffff">----</font> 
在一个应用程序内部菜单、部件都可以设置敏感键。如在菜单中一般用Alt+F进入“文件”之类的子菜单。另外我们在桌面上设置的快捷方式里的快捷键，无论你任何时候按下你所设置的快捷键就会启动相应的应用程序。在多个正在运行的应用程序中如何利用一个按键动作迅速地回到你所需要的应用程序呢？这就需要利用敏感键（HOTKEY）的技术来实现。本文利用Delphi3.0开发工具来阐述该技术在应用程序的实现方法。 
</p>

<p><font color="#b00e">一、敏感键的设置 </font></p>

<p><font color="#ffffff">----</font> 在windows Api中有一个函数RegisterHotKey用于设置敏感键，它的调用方式如下： 
</p>

<pre>     BOOL RegisterHotKey(
     HWND hWnd,	//响应该敏感键的窗口句柄
     Int id,	//该敏感键的唯一标示符
     UINT fsModifiers,	//该敏感键的辅助按键
     UINT vk 	//该敏感键的键值
     );</pre>

<p>　<font color="#ffffff"></p>

<p>----</font> 其中敏感键的唯一标示符在Window中规定应用程序的取值范围为0x0000到0xBFFF之间，动态链接库的取值范围为0xC000到0xFFFF之间。为了保证其唯一性建议使用GlobalAddAtom函数来设置敏感键的唯一标示符。需要注意的是GlobalAddAtom还回的值是在0xC000到0xFFFF范围之间，为满足RegisterHotKey的调用要求，如果是在应用程序中设置敏感键可以利用GlobalAddAtom还回值减去0xC000。 
</p>

<p><font color="#ffffff">----</font> 敏感键的辅助按键包括Mod_Ctrl 、Mod_Alt、Mod_Shift,对于Windows兼容键盘还支持Windows键，即其键面上有Windows标志的那个键，其值为Mod_win。 
</p>

<p><font color="#ffffff">----</font> 在Delphi中建立一个“New Application”，在Tform1中的Private段中加入如下代码 
</p>

<pre> 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
   …</pre>

<p>　<font color="#b00e"></p>

<p>二、敏感键的响应 </font></p>

<p><font color="#ffffff">----</font> 
一旦敏感键设置成功，在程序应用过程中如果有相应敏感键被按下，Windows系统都会给你的应用程序发送一个消息WM_HOTKEY，不管你的应用程序是否为当前活动的。其中WM_HOTKEY消息的格式为： 
</p>

<pre>idHotKey = (int) wParam;
     // 该参数在设置系统级的敏感键有用,一般不予使用
fuModifiers = (UINT) LOWORD(lParam); 
    //敏感键的辅助按键
      uVirtKey = (UINT) HIWORD(lParam);
   //敏感键的键值</pre>

<p>　<font color="#ffffff"></p>

<p>----</font> 因为Windows系统只是把一个WM_HotKey的消息发送给应用程序,要完成具体的事情需要一个消息处理程序,也就是上面Private段里的procedure 
WMhotkeyhandle(var msg:Tmessage); message wm_hotkey; 过程, 它的代码如下(这里只是简单地把窗口最前面显示) 
</p>

<pre>  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;</pre>

<p>　<font color="#b00e"></p>

<p>三、敏感键的释放 </font></p>

<p><font color="#ffffff">----</font> 
在应用程序退出来之前应当把你所设置的敏感键释放掉,以释放其所占有的系统资源,这里需要调用两个Windows 
API函数UNREGISTERHOTKEY,它的调用格式如下: </p>

<pre>   BOOL UNREGISTERHOTKEY(
      HWND HWND,	//与敏感键关联的窗口句柄
      INT ID 	//敏感键的标示符
    );
  也就是说只要在FormClose事件中加入如下代码
   …
   unregisterhotkey(handle,hotkeyid);
   DeleteAtom(HotKeyID);
     …</pre>

<p>　<font color="#ffffff"></p>

<p>----</font> 到这里为止,你应当对敏感键技术有了全面的了解, 
以上的例子相当简单同时也没有提供必要的调用成功检测,可以根据具体情况加以完善,希望对你的开发过程会有所帮助. 
</p>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -