form的Private: <br> procedure ChangeHotKey(var T: TWMHOTKEY);<br> message WM_HOTKEY;<br><br><br>create事件 RegisterHotKey(Handle,1,MOD_ALT,VK_SPACE); //可注册多个热键<br> ,第二个参数不同,1,2,3... 安定so on<br><br>procedure Tfrm_Main.ChangeHotKey(var T: TWMHOTKEY);<br>begin //热键消息处理<br>if (T.HotKey=1) and ((Hiword(TMessage(T).Lparam))=VK_SPACE) then<br> begin<br>end<br>else<br>begin<br>end; <br>end;<br><br>注销热键unRegisterHotKey(handle,1);