[修改]获得磁盘容量的代码
该段代码是获得C盘的信息:
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;
如果想获取其他盘(D,E,F...)的信息,该怎么编码??我用的是DriveComboBox1控件.
[此贴子已经被作者于2006-11-6 23:17:58编辑过]
