UPX Shell v0.02

darklordz · Post by **darklordz** » Sun May 25, 2003 1:01 pm

Hey have you ever gotten tierd of having to goto dos all the time to pack ur files. Using lame batchfiles or shell's. Well now theres UPX Shell, it's a packer that will pack your files with upx from any location anytime. No preconfiguration required. You don't even need UPX Installed! Sounds 2 good to be true? Go ahead try it...

download here

*Note : UPX Shell 0.02b is still beta and ive tested it alot and found no bugs, plz help me out an test this...

Also Removed SetFlags Dialog, will add it in later version. The SetFlags Dialog will give users more controll over the types of files they pack (DOS/WATCOM/WIN32/ATARI etc..)

Post by **Rings** » Sun May 25, 2003 6:14 pm

can you plz post such Announcement's and Advertising in the Section Announcement ?

like these guys here:
http://www.reelmediaproductions.com/pb/ ... /PBUPX.zip
http://www.reelmediaproductions.com/pb/ ... mpress.zip
http://www.Sunset-Team.de/Download/STupX.zip

(a upx packer frontend for Pb already done before

)

darklordz · Post by **darklordz** » Sun May 25, 2003 6:27 pm

It's not an advert or anouncement, it's a warmup

so ppl wil test this for me....And it's a usefulladon for the editor

Post by **Rings** » Sun May 25, 2003 6:38 pm

darklordz wrote:It's not an advert or anouncement, it's a warmup so ppl wil test this for me....And it's a usefulladon for the editor

and you did not post the source, so it is advertising and it is not a problem with the editor that can been discussed here.

Sorry for those words, but in german forum a simple .exe -Anouncement deletes some guys system-directory.So we all have been warned from that happened with unknown Exefiles.

darklordz · Post by **darklordz** » Sun May 25, 2003 9:38 pm

Hmm posting the source well.. you c teh problem is that i want this application to mine and not for everyone to c simele tough it is.... I c your point tough, and im posting only the essential code

Code: Select all

Procedure DeCompressFile()
  CommandLine.s = "-d -qqq -f -v"
  CommandLine = CommandLine.s + " -o"+DOSFilePath+DOSFileName+" "+DOSFilePath+TmpFileName
  
  RealFile = RenameFile(DOSFilePath+DOSFileName,DOSFilePath+TmpFileName)
  
  TimeStart=GetTickcount_()
  StatusBarText(#STATUSBARGADGET, 0, " Please wait while decompressing...")
  RunProgram(ExpandUPX_Location, CommandLine, "", 1|2)
  TimeEnd=GetTickcount_()
  LoadFileInfo()
  StatusBarText(#STATUSBARGADGET, 0, " Decompression Complete in "+StrF((TimeEnd-TimeStart)/1000,2)+" Sec")
  MessageRequester("Decompression Complete!","UPX Shell:"+Chr(13)+"Decompression Complete!"+Chr(13)+Chr(13)+"Decompression Time: "+StrF((TimeEnd-TimeStart)/1000,2)+" Sec.",#MB_ICONINFORMATION)
  DeleteFile(DOSFilePath+TmpFileName)
  RenameFile(DOSFilePath+DOSFileName,DOSFilePath+FileName)
  ;Reset_Form()
EndProcedure

Procedure CompressFile()
  CommandLine.s = ""
  If GetGadgetText(#LISTBOXGADGET_ACTIONS) = "Best Compression Method"
    CommandLine.s = CommandLine.s + "--best"
  ElseIf GetGadgetText(#LISTBOXGADGET_ACTIONS) = "Better Compression Method"
    CommandLine.s = CommandLine.s + "-9"
  ElseIf GetGadgetText(#LISTBOXGADGET_ACTIONS) = "Good Compression Method"
    CommandLine.s = CommandLine.s + "-8"
  ElseIf GetGadgetText(#LISTBOXGADGET_ACTIONS) = "Normal Compression Method"
    CommandLine.s = CommandLine.s + "-5"
  ElseIf GetGadgetText(#LISTBOXGADGET_ACTIONS) = "Fast Compression Method"
    CommandLine.s = CommandLine.s + "-4"
  ElseIf GetGadgetText(#LISTBOXGADGET_ACTIONS) = "Faster Compression Method"
    CommandLine.s = CommandLine.s + "-3"
  ElseIf GetGadgetText(#LISTBOXGADGET_ACTIONS) = "Fastest Compression Method"
    CommandLine.s = CommandLine.s + "-2"
  ElseIf GetGadgetText(#LISTBOXGADGET_ACTIONS) = "Store Compression Method"
    CommandLine.s = CommandLine.s + "-1"
  EndIf
  
  If GetGadgetState(#CHECKBOXGADGET_BACKUP) = 1
    BackUp = CopyFile(DOSFilePath+DOSFileName, DOSFilePath+FileName+".bak")
  EndIf
  
  CommandLine.s = CommandLine.s + " -qqq -f -v --overlay=copy --compress-exports=1 --compress-icons=2 --strip-relocs=1"; --all-methods --all-filters"
  CommandLine = CommandLine.s + " -o"+DOSFilePath+DOSFileName+" "+DOSFilePath+TmpFileName
  
  RenameFile(DOSFilePath+DOSFileName,DOSFilePath+TmpFileName)
  
  TimeStart=GetTickcount_()
  StatusBarText(#STATUSBARGADGET, 0, " Please wait while compressing...")
  RunProgram(ExpandUPX_Location, CommandLine, "", 1|2)
  TimeEnd=GetTickcount_()
  LoadFileInfo()
  StatusBarText(#STATUSBARGADGET, 0, " Compression Complete in "+StrF((TimeEnd-TimeStart)/1000,2)+" Sec")
  MessageRequester("Compression Complete!","UPX Shell:"+Chr(13)+"Compression Complete!"+Chr(13)+Chr(13)+"Compression Time: "+StrF((TimeEnd-TimeStart)/1000,2)+" Sec.",#MB_ICONINFORMATION)
  DeleteFile(DOSFilePath+TmpFileName)
  RenameFile(DOSFilePath+DOSFileName,DOSFilePath+FileName)
  
  SetClipboardText(CommandLine)
  ;Reset_Form()
EndProcedure

darklordz · Post by **darklordz** » Mon May 26, 2003 8:22 am

Ow and my packer isnt a frontend....it's standalone!

TronDoc · Post by **TronDoc** » Fri May 30, 2003 10:17 pm

here's the source to my UPX interface..
the .BAT needs to be in the same directory as UPX.EXE
..just drag your .EXE onto the .BAT
file and tada!

COMPRESS.BAT

Code: Select all

UPX --best %1
PAUSE
@ECHO OFF
CLS

Joe

wings · Post by **wings** » Mon Jun 02, 2003 8:07 am

You should test it more. The first file I tried...bingo...things went wrong.
The thing is that it compresses my exe but one problem...I can't find it anywhere

And I even tired a windows file search

wings · Post by **wings** » Mon Jun 02, 2003 8:10 am

Abd btw, you're in the wrong forum buddy

This has nothing to do with the Purebasic Editor.

darklordz · Post by **darklordz** » Mon Jun 02, 2003 10:31 am

usefull addon maby?