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

[galag8]

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


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

[rober]

أخي الكريم
قم بوضع قيمة جديدة في الريجستري
في المسار HKEY_CURRENT_USER>Software>Microsoft>Windows>CurrentVersion>Run
أو المسار HKEY_LOCAL_MACHINE>Software>Microsoft>Windows>CurrentVersion>Run
خصائصها
الأسم : أي أسم تريد
النوع : string
data : المسار الذي وضعت فيه الملف التنفيذي (C:\test.exe)
طبعا يمكنك ذلك بإستخدام دلفي

[galag8]

شكرا جزيلا نعم هذه الطريقه تعمل
لكن كيف تتم برمجيا جربت هذا الكود

كود :

Procedure TForm1.Button1Click(Sender: TObject); var reg: TRegistry; begin Reg := nil; try reg := TRegistry.Create; reg.RootKey := HKEY_LOCAL_MACHINE; reg.LazyWrite := false; reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', false); reg.WriteString('My App', Application.ExeName); reg.CloseKey; reg.free; except if Assigned(Reg) then Reg.Free; end; end;

لكن المشكله ياتي خطاء
"failled to set data for 'My app'

[galag8]

هل هنالك فرق في استخدام هذا الكود مع نظام xp و vista

[STRELiTZIA]

هل هنالك فرق في استخدام هذا الكود مع نظام xp و vista

نعم... هي مسألة صلاحيات...
جرب تشغيل برنامجك بصلاحيات Administrator و ستنجح العملية.

الكود المرفق في الموضوع الآخر مجرب و يعمل على نظام Vista و Vista SP1 ايضا

ملاحظة : يمكنك تعطيل هذه الخيارات نهائيا كما ذكر الاخوة في المشاركات السابقة و لكن هذا يعرض جهازك للتلويث من طرف البرامج الضارة التي تستغل ثغرات النظام لتشغيل نفسها.

[galag8]

اخي جربت الكود بعد تعديل الصلاحيات حيث جعلته full control بس نفس الخطاء موجود

[STRELiTZIA]

اخي العزيز ارفق مثال لمحاولة ايجاد حل...
بالتوفيق ان شاء الله

[galag8]

تم إرفاق المثال

[STRELiTZIA]

اليك اخي مثال مرفق يعمل على منصة NT يعني Xp و Vista.
--
فقط غلى Vista بخيارات Administrator.
جرب ايضا بتشغيل المثال بنقر الزر الأيمن للماوس ثم التشغيل بخيارات Administrator

بالتوفيق ان شاء الله

[galag8]

شكرا جزيلا ويعطيك العافيه اخيرا البرنامج يعمل
لك جزيل الشكرا