[修改]获得磁盘容量的代码

zbtlzy 发布于 2006-11-06 23:09， 1073 次点击

该段代码是获得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编辑过]

3 回复

zbtlzy2006-11-06 23:19

如果插入一个Combobox(它的Items内容是盘符) 该怎么进行数据类型转换?

xu20002006-11-06 23:24

var
driver:pchar;
sec1,byt1,cl1,cl2:longword;
s:string;
begin
s:=combobox1.text;
Driver:=pchar(s);
GetDiskFreeSpace(driver,sec1,byt1,cl1,cl2);
cl1:=cl1*sec1*byt1;
cl2:=cl2*sec1*byt1;
label1.Caption:='该驱动器总容量为:'+FormatFloat('###,##0',cl2)+'字节'+'';
label2.Caption:='该驱动器可用容量为:'+FormatFloat('###,##0',cl1)+'字节'+'';

形影随从2006-11-13 10:20

首部 function DiskFree(Drive: Byte): Int64; $[SysUtils
功能返回磁盘驱动器的空闲字节数。
说明参数Drive的值代表驱动器号。0表示当前驱动器，1表示A驱动器，2表示B驱动器等等。若驱动器非法，则DiskFree返回-1。

首部 function DiskSize(Drive: Byte): Int64; $[SysUtils
功能返回磁盘驱动器Drive的总字节数。
说明参见DiskFree。