07-09-2009, 12:53 PM (آخر تعديل لهذه المشاركة: 18-01-2010, 04:26 PM بواسطة kachwahed.)
أجل أخي يمكنك باستخدامها لكتابة أي نوع من البيانات، وهذا مثال لكتابة نص TEdit:
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
Add2Exe('EditText',Edit1.Text);
AlterExe;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
S: String;
begin
ExtractFromExe('EditText',S);
DelFromExe('EditText');
if S <> '' then
edit1.Text := S;
end;
اللهم احقن دماء المسلمين، لا تنسوهم بالدعاء...
كل من 1 user says قال شكرا ل kachwahed على المشاركة المفيدة1 user says Thank You to kachwahed for this post • Delphi4Us
(18-01-2018, 03:11 PM)S.FATEH كتب : اخ ابو معاذ ممكن استخدامات هذه الوحدة العملية اي على الواقع ماذا تفعل بها انت ..
أهلا أخي فاتح ،
من بين استعمالات هذه الوحدة :
1- يمكنك تخزين عدد مرات استعمال التطبيق و كتابة هذا العدد داخل الملف التنفيذي ، بحيث إذا قام المستخدم بنقل التطبيق إلى جاز آخر ، أو غير تاريخ الحاسوب ، هذا لا يؤثر في عدد مرات تنفيذ التطبيق.
2- يمكنك تخزين الرقم التسلسلي للقرص الصلب ، و كتابته داخل الملف التنفيذي ، هذا يضمن أن المستخدم ولو غير جهازه ، التطبيق لا يعمل.
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك. تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
منذ زمن بعيد قبل تعلمي الباسكال طرحت سؤالا وقلت
الا توجد طريقة لتغيير خصائص اي فئة او مكون او اداة دون تخزينها في قاعدة البيانات او ملف خارجي وانما تغيير القيمة في الملف التنفيذي مباشرة وجاءت الاجابة بالنفي وقتها ومن الاعذار ان الملف التنفيذي يعمل بالذاكرة او مفتوح ولن يقبل اي تعديل .
والان هاهي الاجابة على السؤال .
بالنسبة الى النقطة الثانية
إقتباس :[size=small]يمكنك تخزين الرقم التسلسلي للقرص الصلب ، و كتابته داخل الملف التنفيذي ، هذا يضمن أن المستخدم ولو غير جهازه ، التطبيق لا يعمل[/size]
اعتقد سيتم تخزنه كرقم او كنص ، كما لو انك خزنته في الخاصية Text مثلا للمكون Tedit او في متغير نصي او رقمي
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)
