返回文件大小代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】返回文件大小

作者:jellyvice / 发布于2013/12/3/ 477

function SizeOfFile2(const AFilename: string): Integer;
var
 SRec: SysUtils.TSearchRec;
begin
 Result := 0;
 if SysUtils.FindFirst(
  AFilename, SysUtils.faAnyFile and not SysUtils.faDirectory, SRec) = 0 then
 begin
  Result := SRec.Size;
  SysUtils.FindClose(SRec);
 end;
end;

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

　　

试试其它关键字

　文件大小　

同语言下

可能有用的

jellyvice贡献的其它代码(28)