检测驱动器容量

   函数原型：

   BOOL GetDiskFreeSpace(

   LPCTSTR lpRootPathName，

   LPDWORD lpSectorsPerCluster，

   LPDWORD lpBytesPerSector，

   LPDWORD lpNumberOfFreeClusters，

   LPDWORD lpTotalNumberOfClusters

   )；

   参数说明：

   1.lpRootPathName：指定测试驱动器的根目录的名称。为null时，则为当前目录所在驱动器的根目录名称。

   2.LpSectorsPerCluster：取得驱动器每簇的扇区数。

   3.LpBytesPerSector：取得驱动器每扇区的字节数。

   4.LpNumberOfFreeClusters：磁盘剩余空间的簇数。

   5.LpTotalNumberOfClusters：磁盘总空间的簇数。

   应用举例：

   显示磁盘空间的总容量，剩余容量。

1) 在上例基础上，添加两个edit组件和两个label组件，如

2) 在combobox组件的onchange 事件相应部分添加如下内容：

   val

   disktotal,diskfree,cl1,cl2,sec1,byt1:longword;

   begin

   Getdiskfreespace(pchar(combobox1.Items[combobox1.Itemindex]),sec1,byt1,cl1,cl2);//获取磁盘信息

   Diskfree:=cl1*sec1*byt1;//剩余容量=剩余簇数*每簇扇区数*每扇区字节数

   disktotal:=cl2*sec1*byt1;//总容量=磁盘总簇数*每簇扇区数*每扇区字节数

   edit2.text:=formatfloat(''###,##0'',total);

   edit3.text:=formatfloat(''###,##0'',freesp);

   end;