获取文件夹的大小

【文件属性】：
文件名称：获取文件夹的大小
文件大小：198KB
文件格式：RAR
更新时间：2016-02-04 04:28:55
delphi7 文件夹大小 获取文件夹的大小，可以修改为任意文件夹，简单示例

【文件预览】：
求文件夹大小_D07
----__history()
----Project2.dproj(3KB)
----Unit1.dfm(665B)
----Project2.res(5KB)
----Unit1.pas(4KB)
----Project2.exe(444KB)
----Project2.dpr(230B)
----Project2.identcache(143B)
----Unit1.dcu(7KB)
----Project2.dproj.local(614B)