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
原文：http://www.cnblogs.com/findumars/p/7841231.html