rem Shipping Skript zum Erstellen und
rem Ausliefern eine Delphi Projektes
rem Michael Puff <mail@michael-puff.de>
rem 2010-12-27
@echo off
cls
echo Shipbuild
echo =========
echo.
echo Kompilieren der Ressourcen...
echo -----------------------------
rcstamp res\resource.rc *.*.*.+
brcc32 res\resource.rc resources\-foresource.res
echo.
echo Loeschen alter kompilierte Units...
echo -----------------------------------
del /s *.dcu
echo.
echo Kompilieren der Anwendung...
echo ------------------------------
echo.
dcc32 %1
echo.
echo Loeschen der temporaeren Dateien und der kompilierten Units...
echo --------------------------------------------------------------
del /s *.~*
del /s *.dcu
echo.
echo Packen mit UPX...
echo -----------------
upx -9 ..\%1.exe
echo.
echo History Ordner loeschen
echo -----------------------
if not exist __history\NUL goto NOHISTORY
cd __history
del *.*
cd..
rd __history
echo.
:NOHISTORY
echo Packen mit 7Zip
echo ---------------
cd..
if exist %1.zip del %1.zip
call 7z a "%1.zip" "."
cd source
pause