möchte Hotkey per default setzen - aber wie?

[Coder]

ich möchte einenn systemweiten Hotkey setzen und
habe mich an folgende Anleitung gehalten. http://www.swissdelphicenter.ch/de/showcode.php?id=147

Wenn ich die Tastenkombination zur Laufzeit in das Hotkey Feld eingebe und OK drücke wird er registriert - es funktioniert.


Doch ich will ihn nun manuell - beim Laden einer INI datei eintragen und registrieren.

WIE mache ich das?

bei meinem Code für die LOAD INI Prozedur habe ich folgendes erstellt.
Doch ohne Wirkung.

Woran liegt es?

Delphi-Quellcode:

  private
  globa : Byte;
    { Private-Deklarationen }
              Hotkey_id : Integer;
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;

...

procedure TForm1.load_ini_BtnClick(Sender: TObject); 
var 
  Key : Word; 
  Modifiers: UINT; 
    myINI : TINIFile; 
    pfad: string; 
begin 
form1.HotKey1.HotKey := TextToShortCut((myINI.ReadString('Settings', 'Hotkey', 'Default'))); 
Hotkey_id := GlobalAddAtom('MyHotKey_1'); 
RegisterHotKey(Handle, Hotkey_id, Modifiers, Key); 
 
... 
 
    myINI.Free; 
end;