Delphi实现获取磁盘空间大小的方法

发布时间：2020-12-15 04:24:25 所属栏目：大数据来源：网络整理

导读：本文所述Delphi实例用以获取指定的磁盘空间容量大小，检测磁盘大小，从combox中选择磁盘代号等功能。点击“检测驱动器”容量信息的按钮，就可以在下边显示出该磁盘的总空间大小以及要用容量的大

本文所述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,cl2);
 cl1 := cl1*sec1 * byt1;
 cl2 := cl2*sec1 * byt1;
 Label1.Caption:= '该驱动器总共容量' + Formatfloat('###,##0',cl2) + '字节';
 Label2.Caption := '该驱动器可用容量' + Formatfloat('###,cl1) + '字节';
end;
end.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!