บางโปรแกรมจำเป็นต้องตั้งค่าให้เริ่มทำงานตอนบูท ดังนั้นฉันจึงเขียนฟังก์ชันเพื่ออำนวยความสะดวกในการใช้งานในอนาคตเพื่อใช้อ้างอิงของคุณ
คัดลอกรหัสรหัสดังต่อไปนี้:
ขั้นตอน TMainForm.SetAutoRun (ตกลง: บูลีน);
var
Reg:TRegistry; //ขั้นแรกให้กำหนดตัวแปร Reg ของประเภท TRegistry
เริ่ม
Reg:=TRegistry.Create;
ลอง // สร้างคีย์ใหม่
Reg.RootKey:=HKEY_LOCAL_MACHINE; // ตั้งค่ารูทคีย์เป็น HKEY_LOCAL_MACHINE
Reg.OpenKey('Software/Microsoft/Windows/CurrentVersion/Run',true);//เปิดคีย์
ถ้าโอเคก็เริ่มเลย
Reg.WriteString('SMS Service',ExpandFileName(ParamStr(0))); //เขียนชื่อข้อมูลและค่าข้อมูลในคีย์ Reg
ShowMessage('ลงทะเบียนสำเร็จ!');
จบ
เริ่มอย่างอื่น
reg.DeleteValue('บริการ SMS');
ShowMessage('ลบสำเร็จ!')
จบ;
Reg.CloseKey; //ปิดคีย์
ในที่สุด
Reg.ฟรี;
จบ;
จบ;
ตัวอย่าง:
SetAutoRun(true); //การลงทะเบียนเริ่มต้น
SetAutoRun(false); //ลบการเริ่มต้นระบบ