Delphi获取文件的大小（实际&物理）

 源：获取文件的大小（实际&物理）

 

class function TDuoFile.GetFileSize(const AFile: TFileName): Int64;
var sr:TSearchRec;
begin
  if FindFirst(AFile,faAnyFile and (not faDirectory),sr) = 0 then
    Result := sr.Size
  else
    Result := 0;
  FindClose(sr);
//  Windows.GetFileSizeEx()
// 这个函数是新API


// 另一种写法
//var hh:THandle;dwSizeLow,dwSizeHigh:Cardinal;
//begin
//  hh := FileOpen(PChar(OpenDialog1.FileName),fmOpenRead);
//  dwSizeLow := GetFileSize(hh,@dwSizeHigh);
//  Result := dwSizeHigh shl 32 + dwSizeLow;
//  CloseHandle(hh);
//end;
end;


class function TDuoFile.GetFileSizeCompressed(const AFile: TFileName): Int64;
begin
  Int64Rec(Result).Lo := GetCompressedFileSize(PAnsiChar(AFile),@Int64Rec(Result).Hi);
// 另一种写法
//var dwSizeLow,dwSizeHigh:Cardinal;
//begin
//  dwSizeLow := GetCompressedFileSize(PAnsiChar(AFile),@dwSizeHigh);
//  Result := dwSizeHigh shl 32 + dwSizeLow;
//end;
end;

进过测试，

如果是通常的文件，并没有发现这两个函数的不同之处。

都是返回“属性/大小”。

但是如果是压缩过的文件，那么后者返回的是“属性/占用空间”。