函數原型：

   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;