使用Win API 获取文件大小（可获取正在使用的文件，包括独占方式打开的文件GetFileSize）...

function GetSysFileSizeEx(AbsFileName:string):int64;
var
Handle: Windows.THandle;
FindData: Windows.TWin32FindData;
begin
Handle := Windows.FindFirstFile(PChar(AbsFileName), FindData);
if Handle <> INVALID_HANDLE_VALUE then
begin
Windows.FindClose(Handle);
if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then //文件
begin
Result := INT64(FindData.nFileSizeHigh shl 32)+INT64(FindData.nFileSizeLow);
Exit;
end;
end;
Result := 0;
end;

 

转载于:https://www.cnblogs.com/caibirdy1985/archive/2011/04/20/4232976.html