Free Disk Space Information dengan Delphi 7

Baiklah langsung saja tanpa basa-basi, kali ini saya bagikan source code untuk mengetahui informasi Disk Drive entah itu Space yang terpakai (Used space), Space yang kosong (Free space), dan kapasitas (Capacity) yang ada. Langsung saja ke TKP.

1. Buka Delphi 7 Anda dan buat Project baru dengan cara pilih menu File -> New Project -> Application
2. Pada Form yang aktif tambahkan 1 Combobox dan 3 Label dan atur seperti gambar di bawah ini.
   
   
3. Kemudian double click di area Form dan tepat di bawah procedure TForm1.FormCreate(Sender: TObject); copy paste kode di bawah ini.
   var
   i:Integer;
4. Setelah itu di bawah begin copy paste source code di bawah ini.
   

   for i:=Ord('A') to Ord('Z') do
       begin
         if  GetDriveType(pchar(char(i)+':\'))=3  then
           ComboBox1.Items.Add(char(i)+':\');
         end;
     ComboBox1.Text:=ComboBox1.Items.Strings[0];

5. Sekarang klik 2x Combobox dan di bawah procedure TForm1.ComboBox1Change(Sender: TObject); copy paste kode di bawah ini.
   var
   Free1,free2,Total1:Int64;
   
6. Setelah itu di bawah begin copy paste kode berikut ini.
   

   GetDiskFreeSpaceEx(pchar(ComboBox1.Text)  , free1 , total1 , @free2);
   Label1.Caption := 'Capacity : ' + IntToStr(Total1) + ' Byte     '+ floatToStr(Total1 div (1024*1024)) + ' MB';
   Label2.Caption := 'Free space : ' + IntToStr(Free1) + ' Byte     '+ floatToStr(Free1 div (1024*1024)) + ' MB';
   Label3.Caption := 'Used space : ' + IntToStr(Total1-Free1) + ' Byte     '+ floatToStr((Total1-Free1) div (1024*1024)) + ' MB';

7. Sekarang jalankan programnya (F9) dan lihat hasilnya. Selesai.

OK, itu saja dulu untuk Delphi 7. Silakan download full source code melalui tombol di bawah ini.