delphi 设置全局快捷键
type TForm1 = class(TForm) PRocedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); protected procedure hotykey(var msg:TMessage); message WM_HOTKEY; end; var Form