Delphi 删除目录

----   2、删除目录   

----   删除目录与拷贝目录很类似，但为了能删除位于根目录下的一个空目录，需要在辅助函数中设置一个标志变量，即：如果删除的是空目录,则置bEmptyDir为True，这一句已经用深色框表示了。   

----   2.1删除目录的递归辅助函数：DoRemoveDir   

function   DoRemoveDir(sDirName:String):Boolean; 
var 
      hFindFile:Cardinal; 
      tfile:String; 
      sCurDir:String; 
      bEmptyDir:Boolean; 
      FindFileData:WIN32_FIND_DATA; 
begin 
      //如果删除的是空目录,则置bEmptyDir为True 
      //初始时,bEmptyDir为True 
      bEmptyDir:=True; 
      //先保存当前目录 
      sCurDir:=GetCurrentDir; 
      SetLength(sCurDir,Length(sCurDir)); 
      ChDir(sDirName); 
      hFindFile:=FindFirstFile( '*.* ',FindFileData); 
      if   hFindFile <   > INVALID_HANDLE_VALUE   then 
      begin 
                repeat 
                            tfile:=FindFileData.cFileName; 
                            if   (tfile= '. ')   or   (tfile= '.. ')   then 
                            begin 
                                  bEmptyDir:=bEmptyDir   and   True; 
                                  Continue; 
                            end; 
                            //不是空目录,置bEmptyDir为False 
                            bEmptyDir:=False; 
                            if   FindFileData.dwFileAttributes= 
                            FILE_ATTRIBUTE_DIRECTORY   then 
                            begin 
                                      if   sDirName[Length(sDirName)] <   > '\ '   then 
                                            DoRemoveDir(sDirName+ '\ '+tfile) 
                                      else 
                                            DoRemoveDir(sDirName+tfile); 
                                      if   not   RemoveDirectory(PChar(tfile))   then 
                                            result:=false 
                                      else 
                                            result:=true; 
                            end 
                            else 
                            begin 
                                      if   not   DeleteFile(PChar(tfile))   then 
                                            result:=false 
                                      else 
                                            result:=true; 
                            end; 
                until   FindNextFile(hFindFile,FindFileData)=false; 
                FindClose(hFindFile); 
      end 
      else 
      begin 
                ChDir(sCurDir); 
                result:=false; 
                exit; 
      end; 
      //如果是空目录,则删除该空目录 
      if   bEmptyDir   then 
      begin 
                //返回上一级目录 
                ChDir( '.. '); 
                //删除空目录 
                RemoveDirectory(PChar(sDirName)); 
      end; 

      //回到原来的目录下 
      ChDir(sCurDir); 
      result:=true; 
end; 

----   2.2删除目录的函数：DeleteDir   

function   DeleteDir(sDirName:String):Boolean; 
begin 
            if   Length(sDirName) <   =0   then 
                  exit; 
            //删除... 
            Result:=DoRemoveDir(sDirName)   and   RemoveDir(sDirName); 
end;