delphi 以Bytes为单位获取文件大小
// maxium supports 2G
function getFileSizeInBytes(const fn: string): integer;
var
f: File of byte;
begin
Result := -1;
if (FileExists(fn)) then
begin
try
{$I-}
AssignFile(f, fn);
Reset(f);
{$I+}
if (IOResult = 0) then
begin
Result := FileSize(f);
end
else
begin
Result := 0;
end;
finally
{$I-}CloseFile(f);{$I+}
end;
end;
end;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.038648128509521 seconds