كيف يتم حفظ تغيرات في ملف التنفيذ؟

[M_Mori2010]

اخي الكريم للحفظ في الرجيستري عليك بالتالي اولاً

في Users اكتب التالي :

كود :

registry

ثانياً في OnCreat للفورم اكتب التالي :

PHP كود :

var
regex:TRegistry;
Begin
regex:=TRegistry.Create;
regex.RootKey:=HKEY_CURRENT_USER;
try
regex.OpenKey('Software\Microsoft\delphi4arab,true); // هنا لفتح المجلد من قائمة User في الريجستري ,,
Edit1.text:=regex.Readstring('Edit1'); // هذا اسم الايديت المحفوظ ولجلب النص منه
except;
regex.Free;
end; 


ثالثاً للحفظ اكتب التالي في حدث OnClick في البوتون

PHP كود :

var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.rootkey:=HKEY_CURRENT_USER;
try
reg.Createkey('Software\Microsoft\MorvaC');
reg.OpenKey('Software\Microsoft\delphi4arab',false); //هذا للانشاء المجلد في User في الرجيستري
reg.writestring('Edit1',edit1.Text); // هذا لحفظ الايديت 
except;
reg.free;
end;
try
SndSond.Close;
except;
end;
end; 


للعلم انه يمكنك حفظ كل شي تختاره واذا كان المراد حفظه ليس نص فأعلمني لاحيطك بالطريقة ,,,

بالتوفيق

[nebchadelphi]

السلام عليكم
شكرا اخ M_Mori2010
هذه طريقة جيدة جدا وهو المطلوب تقريبا
بقي فقط في حالة ما كانت صورة هي المراد حفظها
مثال كخلفية لفورم، المهم صورة
شكرا والسلام عليكم

[kachwahed]

وعليكم السلام ورحمة الله
بنفس الطريقة يمكنك حفظ بيانات ثنائية Binary Data في مسجل النظام Registry
استخدم WriteBinaryData
http://www.delphi4arab.net/forum/showthr...p?tid=4215
http://www.delphi4arab.net/forum/showthr...p?tid=1017

كود :

http://www.swissdelphicenter.ch/torry/printcode.php?id=1260 http://stackoverflow.com/questions/2239326/delphi-write-string-to-reg-binary-registry-key

ولا أنصح بذلك، أفضّل استخدام الملفات

بالتوفيق.

[SMP3]

طريقة أخرى بدون الرجيستري أو ارفاق برنامج آخر :
أضف Command param لبرنامج بحيث يكون مثلا cUpdate للتعديل على البرنامج ..
في حفظ الصورة او النص قم بانشاء نسخة من البرنامج و قم بتشغيله باستخدام البرامتر cUpdate بدوره سيقوم بالتعديل على البرنامج (بعد غلق البرنامج 1 طبعا) ثم اعادة تشغيل البرنامج 1 ببرامتر مثلا cDelete لحذف النسخة التي قمت بنسخها
و بهذا فأنت لم تقم بالاستعانة بأي برنامج آخر أو ملف أو ريجستري
و يفضل ان يكون التعديل في الرسورس

[onexite]

اخي الكريم للحفظ في الرجيستري عليك بالتالي اولاً

ملاحظة مهمة
لا يتم تحرير الرجستري الا اذا حدث خطا في ( except; )

[M_Mori2010]

شكراً اخي للملاحظة وجزاك الله كل خير

ثانياً اخي nebchadelphi

للعلم ان

WriteString لكتابة النص
ReadString لقرائة لقرائة النص

WriteBool لكتابة قيم False و True
ReadBool للقرائة

WriteDate لحفظ تاريخ
ReadDate لقرائة تاريخ

WriteDateTime لحفظ تاريخ ووقت
ReadDateTime لقرائة تاريخ ووقت

هذا الذي اعلمه ويوجد المزيد لكن لا اعلم اذا كانت الصورة تحفظ في الريجستري

لكن اليك طريقة

لقرائة صورة اول قم بأنشائها في مجلد المشروع او اخترها من مجلد معين برمجياً واحفظ اسمها في الريجستري بنفس الطريقة هذا رقم واحد

ثانياً في
ضع Edit وفي حدث شينج عرف الصورة وحدد موقعها بحيث تكون كالاتي

كود :

img1.Picture.LoadFromFile(edt1.Text);

حدث OnCreat للفورم ضع

حدث القراءة من الريجستري وضع اسم الصورة في Edit عند التعديل في Edit يقوم من تلقاء نفسه بتغير الى الصورة المحددة بالتوفيق اخي

[nebchadelphi]

السلام عليكم
شكرا لكل الاخوة الكرام
لقد ابدعتم في مشاركاتكم
شكرا والسلام عليكم