+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يتم حفظ تغيرات في ملف التنفيذ؟ (/showthread.php?tid=4705)
الصفحات:
1
2
كيف يتم حفظ تغيرات في ملف التنفيذ؟ - M_Mori2010 - 08-11-2012
اخي الكريم للحفظ في الرجيستري عليك بالتالي اولاً
في 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 - 08-11-2012
السلام عليكم
شكرا اخ M_Mori2010
هذه طريقة جيدة جدا وهو المطلوب تقريبا
بقي فقط في حالة ما كانت صورة هي المراد حفظها
مثال كخلفية لفورم، المهم صورة
شكرا والسلام عليكم
كيف يتم حفظ تغيرات في ملف التنفيذ؟ - kachwahed - 08-11-2012
وعليكم السلام ورحمة الله
بنفس الطريقة يمكنك حفظ بيانات ثنائية Binary Data في مسجل النظام Registry
استخدم WriteBinaryData
http://www.delphi4arab.net/forum/showthread.php?tid=4215
http://www.delphi4arab.net/forum/showthread.php?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 - 08-11-2012
طريقة أخرى بدون الرجيستري أو ارفاق برنامج آخر :
أضف Command param لبرنامج بحيث يكون مثلا cUpdate للتعديل على البرنامج ..
في حفظ الصورة او النص قم بانشاء نسخة من البرنامج و قم بتشغيله باستخدام البرامتر cUpdate بدوره سيقوم بالتعديل على البرنامج (بعد غلق البرنامج 1 طبعا) ثم اعادة تشغيل البرنامج 1 ببرامتر مثلا cDelete لحذف النسخة التي قمت بنسخها
و بهذا فأنت لم تقم بالاستعانة بأي برنامج آخر أو ملف أو ريجستري
و يفضل ان يكون التعديل في الرسورس
كيف يتم حفظ تغيرات في ملف التنفيذ؟ - onexite - 09-11-2012
M_Mori2010 كتب :اخي الكريم للحفظ في الرجيستري عليك بالتالي اولاًملاحظة مهمة
لا يتم تحرير الرجستري الا اذا حدث خطا في ( except; )
كيف يتم حفظ تغيرات في ملف التنفيذ؟ - M_Mori2010 - 09-11-2012
شكراً اخي للملاحظة وجزاك الله كل خير
ثانياً اخي nebchadelphi
للعلم ان
WriteString لكتابة النص
ReadString لقرائة لقرائة النص
WriteBool لكتابة قيم False و True
ReadBool للقرائة
WriteDate لحفظ تاريخ
ReadDate لقرائة تاريخ
WriteDateTime لحفظ تاريخ ووقت
ReadDateTime لقرائة تاريخ ووقت
هذا الذي اعلمه ويوجد المزيد لكن لا اعلم اذا كانت الصورة تحفظ في الريجستري
لكن اليك طريقة
لقرائة صورة اول قم بأنشائها في مجلد المشروع او اخترها من مجلد معين برمجياً واحفظ اسمها في الريجستري بنفس الطريقة هذا رقم واحد
ثانياً في
ضع Edit وفي حدث شينج عرف الصورة وحدد موقعها بحيث تكون كالاتي
كود :
img1.Picture.LoadFromFile(edt1.Text);حدث OnCreat للفورم ضع
حدث القراءة من الريجستري وضع اسم الصورة في Edit عند التعديل في Edit يقوم من تلقاء نفسه بتغير الى الصورة المحددة بالتوفيق اخي
كيف يتم حفظ تغيرات في ملف التنفيذ؟ - nebchadelphi - 09-11-2012
السلام عليكم
شكرا لكل الاخوة الكرام
لقد ابدعتم في مشاركاتكم
شكرا والسلام عليكم