[F] Eigenes Programm in Autostart schreiben

[Sector]

Ah sorry war n bisschen verpeilt ^^

Der vorherige Code is n bissel älter ^^

Also so sieht es atm aus:

procedure TForm1.CheckBox1Click(Sender: TObject);
var
 Registry: TRegistry;
begin
if Checkbox1.Checked then
 begin
  Registry:=TRegistry.Create;
  Registry.RootKey := HKEY_LOCAL_MACHINE;
  Registry.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
  Registry.WriteString(ExtractFileName(Application.ExeName), Application.ExeName);
  Registry.CloseKey;
  Registry.Destroy;
 end;
end;