+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اشغل ملف من الروسيس بشكل مباشر (/showthread.php?tid=7041)
كيف اشغل ملف من الروسيس بشكل مباشر - Sonic - 11-06-2015
السلام عليكم
كيف اقوم بتشغيل ملف من الروسيس بشكل مباشر بدون حفظه في مجلد وفتحه
كيف اشغل ملف من الروسيس بشكل مباشر - Agmcz - 11-06-2015
وعليكم السلام
ماذا ستفعل بالضبط؟
كيف اشغل ملف من الروسيس بشكل مباشر - Sonic - 12-06-2015
هذا الكود التشغيل مقطع صوتي
PlaySound(PChar('MonSon'), HInstance, SND_ASYNC or SND_RESOURCE);
تشغيل ملف تنفيذي الموجود الداخل RESOURCE بشكل مباشر من الRESOURCE
كيف اشغل ملف من الروسيس بشكل مباشر - onexite - 12-06-2015
وعليكم السلام
اذا كان ملف صوتي او صورة او ... فاستخدم ميموري ستريم
واذا كان ملف تطبيقي فاستخدم shellcode
كيف اشغل ملف من الروسيس بشكل مباشر - Sonic - 12-06-2015
كود :
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 وكتبت الكود لم ينجح تشغيل بشكل مباشر في الذاكرة بدون استخراجه الى اي قرص
كيف اشغل ملف من الروسيس بشكل مباشر - onexite - 12-06-2015
Sonic كتب :كود :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/showpost.php?p=38797&postcount=6