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;
进过测试,
如果是通常的文件,并没有发现这两个函数的不同之处。
都是返回“属性/大小”。
但是如果是压缩过的文件,那么后者返回的是“属性/占用空间”。
时间: 2024-11-07 06:49:32