int
DiskNumarasi;
double
DiskBoyutu;
AnsiString ozcan;
ozcan=UpperCase(DriveComboBox1->Text);
DiskNumarasi=ozcan[1]-64;
//Sürücü HArfinden Numarayı Bul
DiskBoyutu=DiskSize(DiskNumarasi)/1024.0/1024.0;
Edit1->Text=FloatToStr(DiskBoyutu)+
"MB"
;
//forma Drive Combo box ALın ve çift tıklayın içine yukarıdaki kodu yazın