اكتشاف سعة القيادة

وظيفة النموذج الأولي:

Bool getDiskFreespace (

LPCTSTR LPROOTPATHNAME ،

lpdword lpsectorspercluster ،

LPDWORD LPBYTESPERSECTOR

LPDWORD LPNUMBEROFFREECLUSTERS ،

lpdword lptotalnumberofclusters

) ؛

وصف المعلمة:

1.lprootpathName: يحدد اسم الدليل الجذر لمحرك الاختبار. عندما NULL ، يكون اسم الدليل الجذر لمحرك الأقراص حيث يوجد الدليل الحالي.

2.lpsectorsperCluster: احصل على عدد القطاعات لكل مجموعة من محرك الأقراص.

3.lpbytespersector: احصل على عدد البايتات لكل قطاع من محرك الأقراص.

4.lpnumberoffreeclusters: عدد المجموعات المتبقية في مساحة القرص.

5.lptotalnumberofclusters: عدد المجموعات في مساحة القرص الكلية.

مثال على التطبيق:

يعرض إجمالي سعة مساحة القرص والقدرة المتبقية.

1) استنادًا إلى المثال أعلاه ، أضف مكونين تحرير ومكونين تسمية ، مثل

2) أضف المحتوى التالي إلى الجزء المقابل من حدث OnChange لمكون Combobox:

فال

disktotal ، diskfree ، cl1 ، cl2 ، sec1 ، byt1: longword ؛

يبدأ

getDiskFreespace (PCHAR (ComboBox1.Items [comboBox1.Items [comboBox1.Items]) ، Sec1 ، BYT1 ، CL1 ، CL2) ؛ // الحصول على معلومات القرص

diskfree: = cl1*sec1*byt1 ؛ // السعة المتبقية = عدد المجموعات المتبقية*عدد القطاعات لكل مجموعة*عدد البايت لكل قطاع

disktotal: = cl2*sec1*byt1 ؛ // إجمالي السعة = إجمالي عدد مجموعات القرص*عدد القطاعات لكل مجموعة*عدد البايتات لكل قطاع

edit2.text: = formatfloat ('' ## ، ## 0 '' ، total) ؛

edit3.text: = formatfloat ('' ### ، ## 0 '' ، freesp) ؛

نهاية؛