自己对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;