如何使用函数GetDiskFreeSpaceEx获取磁盘剩余空间

Question

请高手执教!

Answer 1

直接用呀。
var
  FreeSpace, TotalSpace, Avail : int64;  GetDiskFreeSpaceEx(pchar('c:\'), TotalSpace, Avail, @FreeSpace);
但是，我分不清这几个值的最后结果。

Answer 2

var
driver:pchar;
sec1, byt1, cl1, cl2:longword;
begin
driver:='c:\';//要显示的驱动器名
GetDiskFreeSpace(driver, sec1, byt1, cl1, cl2);
cl1 := cl1 * sec1 * byt1;
cl2 := cl2 * sec1 * byt1;
Label1.Caption := '该驱动器总共容量' + Formatfloat('###,##0',cl2) + '字节';
Label2.Caption := '该驱动器可用容量' + Formatfloat('###,##0',cl1) + '字节';
end;