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 感染u盘

system单元一些有用的变量或者常数

Delphi 闪盘小偷

使用idhttp抓取百度和google会出错

Delphi 拖动form上的图片，form一起动

Delphi 多核机器上编程实现将指定进程pid放到指定cpu上运行

Delphi xe 控件字体加粗变色居中等

Delphi 从网址链接中提取域名

Delphi防止因系统崩溃而丢失任务栏的图标(重建托盘图标)

Delphi中如何用一个按钮控制开与关两个状态

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

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