Acum căutați în dosarul "Startup". Dacă ați specificat numele fișierului dvs. în funcție, ar trebui să fie deja acolo :).
Observați cele trei linii evidențiate. Cu ajutorul acestora puteți găsi calea către orice dosar de sistem specificând constanta corespunzătoare în funcția SHGetSpecialFolderLocation: CSIDL_DESKTOP pentru desktop, CSIDL_FONTS pentru fonturi etc.
Și acum, o cale mai ușoară este să scrieți cheia în secțiunea Run din registry. Mai jos, într-o singură procedură se combină și se creează și se elimină.
procedură ChangeReg (StrName: ShortString; șterge: boolean);
var
reg: TRegistry;
începe
Reg: = zero;
încerca
reg: = TRegistry.Create;
reg.RootKey: = HKEY_LOCAL_MACHINE;
reg.LazyWrite: = false;
reg.OpenKey ("Software \ Microsoft \ Windows \ CurrentVersion \ Run", false);
dacă nu șterge apoi reg.WriteString (StrName, Application.ExeName)
altul reg.DeleteValue (StrName);
reg.CloseKey;
reg.free;
cu excepția
dacă este alocat (Reg), apoi Reg.
se încheie;
se încheie;
procedura TForm1.AddBtnClick (expeditor: TObject);
începe
ChangeReg ("Aplicația mea", false); // Adăugați la Backup automat
se încheie;
procedura TForm1.RemoveBtnClick (expeditor: TObject);
începe
ChangeReg ("Aplicația mea", true); // eliminați de la pornire
se încheie;
Asta e tot. Dacă acest lucru nu a reușit - scrieți, vă vom ajuta.
Articole similare
Trimiteți-le prietenilor: