如和用Delphi注册系统热键？

Question

首先，定义一个变量HotKeyID: integer; 然后，这样写
  HotKeyID := GlobalAddAtom(PChar('hello')) - $C000;
  RegisterHotKey(Self.Handle, HotKeyID, MOD_CONTROL, $4D);
最后，还需要
  UnregisterHotKey(Self.Handle, HotKeyID);
  DeleteAtom(HotKeyID);

Answer 1

在FromCreate(...)事件中加入    id := GlobalAddAtom('ShadowHotkey');
    //热键为 Ctrl + <-
    RegisterHotKey(Handle,id,MOD_CONTROL,VK_LEFT);这是我从BCB中改过来的

Answer 2

maxchou(草蜢仔)的补充：
还要定义一个全局变量
var
 id:integer;