Programm in den Autostart und wieder löschen!

[Anonymous]

Dieser Code stammt von Daniel B.:

Delphi-Quellcode:

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:

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

Delphi-Quellcode:

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

durch

Delphi-Quellcode:

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

ersetzen. Dieser Tipp kommt von Kara.



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