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;
 

相关阅读 >>

Delphi winapi: setvolumelabel - 设置磁盘卷标

Delphi中三种方法获取windows任务栏的高度

Delphi 删除memo某一行

Delphi xe5 android 开发实现手机打电话和发短信

Delphi xe 与plc通讯（intcpserver 二进制）

Delphi 检查父进程

Delphi 将字型样式转成字串

Delphi xe下的fmx中压缩图片

Delphi格式化wmi中的datetime

Delphi+mysql:tadoquery使用插入中文乱码解决方法

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

转载请注明出处：木庄网络博客 » delphi 以Bytes为单位获取文件大小