Функциональный прототип:
Bool getDiskFreepse (
LPCTSTR LPROOTPATHNAME,
Lpdword lpsectorspercluster,
Lpdword lpbytestersector,
Lpdword lpnumberoffreeclusters,
LPDWORD LptotalNumberOfClusters
);
Описание параметра:
1.lprootpathname: указывает имя корневого каталога тестового привода. Когда NULL, это имя корневого каталога диска, где находится текущий каталог.
2.lpsectorspercluster: Получите количество секторов на кластер диска.
3.lpbytestescrector: Получите количество байтов на сектор диска.
4.lpnumberoffreeclusters: количество кластеров, оставшихся в диске.
5.lptotalnumberofclusters: количество кластеров в общем диске.
Пример приложения:
Отображает общую пропускную способность дискового пространства и оставшуюся мощность.
1) На основе приведенного выше примера добавьте два компонента редактирования и два компонента метки, такие как
2) Добавьте следующее содержимое в соответствующую часть события онкола компонента ComboBox:
дольдо
дисктотальный, дискри, Cl1, Cl2, Sec1, Byt1: Longword;
Начинать
GetDiskFreespace (pchar (combobox1.items [combobox1.items [combobox1.items]), sec1, byt1, cl1, cl2); // Получить информацию о диске
Diskfree: = cl1*sec1*byt1; // оставшаяся емкость = количество оставшихся кластеров*Количество секторов на кластер*Количество байтов на сектор
дисктотальный: = cl2*sec1*byt1; // Общая емкость = общее количество кластеров диска*Количество секторов на кластер*Количество байтов на сектор
edit2.text: = formatfloat ('' ##, ## 0 '', total);
edit3.text: = formatfloat ('' ###, ## 0 '', freesp);
конец;