Delphi 快速获取文件大小（使用_lopen和FileSeek，此函数可以快速获取文件大小，即使文件已经被其它程序锁定）

本文整理自网络，侵删。

 function GetFileSize(const fName: AnsiString): Int64;
var
  hFile: THandle;
begin
  hFile := _lopen(PAnsiChar(fName), OF_READ);
  Result := FileSeek(hFile, Int64(0), 2);
  _lclose(hFile);
end;
 
来源：https://www.cnblogs.com/findumars/p/7841231.html 

相关阅读 >>

Delphi firdac 对 sqlite 数字, int64也会被截断，会出现负数情况处理

Delphi 语法基础: 使用不同的数据类型标记数组

Delphi 10.2 创建并使用资源文件

settimer函数用法

Delphi 安卓原生的toast温柔提示

Delphi xe5复制粘贴操作

Delphi sendmessage这个函数有很多奇妙的用途

Delphi runtime error 216 程序退出后弹出错误

Delphi 2009 中的泛型

Delphi中for in 语法应用实例

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

转载请注明出处：木庄网络博客 » Delphi 快速获取文件大小（使用_lopen和FileSeek，此函数可以快速获取文件大小，即使文件已经被其它程序锁定）