根据文件路径获取剩余磁盘空间

2016-11-12 11:12:14来源:oschina作者:依宸老爹人点击

第七城市
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;
第七城市

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台