درخواست : سورس یا کامپوننت فضای آزاد و ... دیسک

[Sabeghi]

با سلام
من جستجو کردم مورد سئوالم رو هم پیدا کردم اما لینکی یا نمونه ای ندیدم مثل اینکه پاک شده
بنابراین دوباره این سئوال رو مطرح کردم
من نیاز به کامپوننتی دارم که به من اطلاعات کافی در رابطه با یک درایو بده اگر بصورت چارت هم باشه که چه بهتر متشکرم

[kharaee_com]

procedure TForm1.Button1Click(Sender: TObject);
var
f,t: Double;
Drivename: Char;
begin
// Program By S.T.A Group Programming (Saeed System) http://www.kharaee.com
// This Program For Get Information From a Partition Disk http://www.microsource.ir
Drivename := 'C' ;
Label4.Caption := Drivename + ' اطلاعات درايو ' ;
f:= DiskFree(Ord(Drivename) - 64);
t:= DiskSize(Ord(Drivename) - 64);
label1.Caption := Format('فضاي خالي: %12.0n', [f]);
Label2.Caption := Format('فضاي کل ديسک: %12.0n', [t]);
Label3.Caption := IntToStr(Round((t - f) / t * 100)) +
' درصد از پارتيشن استفاده شده';
end;