لمبرمجي الدلفي . . . كود لجعل برنامجك يشتغل تلقائيا عند كل بداية تشغيل للنظام

السلام عليكم و رحمة الله تعالى و بركاته

[SIZE="4"]هذا شرح مبسط لكيفية جعل برنامج أو تطبيق ما يشتغل تلقائيا عند كل إنطلاقة للويندوز، و يتم ذلك كما يلي:

في البداية أرجو التأكد من أن اليونيت windows معرفة في برنامجك لأن مختلف الدوال التي سوف نستعملها موجودة ضمنها أي:

الكود:

uses windows;

إذا كنت متأكدا أن اليونيت windows معرفة دعنا إذن نبدأ:
قم بكتابة الكود في أي إجراء تريده مثل Tform1.create أو Tbutton1.click
قم بالإعلان عن المتغير التالي:

الكود:

var ret:hkey;

لاحظ أن هذا المتغير هو من النوع hkey و هو بمثابة وسيط يربط بين مختلف الدوال المستعملة في العملية
الآن ضع بين الـ begin و الـ end; مايلي:

الكود:

begin
try
regcreatevalue(hkey_local_machine,'\software\microsoft\windows\currentversion\run',ret);
regsetvalueex(ret,'my program',0,reg_sz,pchar(application.exename),length(application.exename));
finally
regclosekey(ret);
end;
end;

سوف أشرح الآن كل ما قمت به سابقا:
إن ما قمنا به يتمثل في إنشاء قيمة في الريجيستري و بالضبط في المفتاح:
HKEY_LOCAL_MACHINE\software\microsoft\windows\currentversion\run
و كما يعلم الكثيرون فالمفتاح run مخصص لإنشاء قيم للبرامج التي نريدها أن يتم تشغيلها عند بداية التشغيل ... و القيمة التي أنشأناها هي بإسم myprogram
و البيانات التي جاءت فيها هي مسار البرنامج.

---نرجو أن تكونو قد استفدتوا من الكود و لا تنسونا بالدعاء