type
  TfmMain = class(TForm)
    ....
  private
    { Private declarations }
    Procedure WMHotKey(Var Message: TWMHotKey); Message WM_HotKey;
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;

implementation

{$R *.dfm}

Procedure TfmMain.WMHotKey(Var Message: TWMHotKey);
Begin
  If Message.HotKey = GlobalAddAtom('ZipScreen8') then Begin
    F8 키를 눌렀을 때 해야할 작업들
  End;

  If Message.HotKey = GlobalAddAtom('ZipScreen9') then Begin
    F9 키를 눌렀을 때 해야할 작업들
  End;
End;

procedure TfmMain.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Self.Handle, GlobalAddAtom('ZipScreen9'), 0, VK_F9);
  RegisterHotKey(Self.Handle, GlobalAddAtom('ZipScreen8'), 0, VK_F8);
end;

procedure TfmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnRegisterHotKey(Self.Handle, GlobalAddAtom('ZipScreen9'));
  UnRegisterHotKey(Self.Handle, GlobalAddAtom('ZipScreen8'));
end;


이 소스를 보고 윈도우7에서 핫키를 구현했는데
XP에서는 잘되던게 7에서는 안됩니다.

7에서 핫키구현하는 방법 좀 알려주세요.