delphi如何检测驱动器容量-Delphi教程-第二电脑网企业库|免费b2b网站

delphi如何检测驱动器容量-Delphi教程-第二电脑网

第二电脑网导读：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])+'字节'; &nb...

正文：要得到驱动器的容量和剩余容量，用下面的程序

var driver:pchar;
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;

来源:

郑重声明：资讯【delphi如何检测驱动器容量-Delphi教程-第二电脑网】由发布，版权归原作者及其所在单位，其原创性以及文中陈述文字和内容未经(企业库qiyeku.com)证实，请读者仅作参考，并请自行核实相关内容。若本文有侵犯到您的版权，请你提供相关证明及申请并与我们联系（qiyeku # qq.com）或【在线投诉】，我们审核后将会尽快处理。

—— 相关资讯 ——