RegisterHotKey註冊系統熱鍵

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
  TFmMain = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
        procedure WMHOTKEY(var Msg:TWMHOTKEY); message WM_HOTKEY;
  public
    { Public declarations }
    HotKey_F06_ID:Integer;
  end;var
  FmMain: TFmMain;implementation{$R *.DFM}procedure TFmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnRegisterHotKey(FmMain.Handle,HotKey_F06_ID);
  GlobalDeleteAtom(HotKey_F06_ID);
end;procedure TFmMain.FormCreate(Sender: TObject);
begin
    HotKey_F06_ID:=GlobalAddAtom('_Global_HotKey_F06_ID_')-$C000;
     //1,就vk_f6不行,其它都行
    RegisterHotKey(FmMain.Handle,HotKey_F06_ID,0,vk_f6);//VK_f6=>vk_f10 oK
end;procedure TFmMain.WMHOTKEY(var Msg: TWMHOTKEY);
begin
    if Msg.HotKey=HotKey_F06_ID then
  Begin   ShowMessage('F6');
  end;
end;RegisterHotKey註冊系統熱鍵
就vk_f6不行,其它都行,
有甚麼辦法解決