Page 1 of 1
UPX Shell v0.02
Posted: Sun May 25, 2003 1:01 pm
by darklordz
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..)
Posted: Sun May 25, 2003 6:14 pm
by Rings
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
)
Posted: Sun May 25, 2003 6:27 pm
by darklordz
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
Posted: Sun May 25, 2003 6:38 pm
by Rings
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.
Posted: Sun May 25, 2003 9:38 pm
by darklordz
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
Posted: Mon May 26, 2003 8:22 am
by darklordz
Ow and my packer isnt a frontend....it's standalone!
Posted: Fri May 30, 2003 10:17 pm
by TronDoc
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
Joe
Posted: Mon Jun 02, 2003 8:07 am
by wings
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
Posted: Mon Jun 02, 2003 8:10 am
by wings
Abd btw, you're in the wrong forum buddy
This has nothing to do with the Purebasic Editor.
Posted: Mon Jun 02, 2003 10:31 am
by darklordz
usefull addon maby?