Cara Membuat Aplikasi Penghitung Kapasitas Hard Disk di Delphi 7

Selamat malam agan-agan.Langsung aja deh , tutorial kali ini akan membahas mengenai Cara Membuat Aplikasi Penghitung Kapasitas Hard Disk di Delphi 7.Aplikasi sederhana ini nantinya akan menampilkan sisa space pada hard disk , total space terpakai dan persentase memori yang terpakai dari total keseluruhan partisi.Kalau sudah gak sabar , langsung saja buka borland Delphi 7 anda.Tambahkan 4 buah component TLabel , 1

buah TComboBox , isi itemnya dengan C , D , E , F.Lalu set item indexnya menjadi 0.Dan terakhir sebuah TButton.Susun component tersebut sesuai gambar berikut

Okay , setelah itu double klik TButton lalu ketikan kode berikut

procedure TForm1.Button1Click(Sender: TObject);
var
sisaMemori, kapasitasMemori: Double;
sisa: Char;
begin
case ComboBox1.ItemIndex of
0:sisa:='C';
1:sisa:='D';
2:sisa:='E';
3:sisa:='F';
end;
sisaMemori := DiskFree(Ord(sisa) - 64);
kapasitasMemori := DiskSize(Ord(sisa) - 64);
label1.Caption := Format('Sisa Memori: %12.0n', [sisaMemori]);
Label2.Caption := Format('Kapasitas: %12.0n', [kapasitasMemori]);
Label3.Caption := IntToStr(Round((kapasitasMemori - sisaMemori) / kapasitasMemori * 100)) +' Persen Terpakai.';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  sisaMemori, kapasitasMemori: Double;
  sisa: Char;
begin
  case ComboBox1.ItemIndex of
    0:sisa:='C';
    1:sisa:='D';
    2:sisa:='E';
    3:sisa:='F';
  end;

  sisaMemori := DiskFree(Ord(sisa) - 64);
  kapasitasMemori := DiskSize(Ord(sisa) - 64);

  label1.Caption := Format('Sisa Memori: %12.0n', [sisaMemori]);
  Label2.Caption := Format('Kapasitas: %12.0n', [kapasitasMemori]);
  Label3.Caption := IntToStr(Round((kapasitasMemori - sisaMemori) / kapasitasMemori * 100)) +' Persen Terpakai.';
end;

Selesai !! jalankan program anda lalu pilih drive mana yang akan di cek.Setelah itu tekan tombol hitung.Maka akan tampil tuh keterangan mengenai kapasitas dari partisi drive yang agan pilih.Sekian tutorial kali ini semoga bermanfaat.

|| Facebook Bagi2 Software Dan Ipad Gratis Loh! Download Disini