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;
![[صورة: 20120928091552.png]](http://img513.imageshack.us/img513/9423/20120928091552.png)
![[صورة: 20120928091602.png]](http://img32.imageshack.us/img32/4964/20120928091602.png)
![[صورة: 20120928122130.png]](http://img94.imageshack.us/img94/2447/20120928122130.png)
![[صورة: 20120929151607.png]](http://img404.imageshack.us/img404/8320/20120929151607.png)
![[صورة: 20120929151406.png]](http://img29.imageshack.us/img29/751/20120929151406.png)
![[صورة: 20121004083229.png]](http://img84.imageshack.us/img84/6938/20121004083229.png)
![[صورة: 20121004083317.png]](http://img855.imageshack.us/img855/2315/20121004083317.png)
![[صورة: 20121004115037.png]](http://img7.imageshack.us/img7/1309/20121004115037.png)
![[صورة: 20121004115517.png]](http://img207.imageshack.us/img207/7861/20121004115517.png)
![[صورة: 20121004234251.png]](http://img842.imageshack.us/img842/4972/20121004234251.png)
![[صورة: 20121005153658.png]](http://img89.imageshack.us/img89/839/20121005153658.png)