Delphi实现获取磁盘空间大小的方法
更新时间：2014年07月24日 11:16:56 投稿：shichen2014
这篇文章主要介绍了Delphi实现获取磁盘空间大小的方法,是一个很实用的功能,需要的朋友可以参考下
本文所述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.
相关文章
这篇文章主要介绍了Delphi实现检测并枚举系统安装的打印机的方法,需要的朋友可以参考下2014-07-07
delphi xe 可用的MD5算法，需要的朋友可以参考一下2013-04-04
在用Delphi 编程处理文本文件的时候，如果要装载的文件比较大，你可能会想在文件装载过程中提供一个装载进度的提示－－那么你就必需自己编写直接通过文件打开/读取函数来装载文件内容的函数。2008-03-03
下面小编就为大家带来一篇Delphi提取PDF文本实例。小编觉得挺不错的，现在就分享给大家，也给大家做个参考。一起跟随小编过来看看吧2017-06-06
Windows API GetLastError()函数返回值含义解释
这篇文章主要介绍了Windows API GetLastError()函数返回值含义解释,本文罗列了所有错误代码及中文注释,需要的朋友可以参考下2015-05-05
这篇文章主要介绍了Delphi解析FTP地址的方法,涉及Delphi解析FTP的相关技巧,需要的朋友可以参考下2015-05-05
在MDI窗体类型的编程中，主窗体（fsMDIForm）怎样调用子窗体（fsMDIChild，此子窗体为DLL）。2008-03-03
这篇文章主要介绍了Delphi中设置条件断点的方法，有需要的朋友可以参考一下2014-01-01
这篇文章主要介绍了Delphi下OpenGL2d绘图之画线的方法,需要的朋友可以参考下2014-07-07
这篇文章主要介绍了delphi 判断字符串是否为纯字母组合的函数,需要的朋友可以参考下2022-12-12
最新评论