@echo off 
cls 
color 0A 
echo ******************************************
echo   清除該目錄下所有Delphi備份文件！ 
echo ******************************************
echo. & pause
del /f /s /q *.~*
del /f /s /q *.cfg
del /f /s /q *.ddp
del /f /s /q *.dcu
del /f /s /q *.dof
del /f /s /q *.dsk
echo ******************************************
echo   成功清除Delphi備份文件！ 
echo ******************************************
echo. & pause