ɾ³ýĿ¼ºÍĿ¼ÏµÃËùÓÐÎļþºÍÎļþ¼Ð

procedure DeleteDir(sDirectory: String);
//ɾ³ýĿ¼ºÍĿ¼ÏµÃËùÓÐÎļþºÍÎļþ¼Ð
var
sr: TSearchRec;
sPath,sFile: String;
begin
//¼ì²éĿ¼ÃûºóÃæÊÇ·ñÓÐ '/'
if Copy(sDirectory,Length(sDirectory),1) <> '/' then
sPath := sDirectory + '/'
else
sPath := sDirectory;

//------------------------------------------------------------------
if FindFirst(sPath+'*.*',faAnyFile, sr) = 0 then
begin
repeat
sFile:=Trim(sr.Name);
if sFile='.' then Continue;
if sFile='..' then Continue;

sFile:=sPath+sr.Name;
if (sr.Attr and faDirectory)<>0 then
DeleteDir(sFile)
else if (sr.Attr and faAnyFile) = sr.Attr then
DeleteFile(sFile); //ɾ³ýÎļþ
until FindNext(sr) <> 0;
FindClose(sr);
end;
RemoveDir(sPath);
//------------------------------------------------------------------
end;