摘要： 第一帖测试下CSDN的效果、copy一份网络上的东西看看效果、、typeTForm1 = class(TForm) Label1: TLabel; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject);private { Private declarations } aatom:atom; procedure hotkey(var msg:tmessage);message wm_hotkey; //定义全局热键消息事件public { Public declarations }end;var 阅读全文