السلام عليكم و رحم الله وبركاته ،
أقدم لكم هذه الوحدة و اسمها
EXEMOD وضيفتها إضافة أي شيئ للبنامج التنفيذي (طبعا المكتوب بدلفي).
للمعلومات عنها
كود :
http://www.torry.net/authorsmore.php?id=3984
اولا بارك الله لك اخي الكريم
هل بإمكآنه ان يدمج برنامج تنفيذي دآخل برنآمج تنفيذي آخر قام هو ببرمجته ؟
أجل أخي يمكنك باستخدامها لكتابة أي نوع من البيانات، وهذا مثال لكتابة نص 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;
السلام عليكم ،
رفعت هذا الموضوع لأجل أن يراه الإخوة الجدد ،
و لمن لديه فكرة مغايرة ، فلا يبخل بها علينا.
اخ ابو معاذ ممكن استخدامات هذه الوحدة العملية اي على الواقع ماذا تفعل بها انت ..
(18-01-2018, 03:11 PM)S.FATEH كتب : [ -> ]اخ ابو معاذ ممكن استخدامات هذه الوحدة العملية اي على الواقع ماذا تفعل بها انت ..
أهلا أخي فاتح ،
من بين استعمالات هذه الوحدة :
1- يمكنك تخزين عدد مرات استعمال التطبيق و كتابة هذا العدد داخل الملف التنفيذي ، بحيث إذا قام المستخدم بنقل التطبيق إلى جاز آخر ، أو غير تاريخ الحاسوب ، هذا لا يؤثر في عدد مرات تنفيذ التطبيق.
2- يمكنك تخزين الرقم التسلسلي للقرص الصلب ، و كتابته داخل الملف التنفيذي ، هذا يضمن أن المستخدم ولو غير جهازه ، التطبيق لا يعمل.
لم افهم طريقة عملها هل تضيف مسار الملف التنفيذي الى edit1 ثم تخزن به النص؟
منذ زمن بعيد قبل تعلمي الباسكال طرحت سؤالا وقلت
الا توجد طريقة لتغيير خصائص اي فئة او مكون او اداة دون تخزينها في قاعدة البيانات او ملف خارجي وانما تغيير القيمة في الملف التنفيذي مباشرة وجاءت الاجابة بالنفي وقتها ومن الاعذار ان الملف التنفيذي يعمل بالذاكرة او مفتوح ولن يقبل اي تعديل .
والان هاهي الاجابة على السؤال .
بالنسبة الى النقطة الثانية
إقتباس :[size=small]يمكنك تخزين الرقم التسلسلي للقرص الصلب ، و كتابته داخل الملف التنفيذي ، هذا يضمن أن المستخدم ولو غير جهازه ، التطبيق لا يعمل[/size]
اعتقد سيتم تخزنه كرقم او كنص ، كما لو انك خزنته في الخاصية Text مثلا للمكون Tedit او في متغير نصي او رقمي
السلام عليكم
فقط كملاحظة ان كنت تعتمد على تخزين الرقم التسلسلي في الريسورس فهدا يعرض برامجك للقرصنة.