[Delphi] 快速获取文件大小

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;

 

此函数可以快速获取文件大小,即使文件已经被其它程序锁定。

posted @ 2017-09-27 16:23 我爱我家喵喵 阅读(...) 评论(...) 编辑 收藏