关于getDiskFreeSpace() 这个API
var
Available, TotalSpace: Int64;
begin
Available := 0;
TotalSpace := 0;
if GetDiskFreeSpaceEx('C:', Available, TotalSpace, nil) then
begin
Label3.Caption := FormatFloat('###0.# MB', TotalSpace / 1024 / 1024);
Label4.Caption := FormatFloat('###0.# MB', Available / 1024 / 1024);
end;
end;
var
snumber,sbyte,remainc,sumc:dword;
n : int64;
begin
getDiskFreeSpace('c:\',snumber,sbyte,remainc,sumc); //C盘
n := sumc*snumber*sbyte;
label3.Caption:=intTostr(n div(1024*1024))+' M'; //计算总容量
n := remainc*snumber*sbyte;
label4.Caption:=intTostr(n div(1024*1024))+' M'; //计算剩余容量
end;