امروز براتون یک کد بسیار جالب آوردم شما برای بدست آوردن اطلاعاتی از پارتیشن دیسک توابع زیادی و خوبی در دلفی وجود دارد من یک مثال کاربردی نوشته ام که به دو مورد از آن ها اشاره کردم . برای این مثال یک دکمه و سه تا لیبیل در فرم قرار دهید و سپس روی دکه دوبار کلیک کنید و در روال آن کد زیر را بنویسید :

procedure TForm1.Button1Click(Sender: TObject); var   f,t: Double;   Drivename: Char; begin   // Program By S.T.A Group Programming (Saeed System)http://www.delphicode.blogfa.com   // This Program For Get Information From a Partition Disk   Drivename := 'c';   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;

متغیر Drivename را برابر با درایوی که می خواهید فضای آن را بگرید مقدار دهی کنید

نظر هم یادتون نره

یا حق