Delphi实现获取磁盘空间大小的方法
本文所述Delphi实例用以获取指定的磁盘空间容量大小，检测磁盘大小，从combox中选择磁盘代号等功能。点击“检测驱动器”容量信息的按钮，就可以在下边显示出该磁盘的总空间大小以及要用容量的大小。读者可根据需求添加对应的Button与label控件。
主要程序代码如下所示：
unitUnit1;
interface
uses
Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,
StdCtrls;
type
TForm1=class(TForm)
Edit1:TEdit;
Button1:TButton;
Label1:TLabel;
Label2:TLabel;
procedureButton1Click(Sender:TObject);
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:TForm1;
implementation
{$R*.DFM}
procedureTForm1.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.热门推荐
10 对患者生日祝福语简短
11 结婚祝福语简短装备
12 周岁祝福语学生文案简短
13 订婚领证祝福语简短精辟
14 导师获奖祝福语大全简短
15 新婚购房祝福语简短精辟
16 牛年祝福语简短的爱人
17 送芒果的祝福语简短
18 送给学长毕业祝福语简短