+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كتابة مصفوفة بايتات على ملف تنفيذي (/showthread.php?tid=8517)
كتابة مصفوفة بايتات على ملف تنفيذي - mohamed49 - 12-03-2017
السلام عليكم
احتاج طريقة لكتابة مصفوفة بايتات على ملف تنفيذي حيث عجزت عن عمل تغيير لبعض المعرفات في الملف التنفيذي الهدف مثال الملف التنفيذي الهدف يكون بهذا الشكل
كود :
program ArrayToRun;
type
ByteArray = array of Byte;
const
arrRunPE: array[0..3] of Byte = ($55,$8B,$EC,$81);
test: array[0..4] of Byte = ($4D, $5A, $50, $00, $02);
var
RunPEProc: procedure(Buffer: ByteArray);
begin
RunPEProc := @arrRunPE;
RunPEProc(@test);
end.كود :
arrRunPE: array[0..3] of Byte = ($55,$8B,$EC,$81);
وبايتات الملف هنا
test: array[0..4] of Byte = ($4D, $5A, $50, $00, $02);والسلام عليكم
RE: كتابة مصفوفة بايتات على ملف تنفيذي - Agmcz - 13-03-2017
وعليكم السلام
تفضل مثال يوضح ما تبحث عنه
كتابة
كود :
arrRunPE و Exe في منطقة Resources
والإستعانة بدوال النظام LoadResource, LockResourceبالتوفيق.
RE: كتابة مصفوفة بايتات على ملف تنفيذي - mohamed49 - 13-03-2017
جزاك الله عنّا خير الجزاء