Delphi 2010在IoUtils.pas中有一组不错的新文件访问功能(我特别喜欢UTC版本的日期相关函数)。我到目前为止想念的就是这样
TFile.GetSize (const Path : String)
什么是Delphi 2010-获取文件大小的方式？我必须回去使用FindFirst才能访问TSearchRec.FindData吗？
谢谢。
解决方法
我不知道是否有“Delphi 2010”的方式，但是有一个
Windows way that doesn’t involve FindFirst and all that jazz。
我把这个例程的Delphi转换扔在一起(在这个过程中修改它来处理> 4GB大小的文件，如果你需要的话)。
function FileSize(const aFilename: String): Int64;
var
info: TWin32FileAttributeData;
begin
result := -1;
if NOT GetFileAttributesEx(PWideChar(aFileName),GetFileExInfoStandard,@info) then
EXIT;
result := Int64(info.nFileSizeLow) or Int64(info.nFileSizeHigh shl 32);
end;
您实际上可以使用GetFileSize()，但这需要一个文件HANDLE，而不仅仅是一个文件名，并且类似于GetCompressedFileSize()建议，这需要两个变量来调用。 GetFileSize()和GetCompressedFileSize()都会重载它们的返回值，所以测试成功并确保有效的结果只是一点点尴尬。
GetFileSizeEx()避免了处理的细节> 4GB的文件大小和检测有效的结果，但也需要一个文件HANDLE而不是一个名称，(至少在Delphi 2009中我至少没有检查过2010)没有在VCL中声明为任何地方，你会有提供您自己的进口申报单。