Funktionsprototyp:
Bool getdiskfreespace (
LPCTStr LPROOTPADHNAME,
LPDWORD LPSECTORSPERCLUSTER,
LPDWORD LPBYTeSperctor,
LPDWORD LPNUMBEROFFREECLUSTERS,
LPDWORD LPTOTALNUMBEROFCLUSTERS
);
Parameterbeschreibung:
1.LPROOTPATHNAME: Gibt den Namen des Stammverzeichnisses des Testlaufwerks an. Wenn Null ist, ist es der Name des Stammverzeichnisses des Laufwerks, in dem sich das aktuelle Verzeichnis befindet.
2. LPSECTORSPERSCHLAUBER: Holen Sie sich die Anzahl der Sektoren pro Antriebscluster.
3.LPBYTeSperctor: Holen Sie sich die Anzahl der Bytes pro Sektor des Laufwerks.
4.LPNUMBEROFFREECLUSTERS: Die Anzahl der Cluster, die im Speicherplatz verbleiben.
5.LPTOTALNUMBEROFCLUSTERS: Die Anzahl der Cluster im gesamten Speicherplatz.
Anwendungsbeispiel:
Zeigt die Gesamtkapazität des Speicherplatzes und die verbleibende Kapazität an.
1) Fügen Sie basierend auf dem obigen Beispiel zwei Bearbeitungskomponenten und zwei Etikettenkomponenten hinzu, wie z. B.
2) Fügen Sie dem entsprechenden Teil des Onchange -Ereignisses der Combobox -Komponente den folgenden Inhalt hinzu:
val
disktotal, diskfree, cl1, cl2, sec1, byt1: longword;
Beginnen
GetDiskfreespace (pChar (Combobox1.Items [Combobox1.Items [Combobox1.Items]), Sec1, Byt1, Cl1, Cl2); // Diskussionsinformationen erhalten
Diskfree: = cl1*sec1*byt1; // verbleibende Kapazität = Anzahl der verbleibenden Cluster*Anzahl der Sektoren pro Cluster*Anzahl der Bytes pro Sektor
Disktotal: = Cl2*Sec1*byt1; // Gesamtkapazität = Gesamtzahl der Festplattencluster*Anzahl der Sektoren pro Cluster*Anzahl der Bytes pro Sektor
edit2.text: = formatfloat ('' ##, ## 0 '', insgesamt);
edit3.text: = formatfloat ('' ###, ## 0 '', freesp);
Ende;