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 快速获取文件巨细

，