load exe to string & put in array of byte

[Agmcz]

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

كود :

Uses: Windows; Type ByteArray = array of byte; function ByteArrayToStr(bArray: array of byte): String; begin     SetLength(Result,SizeOf(bArray));     CopyMemory(@Result[1],@bArray[0],SizeOf(bArray)); end; function StrToByteArray(Buffer: String): ByteArray; begin     SetLength(Result,lstrlen(PChar(Buffer)));     CopyMemory(@Result[0],@Buffer[1],Length(Buffer)); end;