请问：如何自定义快捷键？

Question

整个系统响应，在handlemsg要做什么都可以type
  TForm1 = class(TForm)
...public
    procedure HandleMsg(var Msg:TMessage);message WM_HOTKEY;
procedure TForm1.FormCreate(Sender: TObject);
begin
      if RegisterHotKey(Handle,$1000,MOD_CONTROL,VK_RETURN)=true then
      begin
        showmessage('ik');
        //UnRegisterHotKey(Handle,$1000);
      end;
end;
procedure TForm1.HandleMsg(var Msg: TMessage);
begin
        showmessage('hello');
end;  
给分！！ 

Answer 1

有个API函数
BOOL RegisterHotKey(
    HWND hWnd, // window to receive hot-key notification
    int id, // identifier of hot key
    UINT fsModifiers, // key-modifier flags
    UINT vk  // virtual-key code
   );
然后在程序里响应WM_HOTKEY,根据wParam的值是否等于id值来执行相应的动作