ตรวจจับความสามารถในการขับเคลื่อน

ฟังก์ชันต้นแบบ:

บูล 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 '', ทั้งหมด);

EDIT3.Text: = formatfloat ('' ###, ## 0 '', freesp);

จบ;