驱动器的容量和剩余容量 (2001年4月23日).txt

delphi 编程技巧

驱动器的容量和剩余容量 (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;