دمج ملف تطبيق بالبرنامج

[o15s19]

اتبع الخطوات التالية
ببرنامج الدلفي اضغط على Projects في MainMenu و ثم اختار Resouces
ثم ضع الملف الذي تريده exe rar أي شئ
و ليكن مثالنا exe فرضا
و هذا هو الكود

PHP كود :

procedure TForm11.Button1Click(Sender: TObject);
var
       RStream    : TResourceStream ;
begin
 RStream := TResourceStream.Create(Hinstance,'Resource_1',RT_RCDATA) ;
 RStream.SaveToFile('C:\file.exe' );
end; 


مع ملاحظة أن Resource_1 هو اسم الريسورس و ليس اسم الملف و هو الذي يظهره لك الدلفي
و RT_RCDATA هو نوع الريسورس

طبع يمكنك عمل ما تريد RStream تشغيله مثلا أو حفظه كما هو موجود بالكود

و أهلا بك أخي الكريم