Delphi实现获取磁盘空间大小的方法
更新时间:2014年07月24日 11:16:56 投稿:shichen2014
这篇文章主要介绍了Delphi实现获取磁盘空间大小的方法,是一个很实用的功能,需要的朋友可以参考下
(福利推荐:【腾讯云】服务器最新限时优惠活动,云服务器1核2G仅99元/年、2核4G仅768元/3年,立即抢购>>>:9i0i.cn/qcloud)
(福利推荐:你还在原价购买阿里云服务器?现在阿里云0.8折限时抢购活动来啦!4核8G企业云服务器仅2998元/3年,立即抢购>>>:9i0i.cn/aliyun)
本文所述Delphi实例用以获取指定的磁盘空间容量大小,检测磁盘大小,从combox中选择磁盘代号等功能。点击“检测驱动器”容量信息的按钮,就可以在下边显示出该磁盘的总空间大小以及要用容量的大小。读者可根据需求添加对应的Button与label控件。
主要程序代码如下所示:
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Label1: TLabel; Label2: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var driver:pchar; sec1, byt1, cl1, cl2:longword; begin driver:=pchar(edit1.text);//要显示的驱动器名 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; end.
相关文章
Java中CountDownLatch和CyclicBarrier的区别与详解
CountDownLatch和CyclicBarrier是Java并发包提供的两个非常易用的线程同步工具类,本文主要介绍了Java中CountDownLatch和CyclicBarrier的区别与详解,具有一定的参考价值,感兴趣的可以了解一下2023-11-11Delphi2007编译的程序在Win7下图标模糊的解决办法
这篇文章主要介绍了Delphi2007编译的程序在Win7下图标模糊的解决办法,需要的朋友可以参考下2014-08-08wordpress主题支持自定义菜单及修改css样式实现方法
使用wordpress过程中会遇到主题支持自定义菜单以及修改css样式问题,本文将介绍详细解决方法,需要朋友可以参考下2012-12-12
最新评论