delphi中有获取一个文件夹下所有文件和文件夹大小得好方法嘛？(50分)

谢谢

//抄来的：）
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;

接受答案了.