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

[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\CurrentVer sion\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]

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