Einige Programme müssen so eingestellt werden, dass sie beim Booten starten. Deshalb habe ich eine Funktion geschrieben, um die zukünftige Verwendung als Referenz zu erleichtern.
Kopieren Sie den Codecode wie folgt:
procedure TMainForm.SetAutoRun(ok: boolean);
var
Reg:TRegistry; //Definieren Sie zunächst eine Variable Reg vom Typ TRegistry
beginnen
Reg:=TRegistry.Create;
try //Erstelle einen neuen Schlüssel
Reg.RootKey:=HKEY_LOCAL_MACHINE; //Setzen Sie den Root-Schlüssel auf HKEY_LOCAL_MACHINE
Reg.OpenKey('Software/Microsoft/Windows/CurrentVersion/Run',true);//Öffnen Sie einen Schlüssel
Wenn alles in Ordnung ist, dann fangen Sie an
Reg.WriteString('SMS Service',ExpandFileName(ParamStr(0))); //Schreiben Sie den Datennamen und den Datenwert in den Reg-Schlüssel
ShowMessage('Registrierung erfolgreich!');
Ende
sonst beginnen
reg.DeleteValue('SMS-Dienst');
ShowMessage('Erfolgreich gelöscht!')
Ende;
Reg.CloseKey; //Schließschlüssel
Endlich
Reg.Frei;
Ende;
Ende;
Beispiel:
SetAutoRun(true); //Registrierungsstart
SetAutoRun(false); //Start löschen