Delphi GetFileSize 获取文件大小 2

本文整理自网络，侵删。

 
function GetFileSize(const aFileName: String): Int64;
var Sr: TSearchRec;
begin
  if FindFirst(aFileName, faAnyFile, Sr) = 0 then
  begin
    Result := Sr.Size;

    FindClose(Sr);
  end
    else raise Exception.CreateFmt('无法获取文件大小 "%s"', [aFileName]);
end;
 

相关阅读 >>

Delphi 判断文件路径，不存在则建立

Delphi selectdirectory 选择文件夹

Delphi 查看指定文件是否在进程列表中

Delphi 对话框单元

Delphi异常死亡进程的自动复活

Delphi 使用tnethttprequest / tnethttpclient访问web服务器

Delphi xe listbox 行高根据内容高度进行调速

Delphi xe 跨平台（windows、android安卓、苹果macos、苹果ios）写法

Delphi 将字型样式转成字串

Delphi中调用api函数exitwindowsex可以实现系统的关机，注销，和重启

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

转载请注明出处：木庄网络博客 » Delphi GetFileSize 获取文件大小 2