delphi4arab منتديات دلفي للعرب

الصفحات : 1 2

السلام عليكم
هو هل توجد طريقة بحيث يتم حفظ التغيرات في البرنامج التنفيذي
مثلا عند الضغط على button1 يتم تغيير اسم ال form1
وعند الضغط على button2 يتم حفظ التغير في اسم الفورم بحيث عند تشغيل البرنامج في المرة القادمة
يكون اسم الفورم الجديد وليس القديم
اذا وجدت طريقة تساعد على هذا يمكننا استعمالها في كلمات المرور وعدة أشياء.

PHP كود :
// لحفظ الاعدادات
  procedure save_ini( pl,data:string) ;
  var ini:tinifile;
  begin
  ini:=tinifile.Create('config_01.ini');
  try
   ini.WriteString('setting',pl,data);
  finally
    ini.Free;
  end;
  end; 

للاستخدام ( الحفظ)

PHP كود :
procedure TForm1.N9Click(Sender: TObject);
begin
TStyleManager.TrySetStyle('Metro Green');
save_ini('style','Metro Green')
end; 

القراءة

PHP كود :
ini:=tinifile.Create('config_01.ini');
try
// لتغيير الشكل
TStyleManager.TrySetStyle(ini.ReadString('setting','style','Windows'));
finally
  ini.Free;
end; 

شكرا لك onexite
هذه الطريقة فعالة
لكن كيف دون استعمال ملف ini.* يجب ان يتغير البرنامج من الداخل كأنك اجريت عليه تحديث على ملف التنفيذي فقط

طريقة سهلة : أرفق الملف الذي يحفظ اعدادات البرنامج في الرسورس
ثم في حدث حفظ التغييرات قم باعادة كتابة التغييرات في الرسورس

أو يمكنك التعديل في PE مباشرة لكنها تتطلب دقة عالية في التعديل و أي خطأ يمكن أن يسبب انهيار لبرنامجك
يمكنك الاطلاع على برنامجي VCL Style Extractor 0.3 لقد استخدمت الطريقتين : حاول الاطلاع على الجزء SetAsDefautStyle & UpdateStyle

شكرا لكن للأسف لم تصلني فكرتك
هل هناك مثال بسيط وواضح

السلام عليكم

راجع موضوع: الكتابة في الملف التنفيذي exe
http://www.delphi4arab.net/forum/showthr...p?tid=1803

b.m.abdelaziz كتب :
راجع موضوع: الكتابة في الملف التنفيذي exe

البرنامج يعمل هل يمكن الحفظ فيه ؟
اضن الملف الذي يعمل لا تستطيع التعديل عليه
انا اقترح يكون هناك برنامج مرفق كنسول وتناديه مع برامتر ( ويكون فيه دوال التعديل)

إقتباس :البرنامج يعمل هل يمكن الحفظ فيه ؟

نعم، هناك عدة طرق...

شكرا لك اخي B.M.AbdelAziZ
لقد جربت exe mode من قبل وهي فعالة جدا
فهي تفي بالغرض في حالة عدد قليل من المتغيرات
أما في حالة تغييرات كثيرة فأكيد تختلط الأمور
لكن هل من طرق أخرى أسهل

إقتباس :في حالة تغييرات كثيرة فأكيد تختلط الأمور

جهاز الحاسب صمم ليقوم بالأمور التي تختلط على الانسان Smile

ان لم تستطع غير طريقة تفكيرك، ماالذي عليك تغييره ؟

الصفحات : 1 2

nebchadelphi

onexite

nebchadelphi

SMP3

nebchadelphi

محمد عبد العزيز

onexite

محمد عبد العزيز

nebchadelphi

محمد عبد العزيز