تحتاج بعض البرامج إلى الضبط للبدء عند التمهيد، لذلك كتبت دالة لتسهيل الاستخدام المستقبلي كمرجع لك.
انسخ رمز الكود كما يلي:
الإجراء TMainForm.SetAutoRun(ok: boolean);
فار
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('خدمة الرسائل القصيرة');
ShowMessage('تم الحذف بنجاح!')
نهاية؛
Reg.CloseKey; // مفتاح الإغلاق
أخيراً
Reg.Free;
نهاية؛
نهاية؛
مثال:
SetAutoRun(true); // بدء التسجيل
SetAutoRun(false); //حذف بدء التشغيل