Delphi ile harddiskimizin boyutunu ve boş alan boyutunu bulmak

Bu yazımızda harddiskimizin toplam boyutunu ve boş alanını bulacağız.
 

 Combobox1 içine kendi elimiz ile (daha sonra otomatik sürücü eklemeyi yazımızda belirtiriz.) Sürücü harflerini girin.(C,D,E) gibi.

Var değişlenimizi public altına yazalım. 

 var
  Disk: Integer;
...

Formumuza bir ComboBox1 ,iki label bir de button koyalım 
eventina aşağıdaki kodu ekleyelim. 

 procedure TForm1.Button1Click(Sender: TObject);
var
  Total, Free: LongInt;
begin
  Total:=DiskSize(Disk) div 1024;
  Free:=DiskFree(Disk) div 1024;
  Gauge1.MaxValue:=Total;
  Gauge1.Progress:=Free;
  Label1.Caption:='Toplam Alan - '+IntToStr(Total);
  Label2.Caption:='Boş Alan - '+IntToStr(Free);
end; 

Combobox1 Change eventına da aşağıdaki kodu ekleyelim. 

 procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Disk:=ComboBox1.ItemIndex+1;
end;

Bir daha ki yazımızda görüşmek üzere.