Prototype de fonction:
Bool getdiskfreespace (
Lpctstr lprootpathName,
Lpdword lPsectorsperCluster,
LPDword LPByTespersector,
Lpdword lpNumberoffReEClusters,
LPDword lptotalnumberofclusters
));
Description du paramètre:
1.LProotPathName: Spécifie le nom du répertoire racine du lecteur de test. Lorsque NULL, c'est le nom du répertoire racine du lecteur où se trouve le répertoire actuel.
2.LPSECTORSPERCLUSER: Obtenez le nombre de secteurs par cluster du lecteur.
3.LPBYTSPERSECTEUR: Obtenez le nombre d'octets par secteur du lecteur.
4.lpNumberoffreclusters: Le nombre de clusters restant dans l'espace disque.
5.LptotalNumberofClusters: le nombre de clusters dans l'espace disque total.
Exemple d'application:
Affiche la capacité totale de l'espace disque et la capacité restante.
1) Sur la base de l'exemple ci-dessus, ajoutez deux composants d'édition et deux composants d'étiquette, tels que
2) Ajouter le contenu suivant à la partie correspondante de l'événement OnChange du composant ComboBox:
val
Disktotal, Diskfree, Cl1, Cl2, Sec1, BYT1: Longword;
Commencer
GetDiskFreespace (PCHA (comboBox1.items [comboBox1.items [comboBox1.items]), sec1, byt1, cl1, cl2); // obtenir des informations sur disque
Diskfree: = Cl1 * Sec1 * BYT1; // Capacité restante = Nombre de clusters restants * Nombre de secteurs par cluster * Nombre d'octets par secteur
Disktotal: = Cl2 * Sec1 * BYT1; // Capacité totale = Nombre total de grappes de disque * Nombre de secteurs par cluster * Nombre d'octets par secteur
edit2.text: = formatfloat ('' ##, ## 0 '', total);
edit3.text: = formatfloat ('' ###, ## 0 '', freesp);
fin;