◇[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;