كيف اجعل برنامجي يشتغل مع بداية تشغيل ويندوز مباشر

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

هناك طريقتان لجعل البرنامج يعمل فى بداية التشغيل

الطريقة الاولى عن طريق دوال الـAPI وهى طريقة طويلة ومعقدة نسبياً والطريقة الثانية عن طريق كائن Script وهى طريقة لاتتعدى 3 سطور وطريقتها كالاتى

Private Sub Form_Load()
Dim WSH As Object
Set WSH = CreateObject("Wscript.Shell")
WSH.regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\ProgramName", ProgramPath, "REG_SZ"
End Sub

ضع مكان كلمة ProgramName اسم القيمة التى سيتم انشاؤها فى الريجيسترى وضع مكان ProgramPath مسار وجود البرنامج المطلوب تشغيله وستجد ماتريد ان شاء الله :rolleyes:

لو اردت طريقة دوال الـAPI فاخبرنى فى نفس الموضوع وسأضعها لك :rolleyes:

مشكووووور جدا

بس القيمة التى سيتم انشاؤها فى الريجيسترى ما فهمت ايش تقصد بيها

ومشكور تاني

اخى العزيز اسم القيمة هو اسم ملف يتم عمله فى الريجيسترى حيث انك لاتستطيع عمل ماتريد الا من خلال الريجيسترى والمفتاح HKLM\Software\Microsoft\Windows\CurrentVersion\Run هو مسار قائمة StartUp فى الريجيسترى و HKLM اختصار HKEY_LOCAL_MACHINE واسم القيمة انت الذى تحدده وهى ليست اسماء معينة فاختر الاسم الذى تريده بشرط ان تكون تعرفه حتى تستطيع الوصول اليه وحذفه وقتما تشاء....ارجو ان تكون قد وضحت الان واتمنى ان تخبرنى بما اذا كان الكود عمل لك ماتريد ام لا :rolleyes:

مشكور اخي الكريم