كيف تحويل ملف دفعي (bat) إلى ملف تنفيذي (exe)

[MRS_FPS]

[FONT="Verdana"]السلام عليكم
أشكركم جميعاً على المعلومات القيمة
لا أرغب بإستخدام البرامج الجاهزة لاكن أنوي أن أتعلم طريقة إنشاء برنامج تحويل عن طريق دلفي من أجل الفائدة و التعلم ,
لقد قمت بمحاولة و ضع الأكواد التي صنعها الأخ onexite في دلفي لاكن هناك الكثير من الأخطاء واجهتني ربما لأني لم أضع الكود المناسب في المكان المناسب و لاكني قمت بإرفاق المثال لكن بوجود الكثير من المشاكل و رسائل الأخطاء واجهتني لا أعلم ما هي ,فهل من حل لهذه المشكلة ؟
و جزاكم الله خيراً .

[onexite]

السلام عليكم
الكود تم تعديله
نوكل عليك ربي اذا استخدمته في عمل غير انساني ونحن في هاته الايام المباركة

[MRS_FPS]

السلام عليكم في الحقيقة أنا لا أصدق ما أرى برنامج تحويل من BAT الى EXE ومفتوح المصدر فعلاً أنك أذهلتني و أما من ناحية الأمانة فإذن الله سأستخدم هذا البرنامج و أطوره و سيكون الأخ onexite في نافذة المبرمجين بإذن الله .
1 - هل عملية إضافة أيقونة للملف التنفيذي تكون بواسطة برنامج دامج أخر ؟
2 - هل من الممكن شرح بسيط عن الملفات المتواجدة في الملف المرفق و ما و ظيفة كل منها من بعد أمركم ؟
( اللهم زده علماَ و مالاً و و ذريةً صالحةً ترضيه يا أكرم الأكرمين و عملاً يتقرب به منك يارب و جنةً يتبوء منها يا الله )
و لك أخي onexite أكبر تحية و سلام من أهالي حمص العدية.

بالله عليك أخي onexite من أين تعلمت كل هذه الأشياء ؟

[TF6M]

السلام عليكم
حول الموضوع : هنا & هنا
بالتوفيق,,

[MRS_FPS]

السلام عليكم
1- هل عملية إضافة أيقونة للملف التنفيذي تكون بواسطة برنامج دامج أخر ؟
2- كيف يمكن تقليص حجم الملف التنفيذي المخرج (upx قمت باستخدامه لاكن كيف يستخدم من داخل دلفي) ؟
3- ماهي الوظيفة الأساسية التي يقوم بها الملف stub.exe ؟ لقد جربت البرنامج بدون هذا الملف فعمل بشكل نظامي الملف المطلوب هو exe.res هل يمكن تقليص حجمه أكثر من ذالك ؟

[onexite]

للتغيير الايقونة وذلك بنفس البرنامج madshi.net
نعم يمكن استخدام upx
WinExec(PChar('upx.exe --best '+EXEFileName),sw_hide)
الستب تجده في الرسورس فهو القالب
البرمجة ضعيفة لان استخراج الرسورس عملية غبية حاول استخدام طرق اخرى
بالتوفيق

[MRS_FPS]

السلام عليكم
أشكرك أخي onexite على معلوماتك لقد قمت باستخدام التعليمة التالية لضغط البرنامج المستخرج بواسطة ال UPX لكن لم تفلح
ShellExecute(Handle,'open', 'UPX.exe',nec, nil, SW_SHOWNORMAL) ;
حيث أن nec هو متحول يحتوي على مسار الملف و اسمة و لاحقته
و كما استخدمت التعليمة :
WinExec(PChar('upx.exe --best '+nec),sw_hide);
و أيضاً لم تفلح فهل من حل لأحد هذه الدالتان ؟

[onexite]

لضغط البرنامج المستخرج بواسطة ال UPX لكن لم تفلح

تاكد من ان upx.exe في مسار البرنامج

PHP كود :

WinExec(PChar('upx.exe --best '+'1.exe'),SW_SHOWNORMAL); 


[MRS_FPS]

السلام عليكم
شكراً أخي onexite و لقد قمت بالدخول على صفحة لاكن madshi.net لاكن هل من طريقة أخرى سهلة لتغير أيقونة الملف التنفيذي الناتج و أيضاً كيف يمكنني تغير مكان استخراج الملف الدفعي مثلاً :
System32 بدلاً من مجلد ال temp
و السلام عليكم

[justnick]

كيف تعرف المسار الخاص بمجلد system32 ؟
استبدل مسار ال TempDirectory بهذا المسار