技巧分享：计算机二级考试DELPHI基础开发技巧

　　◇[DELPHI]如何清空一个目录

　　function EmptyDirectory(TheDirectory :String ; Recursive : Boolean) :

　　Boolean;

　　var

　　SearchRec : TSearchRec;

　　Res : Integer;

　　begin

　　Result := False;

　　TheDirectory := NormalDir(TheDirectory);

　　Res := FindFirst(TheDirectory + ''*.*'', faAnyFile, SearchRec);

　　try

　　while Res = 0 do

　　begin

　　if (SearchRec.Name <> ''.'') and (SearchRec.Name <> ''..'') then

　　begin

　　if ((SearchRec.Attr and faDirectory) > 0) and Recursive

　　then begin

　　EmptyDirectory(TheDirectory + SearchRec.Name, True);

　　RemoveDirectory(PChar(TheDirectory + SearchRec.Name));

　　end

　　else begin

　　DeleteFile(PChar(TheDirectory + SearchRec.Name))

　　end;

　　end;

　　Res := FindNext(SearchRec);

　　end;

　　Result := True;

　　finally

　　FindClose(SearchRec.FindHandle);

　　end;

　　end;

　　◇[DELPHI]如何计算一个目录的大小

　　function GetDirectorySize(const ADirectory: string): Integer;

　　var

　　Dir: TSearchRec;

　　Ret: integer;

　　Path: string;

　　begin

　　Result := 0;

　　Path := ExtractFilePath(ADirectory);

　　Ret := Sysutils.FindFirst(ADirectory, faAnyFile, Dir);

　　if Ret <> NO_ERROR then exit;

　　try

　　while ret=NO_ERROR do

　　begin

　　inc(Result, Dir.Size);

　　if (Dir.Attr in [faDirectory]) and (Dir.Name[1] <> ''.'') then

　　Inc(Result, GetDirectorySize(Path + Dir.Name + ''\*.*''));

　　Ret := Sysutils.FindNext(Dir);

　　end;

　　finally

　　Sysutils.FindClose(Dir);

　　end;

　　end;