注册热键

private id:integer; procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;{ Private declarations }//一个热键消息过程 格式如上 public { Public declarations } end;var Form1: TForm1;implementation//判断收到的消息id 为自己的then~~procedure TForm1.WMHotKey(var Msg : TWMHotKey);beginif msg.HotKey = id thenShowMessage('Alt+B键被按下!');end;{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin id:=GlobalAddAtom('wwwHotkey');//'Hotkey'名字可以随便取//自定义邑个字符串，返回邑个唯一的热键id RegisterHotKey(form1.Handle,id,MOD_ALT,ord('B'));//注册热键end;procedure TForm1.Winclsoe(Sender: TObject; var Action: TCloseAction);beginUnRegisterHotKey(handle,id);//取消热键GlobalDeleteAtom(id);//释放idend;