Systemweiten Hotkey

[unattended]

hallo,

ich habe nach folgendem Code Hotkeys eingerichtet:

Delphi-Quellcode:

type 
  TForm1 = class(TForm) 
    procedure FormCreate(Sender: TObject); 
    procedure FormDestroy(Sender: TObject); 
  private 
    { Private declarations } 
      HotKeyID: Integer; 
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY; 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.WMHotKey(var Msg: TWMHotKey); 
begin 
  if Msg.HotKey = HotKeyID then 
    ShowMessage('Ctrl + Alt + P wurde gedrückt !'); 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
const 
  VK_P = $50; 
begin 
  HotKeyID := GlobalAddAtom(PChar(Application.Exename + '_Hotkey1')); 
  RegisterHotKey(Handle, HotKeyID, MOD_CONTROL + MOD_ALT, VK_P); 
end; 

procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  UnRegisterHotKey(Handle, HotKeyID); 
  GlobalDeleteAtom(HotKeyID); 
end;

Wenn ich nun

RegisterHotKey(Handle, HotKeyID, 0, VK_F12); verwende klappts nicht. Es passiert garnichts. Bei allen anderen F Tasten funktionierts nur bei F12 nicht. Warum ?