获取磁盘空间大小代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】获取磁盘空间大小

作者:秀清 / 发布于2015/5/13/ 843

本文所述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.

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　磁盘空间　

同语言下

可能有用的

秀清贡献的其它代码(25)