- function SizeOfFile(const FileName: string): Windows.DWORD;
- var
- FH: THandle; // file handle
- begin
- FH := SysUtils.FileOpen(
- FileName, SysUtils.fmOpenRead or SysUtils.fmShareDenyNone
- );
- try
- Result := Windows.GetFileSize(FH, nil);
- finally
- SysUtils.FileClose(FH);
- end;
- end;
- //该片段来自于http://www.codesnippet.cn/detail/070120131378.html
来源: http://www.codesnippet.cn/detail/070120131378.html