تطبق دلفي طريقة للحصول على حجم مساحة القرص

يتم استخدام مثال دلفي الموضح في هذه المقالة للحصول على سعة مساحة القرص المحددة، واكتشاف حجم القرص، وتحديد رمز القرص من المربع، ووظائف أخرى. انقر فوق زر معلومات سعة "التحقق من محرك الأقراص"، وسيتم عرض المساحة الإجمالية للقرص ومقدار السعة المستخدمة أدناه. يمكن للقراء إضافة عناصر التحكم في الأزرار والتسمية المقابلة وفقًا لاحتياجاتهم.

رمز البرنامج الرئيسي هو كما يلي:

 وحدة Unit1؛ تستخدم واجهات Windows، والرسائل، وSysUtils، والفئات، والرسومات، وعناصر التحكم، والنماذج، ومربعات الحوار، وStdCtrls؛ اكتب TForm1 = class(TForm) Edit1: TEdit; TObject); خاص { الإعلانات الخاصة } public { الإعلانات العامة } end;var Form1: TForm1;إجراء التنفيذ{$R *.DFM} TForm1.Button1Click(Sender: TObject);var driver:pchar; اسم محرك الأقراص GetDiskFreeSpace(driver, sec1, byt1, cl1, cl2); cl1*sec1 * byt1; := 'السعة المتوفرة لمحرك الأقراص' + Formatfloat('###,##0',cl1) + 'Bytes';end;end.