一键清除Delphi中无用的文件

delphi确实好用，但它生成的各种文件，有时对我们来说基本没用，随着我们做的项目越来越多，其中无用的文件有时能占到三分之一。今晚写了个小工具，可以递归清理 delphi文件夹下无用的文件。

代码如下：

@echo "清除Delphi中的无用文件 1.0"
@echo "作者:DC"
@echo off 
if   "%1"=="" (goto currentPath)
 else goto pointPath
:currentPath
set work_path=.  
:pointPath
set work_path=%1 
@echo 确定要清理%work_path%吗？
choice /c ny /m "确定按Y,取消按N"
rem errorlevel1对应n,2对应y
if errorlevel 2 goto continue
if errorlevel 1 goto complate
:continue
cd %work_path% 
for /R %%s in (.) do ( 
 rem echo %%s 
rem 删除delphi无用文件
rem del ~*.* /s
 del *.~* /s
 del *.obj /s
 del *.dcp /s
 del *.dcu /s
 rem del *.dpl /s
) 
:complate
echo "运行完毕"
pause