Delphi 注册系统热键

1. //首先在 private或者public声明过程.
   
2. id:integer;
   
3. procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;
   
4. //过程如下:
   
5. procedure TForm1.WMHotKey(var Msg : TWMHotKey);
   
6. begin
   
7. if msg.HotKey = id then
   
8. ShowMessage('Ctrl+Alt+F9键被按下!');
   
9. end;
   
10. //在窗体初始化时候向系统注册
    
11. id:=GlobalAddAtom('Hotkey');//'Hotkey'名字可以随便取
    
12. RegisterHotKey(form1.Handle,id,MOD_CONTROL+MOD_ALT,VK_F9);
    
13. //MOD_ALT ALT键
    
14. //MOD_CONTROL  CTRL键
    
15. //MOD_SHIFT SHIFT键
    
16. //MOD_WIN  WIN键
    
17. //窗体关闭的时候需要卸载注册的热键
    
18. UnRegisterHotKey(handle,id);
    
19. GlobalDeleteAtom(id);
    

复制代码

多谢楼主，学习了！