一键清除Lazarus临时文件

把下面的拷贝到一个文本文件中，保存为Clear.bat,可以快速清理当前文件夹下Lazarus编译的临时文件（包括子文件夹下的临时文件），

if exist filelist.txt del fileList.txt

@echo off
set ParentPath=.
rem for /f "delims=" %%a in ('dir /s /b "%ParentPath%\*.*"') do (
for /f "delims=" %%a in ('dir /s /b "%ParentPath%\backup"') do (
rem  echo %%a>>filelist.txt
  echo %%a
rem  rd %%a /s/q
)


for /f "delims=" %%a in ('dir /s /b "%ParentPath%\lib"') do (
rem  echo %%a>>filelist.txt
  echo %%a
)


echo del *.compiled /s
echo del *.o /s
echo del *.or /s
echo del *.ppu /s
echo del *.bak /s


echo 你确定删除以上文件吗?
pause


del *.compiled /s
del *.o /s
del *.or /s
del *.ppu /s
del *.bak /s


for /f "delims=" %%a in ('dir /s /b "%ParentPath%\backup"') do (
  rd %%a /s/q
)
for /f "delims=" %%a in ('dir /s /b "%ParentPath%\lib"') do (
  rd %%a /s/q
)
@pause