كيف اشغل ملف من الروسيس بشكل مباشر

[onexite]

كود :

var Res:TResourceStream; begin Res:=TResourceStream.Create(hInstance,'2.rc',RT_RCDATA); try ShellExecute(0,'open','test.exe',nil,nil,SW_SHOWNORMAL); finaly Res.Free; end; end;

انا استخدم دلفي xe اضفت الملف الملف الى Resource اسمه text.exe وكتبت الكود لم ينجح تشغيل بشكل مباشر في الذاكرة بدون استخراجه الى اي قرص

انت لم تقم باستخراج الرسورس

PHP كود :

Res.SavetoFile('test.exe'); 


واذا اردت التشغيل المباشر
http://www.delphi4arab.net/forum/showpos...ostcount=6