Mein Programm beim Windowsstart Automatisch starten

[Nightshade]

Delphi-Quellcode:

uses Registry;

procedure AddToAutoStart(KeyName, Filename : string);
var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', false);
  Reg.WriteString(KeyName, Filename);
  Reg.Free;
end;

procedure RemoveFromAutoStart(KeyName: string);
var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', false);
  Reg.DeleteValue(KeyName);
  Reg.Free;
end;

[Edit] Zu langsam [/Edit]