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;
复制代码
复制代码

 

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

http://www.cnblogs.com/yangyxd/p/7602402.html

posted @   findumars  Views(1310)  Comments(0Edit  收藏  举报
努力加载评论中...
点击右上角即可分享
微信分享提示