Contoh Delphi yang dijelaskan dalam artikel ini digunakan untuk mendapatkan kapasitas ruang disk yang ditentukan, mendeteksi ukuran disk, memilih kode disk dari kombo, dan fungsi lainnya. Klik tombol informasi kapasitas "Periksa Drive", dan total ruang disk serta jumlah kapasitas yang akan digunakan akan ditampilkan di bawah. Pembaca dapat menambahkan kontrol Tombol dan label yang sesuai sesuai dengan kebutuhannya.
Kode program utamanya adalah sebagai berikut:
unit Unit1;antarmukamenggunakan Windows, Pesan, SysUtils, Kelas, Grafik, Kontrol, Formulir, Dialog, StdCtrls;ketik TForm1 = class(TForm) Edit1: TEdit; Tombol1: TButton; TObject); private { Deklarasi pribadi } public { Deklarasi publik } end;var Form1: TForm1;implementasi{$R *.DFM}prosedur TForm1.Button1Click(Pengirim: TObject);var driver:pchar; sec1, byt1, cl1, cl2:longword;begin driver:=pchar(edit1.text);//Untuk menampilkan Nama drive GetDiskFreeSpace(driver, sec1, byt1, cl1, cl1 := cl1*sec1 * byt1;= cl2*sec1 * byt1; Label1.Keterangan:= 'Total kapasitas drive' + Formatfloat('###,##0',cl2) + 'byte'; := 'Kapasitas drive yang tersedia' + Formatfloat('###,##0',cl1) + 'Bytes';end;end.