delphi如何检测驱动器容量

时间:2010-02-03 12:46:44  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:br />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:='该...
  正文:要得到驱动器的容量和剩余容量,用下面的程序

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如何检测驱动器容量》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12764.html


关键字:

关于《delphi如何检测驱动器容量》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td