Delphi實現擷取磁碟空間大小的方法_Delphi

本文所述Delphi執行個體用以擷取指定的磁碟空間容量大小，檢測磁碟大小，從combox中選擇磁碟代號等功能。點擊“檢測磁碟機”容量資訊的按鈕，就可以在下邊顯示出該磁碟的總空間大小以及要用容量的大小。讀者可根據需求添加對應的Button與label控制項。

主要程式碼如下所示：

unit Unit1;interfaceuses 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.