برنامج bat to exe مفتوح المصدر

[onexite]

الاضافات

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

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;