Hogyan bosszulhat az ellenség?
Most nézze meg az "Indítás" mappában. Ha megadta a fájl nevét a függvényben, máris ott kell lennie :).
Megjegyzés: a három dedikált vonalak. Ezek segítségével megtalálja az utat olyan rendszer meghatározott mappába SHGetSpecialFolderLocation tartozó funkció állandó: CSIDL_DESKTOP asztalon CSIDL_FONTS betűtípusok, stb
És most könnyebb a kulcsot írni a rendszerleíró adatbázis Futtatás részéhez. Az alábbiakban egy eljárás alatt van, létrehozása és eltávolítása.
eljárás ChangeReg (StrName: ShortString; törlés: logikai);
var
reg: TRegistry;
kezdődik
Reg: = nulla;
megpróbál
reg: = TRegistry.Create;
reg.RootKey: = HKEY_LOCAL_MACHINE;
reg.LazyWrite: = false;
reg.OpenKey ("Szoftver \ Microsoft \ Windows \ CurrentVersion \ Run", hamis);
ha nem törli, akkor reg.WriteString (StrName, Application.ExeName)
Egyéb reg.DeleteValue (StrName);
reg.CloseKey;
reg.free;
kivéve
ha Assigned (Reg), majd Reg.Free;
végén;
végén;
eljárás TForm1.AddBtnClick (Sender: TObject);
kezdődik
ChangeReg ("Saját alkalmazás", hamis); // Add to Auto Backup
végén;
eljárás TForm1.RemoveBtnClick (Sender: TObject);
kezdődik
ChangeReg ('Saját alkalmazás', igaz); // eltávolítás indításkor
végén;
Ez minden. Ha ez nem sikerült - írjunk, segítünk neked.