Delphi自动清除临时文件及备份文件的批处理

title= 压缩备份Delphi工程

@ECHO   OFF

:color 后面的数字,第一位代表背景色,第二位的数字代表前景色
color 0a

:删除临时文件
del /S *.~*
del /s *.cfg
del /s *.dof
del /s *.ddp
del /s *.dcu
del /s *.dsk
del /S *.hpp
del /S *.mps
del /S *.mpt
del /S *.bak
:删除history文件夹中临时文件
del /s/f/q __history
RD __history

:备份文件
echo 当前盘符：%~d0
echo 当前盘符和路径：%~dp0

set "lj=%~p0"
set "lj=%lj:\= %"
for %%a in (%lj%) do set wjj=%%a
echo 当前文件夹:%wjj%

:如果小时数只有一位数字，造成中间有空格而出错的问题，请使用如下方法补0
set hh=%time:~0,2%
if /i %hh% LSS 10 (set hh=0%time:~1,1%)

:设置备份文件名称
set bakFileName=%wjj%_%date:~0,4%%date:~5,2%%date:~8,2%_%hh%%time:~3,2%%time:~6,2%.rar

if   exist   ..\backup   goto   creat_dst
md   ..\backup

:creat_dst
set rar="%ProgramFiles%\WinRAR\Rar.exe"
set inpath=.
Set outpath=..\backup

%RAR% a -k -r -s -ibck "%outpath%\%bakFileName%" "%inpath%"

echo 当前时间是：%time:~0,2%点%time:~3,2%分%time:~6,2%秒%time:~9,2%厘秒

echo 已经保存到：%outpath%\%bakFileName%
pause

将以上内容保存为.bat文件复制到代码文件夹下运行即可