Fungsi Prototipe:
Bool getdiskfreespace (
Lpctstr lprootpathname,
Lpdword lpsectorspercluster,
Lpdword lpbytespersector,
Lpdword lpnumberoffreeclusters,
Lpdword lptotalnumberofclusters
);
Deskripsi Parameter:
1.lprootpathname: Menentukan nama direktori root dari test drive. Saat nol, itu adalah nama direktori root dari drive tempat direktori saat ini berada.
2.lpsectorsPerCluster: Dapatkan jumlah sektor per cluster drive.
3.lpbyTespersector: Dapatkan jumlah byte per sektor drive.
4.lpnumberoffreeclusters: Jumlah kelompok yang tersisa di ruang disk.
5.lptotalNumberofClusters: Jumlah kelompok dalam total ruang disk.
Contoh aplikasi:
Menampilkan total kapasitas ruang disk dan kapasitas yang tersisa.
1) Berdasarkan contoh di atas, tambahkan dua komponen edit dan dua komponen label, seperti
2) Tambahkan konten berikut ke bagian yang sesuai dari acara Onchange dari komponen ComboBox:
Val
disktotal, diskfree, cl1, cl2, sec1, byt1: longword;
Mulai
GetDiskFreespace (PCHAR (ComboBox1.Items [comboBox1.items [comboBox1.items]), sec1, byt1, cl1, cl2); // dapatkan informasi disk
DiskFree: = Cl1*sec1*byt1; // Kapasitas yang tersisa = Jumlah kelompok yang tersisa*Jumlah sektor per cluster*Jumlah byte per sektor
DiskTotal: = CL2*Sec1*BYT1; // Kapasitas Total = Jumlah Total Cluster Disk*Jumlah sektor per cluster*Jumlah byte per sektor
EDIT2.TEXT: = formatFloat ('' ##, ## 0 '', Total);
Edit3.text: = formatFloat ('' ###, ## 0 '', freesp);
akhir;