Programm in den Autostart und wieder löschen!

Dieser Code stammt von Daniel B.:

uses Registry; Eintragen:

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

  Reg: TRegistry;

begin

  Reg := TRegistry.Create;

  try

    Reg.RootKey := HKEY_CURRENT_USER;

    Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);

    Reg.WriteString('NameDerAnwendung', ParamStr(0));

    Reg.CloseKey;

  finally

    Reg.Free;

  end;

end;

Löschen:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button2Click(Sender: TObject);

var

  Reg: TRegistry;

begin

  Reg := TRegistry.Create;

  try

    Reg.RootKey := HKEY_CURRENT_USER;

    Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);

    Reg.DeleteValue('NameDerAnwendung');

    Reg.CloseKey;

  finally

    Reg.Free;

  end;

end;

Programm einmalig mit Windows starten:

Falls das Programm nur einmalig in den Autostart soll, zum Beispiel beim Ändern von Einstellungen, die einen Windowsstart benötigen und das Programm anschließend mitgestartet werden soll, muss man im obigen Code

Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True); durch

Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', True); ersetzen. Dieser Tipp kommt von Kara.

[edit=Matze]Tipp von Kara hinzugefügt. Mfg, Matze[/edit]

Programm in den Autostart und wieder löschen!

Programm in den Autostart und wieder löschen!

Forumregeln