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.