多春鱼小屋

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