RegisterHotKey Probleme

[Photoner]

ach ja. habe folgendes eingefügt:

Delphi-Quellcode:

procedure SetHotKey(aKey1, aKey2 : cardinal; aNumber : integer);
begin
  Form1.Memo1.Lines.Add(pchar('HotKey.' + IntToStr(aNumber)) + ' ---> ' + Form1.HotKeyList[aNumber].HotKeyName);


  Form1.HotKeyList[aNumber].HotKey := GlobalAddAtom(pchar('HotKey.' + IntToStr(aNumber)));
  if RegisterHotKey(Form1.Handle, form1.HotKeyList[aNumber].HotKey ,aKey1, aKey2) then Form1.Memo1.Lines.Add('Erfolg')
  else Form1.Memo1.Lines.Add('Fehler: '+IntToStr(GetLastError));
end;