delphi4arab منتديات دلفي للعرب
برنامج bat to exe مفتوح المصدر - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : مصادر دلفي مفتوحة تعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=14)
+--- الموضوع : برنامج bat to exe مفتوح المصدر (/showthread.php?tid=4579)

الصفحات: 1 2

برنامج bat to exe مفتوح المصدر - onexite - 28-09-2012

التعديلات على الاصدار القديم
  • اضافة ضغط ب upx
  • اضافة تغيير الايقونة
  • اضافة العمل بالوضع المتخفي
  • الاستغناء عن الرسوس

الاعدادات
[صورة: 20120928091552.png]
الواجهة الاساسية
[صورة: 20120928091602.png]

بعض البرامج المستخدمة
http://www.delphi4arab.net/forum/showthread.php?tid=7837
madshi.net
التنزيل
كود :
http://www.mediafire.com/?jrbzbi0u5l09f7a


برنامج bat to exe مفتوح المصدر - onexite - 28-09-2012

الاضافات
  • حذف المخلفات
  • حذف نفسه

[صورة: 20120928122130.png]

PHP كود :
var data:string;
begin
dlgSave1.FileName:='_onexit.exe';
 data:='';
if  not dlgSave1.Execute then exit;
if not stub_Savefile(PAnsiChar(dlgSave1.FileName)) then Exit;
  data:= SynMemo1.Text;

  
if chk3.Checked then
data:=data+#13#10+'del '+ExtractFileName(dlgSave1.FileName);
if chk4.Checked then
data:=data+#13#10+'del %temp%\_exe.bat';


  if addstrings(data,'_BAT',dlgSave1.FileName) then
 stat1.Panels[0].Text:='compile ok...'
 else
 stat1.Panels[0].Text:='compile error...';

 //---------------  icon changer -------------------
 if FileExists(edt1.Text) then
 UpdateExeIcon(PChar(dlgSave1.FileName), '128', PChar(edt1.Text));
 

   //-------- ghost application --------------------
if chk2.Checked then
addstrings('0','_HIDE',dlgSave1.FileName)
else
addstrings('1','_HIDE',dlgSave1.FileName) ;


 //-------- upx executable packer  -----------------
 if chk1.Checked then  begin
 if upx_Savefile(PAnsiChar(_temp+'_upx'))then
  winexec(pchar(_temp+'_upx -9 '+'"'+dlgSave1.FileName+'"'),1) ;
  end; 


برنامج bat to exe مفتوح المصدر - onexite - 29-09-2012

الاضافات الجديدة
* اضافة تشغيل كمسؤول
صور من البرنامج
[صورة: 20120929151607.png]
اعدادات
[صورة: 20120929151406.png]
رابط التحميل بأول مشاركة

برنامج bat to exe مفتوح المصدر - MRS_FPS - 03-10-2012

السلام عليكم
أخي onexite مااسم المكون الذي وضعته بدلا من Memo
مع لمحة بسيطة عن المكون
و جزاك الله خيرا و السلام عليكم

برنامج bat to exe مفتوح المصدر - onexite - 04-10-2012

السلام عليكم
الاضافات الجديدة
  • دمج الملفات
  • شكل جديد
  • اضافات اخرى .
.
واجهة البرنامج
[صورة: 20121004083229.png]
دمج البرامج
[صورة: 20121004083317.png]
اعدادات
[صورة: 20121004115037.png]
عند تنفيذ البرنامج
[صورة: 20121004115517.png]
التحميل
كود :
http://www.mediafire.com/?wycmz6kmom74qng


برنامج bat to exe مفتوح المصدر - onexite - 04-10-2012

الاضافات الجديدة
تغيير طريقة تحويل البرامج الى string
تشفير الملفات وفكها في الاستخراج
تقليل الحجم اصبح 22 غ هههههه مع الضغط

[صورة: 20121004234251.png]

التحميل
كود :
http://www.mediafire.com/?i3cn6pvaaazerps


برنامج bat to exe مفتوح المصدر - محمد عبد العزيز - 05-10-2012

إقتباس :تقليل الحجم اصبح 22 غ هههههه مع الضغط
يمكنك جعله اصغر...فكر

برنامج bat to exe مفتوح المصدر - onexite - 05-10-2012

b.m.abdelaziz كتب :يمكنك جعله اصغر...فكر

لا اعرف كيف !!

برنامج bat to exe مفتوح المصدر - onexite - 05-10-2012

[صورة: 20121005153658.png]

الاصدار الجديد
الاضافات
*اضافة برقراس بار
*اضافة تشفير من نوع ثاني
*اضافة لوج
*اضافات اخرى
التحميل
كود :
http://www.mediafire.com/?3auuag24nab181b


برنامج bat to exe مفتوح المصدر - محمد عبد العزيز - 07-10-2012

onexite كتب :لا اعرف كيف !!
استخدم بدائل للVCL لديك على خيارات كثيرة منها
- استخدم API فقط
- استخدم Kol / MCK
- استخدم LVCL
راجع الرد 9و10 بهذا الموضوع
http://www.delphi4arab.net/forum/showthread.php?tid=2396
+ هناك بعض المواضيع متعلقة مثل
http://www.delphi4arab.net/forum/showthread.php?tid=3167