Einzelnen Beitrag anzeigen

Anonymous
(Gast)

n/a Beiträge
 
#1

Programm in den Autostart und wieder löschen!

  Alt 30. Jan 2003, 18:18
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:
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]
  Mit Zitat antworten Zitat