目录完全删除

◇[DELPHI]目录完全删除(deltree) procedure TForm1.DeleteDirectory(strDir:String); var sr: TSearchRec; FileAttrs: Integer; strfilename:string; strPth:string; begin strpth:=Getcurrentdir(); FileAttrs := faAnyFile; if FindFirst(strpth+'/'+strdir+'/*.*', FileAttrs, sr) = 0 then begin if (sr.Attr and FileAttrs) = sr.Attr then begin strfilename:=sr.Name; if fileexists(strpth+'/'+strdir+'/'+strfilename) then deletefile(strpth+'/'+strdir+'/'+strfilename); end; while FindNext(sr) = 0 do begin if (sr.Attr and FileAttrs) = sr.Attr then begin strfilename:=sr.name; if fileexists(strpth+'/'+strdir+'/'+strfilename) then deletefile(strpth+'/'+strdir+'/'+strfilename); end; end; FindClose(sr); removedir(strpth+'/'+strdir); end; end;