كتابة مصفوفة بايتات على ملف تنفيذي

[mohamed49]

السلام عليكم
احتاج طريقة لكتابة مصفوفة بايتات على ملف تنفيذي  حيث عجزت عن عمل تغيير لبعض المعرفات في الملف التنفيذي الهدف  مثال الملف التنفيذي الهدف يكون بهذا الشكل

كود :

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);

 اذا ممكن
والسلام عليكم

[Agmcz]

وعليكم السلام
تفضل مثال يوضح ما تبحث عنه
كتابة

كود :

arrRunPE و Exe في منطقة Resources والإستعانة بدوال النظام LoadResource, LockResource

بالتوفيق.

[mohamed49]

جزاك الله عنّا خير الجزاء