Bir Klasörün Toplam Boyutu

Bir klasörün toplam boyutu nasil alinir ? function GetDirectorySize(const ADirectory: string): Integer; var Dir: TSearchRec; Ret: integer; Path: string; begin Result := 0; Path := ExtractFilePath(ADir...