Delphi 注册系统热键
本帖最后由 apoer 于 2009-10-29 14:43 编辑//首先在 private或者public声明过程.
id:integer;
procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;
//过程如下:
procedure TForm1.WMHotKey(var Msg : TWMHotKey);
begin
if msg.HotKey = id then
ShowMessage('Ctrl+Alt+F9键被按下!');
end;
//在窗体初始化时候向系统注册
id:=GlobalAddAtom('Hotkey');//'Hotkey'名字可以随便取
RegisterHotKey(form1.Handle,id,MOD_CONTROL+MOD_ALT,VK_F9);
//MOD_ALT ALT键
//MOD_CONTROLCTRL键
//MOD_SHIFT SHIFT键
//MOD_WINWIN键
//窗体关闭的时候需要卸载注册的热键
UnRegisterHotKey(handle,id);
GlobalDeleteAtom(id);
多谢楼主，学习了！
页:
[1]