使用Delphi以递归方式删除所有文件和文件夹

function DeleteAllFilesAndFolders(const APath: string): Boolean;
var
  Rec: TSearchRec;
begin
  Result := True;
  if FindFirst(APath + '\*', faAnyFile, Rec) = 0 then
  try
    repeat
      if (Rec.Attr and faDirectory) = faDirectory then
      begin
        if (Rec.Name <> '.') and (Rec.Name <> '..') then
          Result := DeleteAllFilesAndFolders(APath + '\' + Rec.Name);
      end
      else
        Result := DeleteFile(PChar(APath + '\' + Rec.Name));
    until FindNext(Rec) <> 0;
  finally
    FindClose(Rec);
  end;
  Result := Result and RemoveDirectory(PChar(APath));
end;