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

来源:互联网 发布:斗鱼软妹小九九淘宝店 编辑:程序博客网 时间:2024/05/24 07:05
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;

0 0
原创粉丝点击