Beberapa program perlu diatur untuk dimulai saat boot, jadi saya menulis sebuah fungsi untuk memfasilitasi penggunaan di masa mendatang untuk referensi Anda.
Copy kode kodenya sebagai berikut:
prosedur TMainForm.SetAutoRun(ok: boolean);
var
Reg:TRegistry; //Definisikan terlebih dahulu sebuah variabel Reg dengan tipe TRegistry
mulai
Reg:=TRegistry.Create;
coba //Buat kunci baru
Reg.RootKey:=HKEY_LOCAL_MACHINE; //Setel kunci root ke HKEY_LOCAL_MACHINE
Reg.OpenKey('Perangkat Lunak/Microsoft/Windows/CurrentVersion/Run',true);//Buka kunci
jika oke maka mulailah
Reg.WriteString('SMS Service',ExpandFileName(ParamStr(0))); //Tulis nama data dan nilai data di kunci Reg
ShowMessage('Pendaftaran berhasil!');
akhir
yang lain dimulai
reg.DeleteValue('Layanan SMS');
ShowMessage('Berhasil dihapus!')
akhir;
Reg.CloseKey; //Tutup kunci
Akhirnya
Reg.Gratis;
akhir;
akhir;
contoh:
SetAutoRun(benar); //Permulaan pendaftaran
SetAutoRun(false); //Hapus startup