Registry Einträge unter Vista

[SaFu]

Tach Leutz

Wie es meine Überschrift sagt versuche ich Einträge, für den Autostart meines Programmes in die Registry unter Vista zu schreiben, leider haut das so nicht hin.

Delphi-Quellcode:

procedure DoAppToRun(RunName, AppName: string);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
    WriteString(RunName, AppName);
    CloseKey;
    Free;
  end;
end;

Delphi-Quellcode:

// Add app, Anwendung aufnehmen...
DoAppToRun('Programm', 'C:\Programs\XYZ\Program.exe');

Unter XP ist das Super, kann mir einer vielleicht veraten wo ich das unter Vista hinschreiben muss oder hat jemand ne andere Lösung.

Ein Ansatz wär noch eine Vernüpfung in den Ordner Autostart zulegen, aber das hat nicht ganz funktioniert bei mir, desahlb Registry.

Danke euch schonmal im voraus