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

網(wǎng)友更新  分類:數(shù)據(jù)庫   作者: zhuhongqing(推薦)  推薦:zhuhongqing   閱讀次數(shù):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) + '字節(jié)'; 
Label2.Caption := '該驅動器可用容量' + Formatfloat('###,##0',cl1) + '字節(jié)'; 
end;