2013年7月17日

Delphi注册热键

摘要： type TForm1 = class(TForm) btn1: TButton; btn2: TButton; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); private public //关键位置:建立一个子程序 处理wm_hotkey的消息 procedure gethotkeymsg(var msg:TMessage); message wm_hotkey; end;var Form1: TForm1;implementatio... 阅读全文

posted @ 2013-07-17 20:28 shellcode 阅读(326) 评论(0) 推荐(0)

导航