驅動器的容量和剩余容量 (2001年4月23日) 

網友更新  分類:數據庫   作者: zhuhongqing(推薦)  推薦:zhuhongqing   閱讀次數:173  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
要得到驅動器的容量和剩余容量，用下面的程序 
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;