function GetFreeSize(filePath:String):Int64;
var
FreeBytesAvailableToCaller : TLargeInteger;
FreeSize : TLargeInteger;
TotalSize : TLargeInteger;
Drive : string;
begin
Drive := ExtractFileDrive(filePath);
GetDiskFreeSpaceEx(PChar(Drive),
FreeBytesAvailableToCaller,
Totalsize,
@FreeSize );
Result := FreeSize;
end;
转载于:https://my.oschina.net/yichenbaby/blog/786192