+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : مصادر دلفي مفتوحة تعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=14)
+--- الموضوع : الكتابة في الملف التنفيذي (exe) (/showthread.php?tid=1179)
الصفحات:
1
2
الكتابة في الملف التنفيذي (exe) - أبو معاذ - 05-09-2009
السلام عليكم و رحم الله وبركاته ،
أقدم لكم هذه الوحدة و اسمها EXEMOD وضيفتها إضافة أي شيئ للبنامج التنفيذي (طبعا المكتوب بدلفي).
للمعلومات عنها
كود :
http://www.torry.net/authorsmore.php?id=3984الكتابة في الملف التنفيذي (exe) - AL-MOB4RM3G - 07-09-2009
اولا بارك الله لك اخي الكريم
هل بإمكآنه ان يدمج برنامج تنفيذي دآخل برنآمج تنفيذي آخر قام هو ببرمجته ؟
الكتابة في الملف التنفيذي (exe) - kachwahed - 07-09-2009
أجل أخي يمكنك باستخدامها لكتابة أي نوع من البيانات، وهذا مثال لكتابة نص 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;RE: الكتابة في الملف التنفيذي (exe) - أبو معاذ - 22-05-2016
السلام عليكم ،
رفعت هذا الموضوع لأجل أن يراه الإخوة الجدد ،
و لمن لديه فكرة مغايرة ، فلا يبخل بها علينا.
RE: الكتابة في الملف التنفيذي (exe) - mohamed49 - 28-03-2017
بارك الله فيك
RE: الكتابة في الملف التنفيذي (exe) - S.FATEH - 18-01-2018
اخ ابو معاذ ممكن استخدامات هذه الوحدة العملية اي على الواقع ماذا تفعل بها انت ..
RE: الكتابة في الملف التنفيذي (exe) - أبو معاذ - 19-01-2018
(18-01-2018, 03:11 PM)S.FATEH كتب : اخ ابو معاذ ممكن استخدامات هذه الوحدة العملية اي على الواقع ماذا تفعل بها انت ..
أهلا أخي فاتح ،
من بين استعمالات هذه الوحدة :
1- يمكنك تخزين عدد مرات استعمال التطبيق و كتابة هذا العدد داخل الملف التنفيذي ، بحيث إذا قام المستخدم بنقل التطبيق إلى جاز آخر ، أو غير تاريخ الحاسوب ، هذا لا يؤثر في عدد مرات تنفيذ التطبيق.
2- يمكنك تخزين الرقم التسلسلي للقرص الصلب ، و كتابته داخل الملف التنفيذي ، هذا يضمن أن المستخدم ولو غير جهازه ، التطبيق لا يعمل.
RE: الكتابة في الملف التنفيذي (exe) - mohamed49 - 15-05-2018
لم افهم طريقة عملها هل تضيف مسار الملف التنفيذي الى edit1 ثم تخزن به النص؟
RE: الكتابة في الملف التنفيذي (exe) - Delphi4Us - 31-05-2018
منذ زمن بعيد قبل تعلمي الباسكال طرحت سؤالا وقلت
الا توجد طريقة لتغيير خصائص اي فئة او مكون او اداة دون تخزينها في قاعدة البيانات او ملف خارجي وانما تغيير القيمة في الملف التنفيذي مباشرة وجاءت الاجابة بالنفي وقتها ومن الاعذار ان الملف التنفيذي يعمل بالذاكرة او مفتوح ولن يقبل اي تعديل .
والان هاهي الاجابة على السؤال .
بالنسبة الى النقطة الثانية
إقتباس :[size=small]يمكنك تخزين الرقم التسلسلي للقرص الصلب ، و كتابته داخل الملف التنفيذي ، هذا يضمن أن المستخدم ولو غير جهازه ، التطبيق لا يعمل[/size]
اعتقد سيتم تخزنه كرقم او كنص ، كما لو انك خزنته في الخاصية Text مثلا للمكون Tedit او في متغير نصي او رقمي
RE: الكتابة في الملف التنفيذي (exe) - AX302 - 31-05-2018
السلام عليكم
فقط كملاحظة ان كنت تعتمد على تخزين الرقم التسلسلي في الريسورس فهدا يعرض برامجك للقرصنة.