OF_READ); Result := FileSeek(hFile
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;
此函数可以快速获取文件巨细,即使文件已经被其它措施锁定。
Delphi 快速获取文件巨细
,温馨提示: 本文由Jm博客推荐,转载请保留链接: https://www.jmwww.net/file/36570.html