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
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
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.033983945846558 seconds