Código Delphi [-]
var
   search: TSearchRec;
   nFiles: integer;
begin
     nFiles:=FindFirst( cPath + '\*.*', faAnyFile,  search );
     while nFiles=0 do
     begin
          if Search.Attr = faDirectory then
          begin
               if (Search.Name<>'.') and (Search.Name<>'..') then
               begin
                    Deltree( cPath + '\' + Search.Name );
                    RMDir( cPath + '\' + Search.Name );
               end;
          end
          else
              SysUtils.DeleteFile(cPath + '\' + Search.Name);
          nFiles:=FindNext( Search );
     end;
     FindClose(Search);
     RMDir(cPath);
end;