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
|
请发表评论