应用程序敏感键的实现计算机等级考试

文章作者 100test 发表时间 2009:07:07 21:54:08
来源 100Test.Com百考试题网


  ----在一个应用程序内部菜单、部件都可以设置敏感键。如在菜单中一般用Alt F进入“文件”之类的子菜单。另外我们在桌面上设置的快捷方式里的快捷键,无论你任何时候按下你所设置的快捷键就会启动相应的应用程序。在多个正在运行的应用程序中如何利用一个按键动作迅速地回到你所需要的应用程序呢?这就需要利用敏感键(HOTKEY)的技术来实现。本文利用Delphi3.0开发工具来阐述该技术在应用程序的实现方法。
  一、敏感键的设置
  ----在windowsApi中有一个函数RegisterHotKey用于设置敏感键,它的调用方式如下:
  BOOLRegisterHotKey(
  HWNDhWnd,响应该敏感键的窗口句柄
  Intid,该敏感键的唯一标示符
  UINTfsModifiers,该敏感键的辅助按键
  UINTvk该敏感键的键值
  ----其中敏感键的唯一标示符在Window中规定应用程序的取值范围为0x0000到0xBFFF之间,动态链接库的取值范围为0xC000到0xFFFF之间。为了保证其唯一性建议使用GlobalAddAtom函数来设置敏感键的唯一标示符。需要注意的是GlobalAddAtom还回的值是在0xC000到0xFFFF范围之间,为满足RegisterHotKey的调用要求,如果是在应用程序中设置敏感键可以利用GlobalAddAtom还回值减去0xC000。
  ----敏感键的辅助按键包括Mod_Ctrl、Mod_Alt、Mod_Shift,对于Windows兼容键盘还支持Windows键,即其键面上有Windows标志的那个键,其值为Mod_win。
  ----在Delphi中建立一个“NewApplication”,在Tform1中的Private段中加入如下代码
  private
  {Privatedeclarations}
  hotkeyid:integer.
  procedureWMhotkeyhandle(varmsg:Tmessage).
  messagewm_hotkey.响应敏感键按键消息
  在FormCreate事件中加入如下代码
  …
  hotkeyid:=GlobalAddAtom(pchar
  (“UserDefineHotKey”))-$C000.
  减去$C000是为了保证取值范围的限制
  registerhotkey(handle,hotkeyid,
  MOD_CONTROLormod_Altt,$41).
  敏感键为ctrl Alt A
  …
  二、敏感键的响应
  ----一旦敏感键设置成功,在程序应用过程中如果有相应敏感键被按下,Windows系统都会给你的应用程序发送一个消息WM_HOTKEY,不管你的应用程序是否为当前活动的。其中WM_HOTKEY消息的格式为:
  idHotKey=(int)wParam.
  该参数在设置系统级的敏感键有用,一般不予使用fuModifiers=(UINT)LOWORD(lParam).
  敏感键的辅助按键uVirtKey=(UINT)HIWORD(lParam).
  敏感键的键值
  ----因为Windows系统只是把一个WM_HotKey的消息发送给应用程序,要完成具体的事情需要一个消息处理程序,也就是上面Private段里的
  procedureWMhotkeyhandle(varmsg:Tmessage).messagewm_hotkey.过程,它的代码如下(这里只是简单地把窗口最前面显示)
  procedureTForm1.Wmhotkeyhandle
  (varmsg:Tmessage).
  begin
  if(msg.LParamHi=$41)and
  (msg.lparamLo=MOD_CONTROLormod_Alt)then
  begin
  msg.Result:=1.该消息已经处理
  application.BringToFront.
  把窗口最前面显示
  end.
  end.
  三、敏感键的释放
  ----在应用程序退出来之前应当把你所设置的敏感键释放掉,以释放其所占有的系统资源,这里需要调用两个WindowsAPI函数UNREGISTERHOTKEY,它的调用格式如下:
  BOOLUNREGISTERHOTKEY(
  HWNDHWND,与敏感键关联的窗口句柄
  INTID敏感键的标示符
  ).
  也就是说只要在FormClose事件中加入如下代码
  …
  unregisterhotkey(handle,hotkeyid).
  DeleteAtom(HotKeyID).
  …
  ----到这里为止,你应当对敏感键技术有了全面的了解,以上的例子相当简单同时也没有提供必要的调用成功检测,可以根据具体情况加以完善,希望对你的开发过程会有所帮助.

相关文章


计算机二级辅导:DELPHI数据库别名计算机等级考试
Delphi控件的使用经验计算机等级考试
Delphi简介计算机等级考试
如何移动没有标题的窗体计算机等级考试
应用程序敏感键的实现计算机等级考试
水晶报表在Delphi中应用计算机等级考试
Delphi状态栏动态进度条实现代码计算机等级考试
显示鼠标指示地方的全部文本计算机等级考试
Delphi窗口分割并动态调节其大小计算机等级考试
澳大利亚华人论坛
考好网
日本华人论坛
华人移民留学论坛
英国华人论坛