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;