delphi 实现显示文件目录大小


本文整理自网络,侵删。

 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;

相关阅读 >>

Delphi 和微软的 azure 云存储

Delphi中关键字inherited

Delphi 指定在ie浏览器或ie内核打开链接

github上通过星级评估排名前10的最受欢迎的开源Delphi项目

Delphi清除右下角的托盘上无用的托盘图标(刷新托盘)

Delphi 判断字符是否是汉字

Delphi leftstr 返回字符串左边指定个数的新字符(串)

Delphi 62 进制的简单实现

Delphi真正实现延时暂停功能

Delphi listbox1列表随机打乱

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...