发信人: mengy (LEAR DLLS 命令时，将从内存中清除), 信区: BorlandDev
标  题: delphi获得驱动器容量
发信站: 哈工大紫丁香 (2001年03月13日18:40:37 星期二), 转信

驱动器容量 <<上一篇 下一篇>> 
  要得到驱动器的容量和剩余容量，用下面的程序
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;
   
 
  如果你有什么好的资料，可以寄给我哟:) <<回到首页 <<上一篇 下一篇>> 



------------------------------------------------------------------------
--------
  Delphi 技巧集 
   
  Copyright 1999.11 by 东子 Mail to me! 
感谢广州视窗提供主页空间 


--

       大海无边天做岸
               山登绝顶我为风

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.121]