关于全局热键(50分)

一生骄傲 · 2002-09-26

各位高手，小弟想请问一下，怎样在一个程序中注册两个全局热键。我会一个的但是两个的好象不怎么会。 比如，我做一个程序，想按F9时窗口隐藏，按F10时窗口出现。最好是有例程。谢谢了！

kkyy · 2002-09-26

RegisterHotkey UnRegisterHotkey procedure WMhotkeyhandle(var msg:Tmessage);message WM_HOTKEY; procedure TForm1.WMhotkeyhandle(var msg:Tmessage); begin end;

zhangkan · 2002-09-26

RegisterHotKey函数原型及说明： BOOL RegisterHotKey(   HWND hWnd,         // window to receive hot-key notification   int id,            // identifier of hot key   UINT fsModifiers,  // key-modifier flags   UINT vk            // virtual-key code); 参数 id为你自己定义的一个ID值，对一个线程来讲其值必需在0x0000 - 0xBFFF范围之内，对DLL来讲其值必需在0xC000 - 0xFFFF 范围之内，在同一进程内该值必须唯一 参数 fsModifiers指明与热键联合使用按键，可取值为：MOD_ALT MOD_CONTROL MOD_WIN MOD_SHIFT 参数 vk指明热键的虚拟键码 unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs; type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);   private     HotKey1:word;     { Private declarations }     procedure HotKey(Var msg:TWMHotKey);message WM_HotKey;   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin   HotKey1:=GlobalAddAtom('nnss');   RegisterHotKey(handle,HotKey1,0,VK_F9); //热键是F9 end; procedure TForm1.FormDestroy(Sender: TObject); begin UnRegisterHotKey(handle,HotKey1) end; procedure TForm1.HotKey(var msg: TWMHotKey); begin   showmessage('hi'); end; end.

jsxjd · 2002-09-27

以下是F9,F10完整实现： unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);   private     { Private declarations }   public     { Public declarations }     procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;   end; var   Form1: TForm1;   F9_ID,F10_ID:integer; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin   if GlobalFindAtom('MyF9HotKey') = 0 then   begin     F9_ID:=GlobalAddAtom('MyF9HotKey');     RegisterHotKey(handle,F9_id,0,VK_F9);   end;   if GlobalFindAtom('MyF10HotKey') = 0 then   begin     F10_ID:=GlobalAddAtom('MyF10HotKey');     RegisterHotKey(handle,F10_id,0,VK_F10);   end ; end; procedure TForm1.FormDestroy(Sender: TObject); begin   UnRegisterHotKey(handle,F9_id);   GlobalDeleteAtom(F9_id);   UnRegisterHotKey(handle,F10_id);   GlobalDeleteAtom(F10_id); end; procedure TForm1.WMHotKey(var Msg: TWMHotKey); begin   if msg.HotKey = F9_id then form1.hide;   if msg.HotKey = F10_id then form1.show; end; end.

crazymoon · 2002-09-27

找个现成的VCL控件好了，何必如此麻 烦。如果找不到，我可以发个给你。

一生骄傲 · 2002-09-29

接受答案了.

关于全局热键(50分)

一生骄傲

Unregistered / Unconfirmed

kkyy

Unregistered / Unconfirmed

zhangkan

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

crazymoon

Unregistered / Unconfirmed

一生骄傲

Unregistered / Unconfirmed

Similar threads