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

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

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)+'字节'+'';

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

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