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从路径取得文件名的简易方法

Delphi获取操作系统已运行的所有窗口程序

Delphi 在 listbox 中放置一��可�� item 的 tedit �m件

Delphi system 中的数学函数

Delphi编写的lpk.dll专杀，可清理rar

Delphi的rtti实现数据集的简单对象化

Delphi webbrowser.oleobject属性

强大的Delphi rtti--兼谈需要了解多种开发语言

Delphi 打开网页的两种方法

Delphi ado 动态建立.mdb数据库，表

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

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