ตัวอย่าง Delphi ที่อธิบายในบทความนี้ใช้เพื่อรับความจุพื้นที่ดิสก์ที่ระบุ ตรวจจับขนาดดิสก์ เลือกรหัสดิสก์จากคอมโบ และฟังก์ชันอื่น ๆ คลิกปุ่มข้อมูลความจุ "ตรวจสอบไดรฟ์" พื้นที่ทั้งหมดของดิสก์และจำนวนความจุที่จะใช้จะแสดงอยู่ด้านล่าง ผู้อ่านสามารถเพิ่มปุ่มควบคุมและป้ายกำกับที่เกี่ยวข้องได้ตามความต้องการ
รหัสโปรแกรมหลักมีดังนี้:
หน่วย Unit1; อินเทอร์เฟซ Windows, ข้อความ, SysUtils, คลาส, กราฟิก, การควบคุม, แบบฟอร์ม, กล่องโต้ตอบ, StdCtrls; พิมพ์ TForm1 = class (TForm) แก้ไข 1: TEdit; Button1: TLabel; TObject); ส่วนตัว { ประกาศส่วนตัว } สาธารณะ { ประกาศสาธารณะ } end;var Form1: TForm1;การดำเนินการ{$R *.DFM}ขั้นตอน TForm1.Button1Click(Sender: TObject);var driver:pchar; sec1, byt1, cl1, cl2:longword;begin driver:=pchar(edit1.text);//เพื่อแสดง ชื่อไดรฟ์ GetDiskFreeSpace(ไดรเวอร์, sec1, byt1, cl1, cl2); cl1*sec1 * byt1; cl2 := cl2*sec1 * byt1; Label1.Caption:= 'ความจุรวมของไดรฟ์' + Formatfloat('###,##0',cl2) + 'byte'; := 'ความจุที่มีอยู่ของไดรฟ์' + Formatfloat('###,##0',cl1) + 'Bytes';end;end.