XProfan

Français

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
System: Laufwerks-Speicherinformationen
===================================================================
Laufwerks-Speicherinformationen mit Profan 32 Bit ermitteln
1997 Richard Maurukas
===================================================================
cls
Def HoleLaufwerkskapazität(5) ! KERNEL32.DLL,GetDiskFreeSpaceA
declare Laufwerk$
declare Laufwerk#
declare SectperCluster#
declare BytesperSector#
declare Freeclusters#
declare Clusters#
dim Laufwerk#,4                  Drei Zeichen für die Laufwerksangabe
dim SectperCluster#,1            Zeichen für die Anzahl die Cluster
dim BytesperSector#,1            Bytes und Sektoren sollten  ausreichen.
dim Freeclusters#,1
dim Clusters#,1
decimals 0                       Für die Anzeige keine Nachkommastellen
Let Laufwerk$=C:              Laufwerksangabe mit
String Laufwerk#,0=Laufwerk$
HoleLaufwerksKapazität(Laufwerk#,SectperCluster#,BytesperSector#,Freeclusters#,Clusters#)
Print Speicherinformationen von Laufwerk : ;Laufwerk$
Print -----------------------------------------------
print Cluster              :;long(Clusters#,0)
print Sektoren pro Cluster :;long(SectperCluster#,0)
print Bytes pro Sektor     :;long(BytesperSector#,0)
Print Bytes Pro Cluster    :;mul(long(SectperCluster#,0),long(BytesperSector#,0))
print Freie Cluster        :;long(Freeclusters#,0)
Print -----------------------------------------------
Print Bytes Gesamt         :;mul(Mul(long(Clusters#,0),long(SectperCluster#,0)),long(BytesperSector#,0))
Print Bytes Frei           :;mul(Mul(long(FreeClusters#,0),long(SectperCluster#,0)),long(BytesperSector#,0))
waitkey
Bereichsvariablen freigeben
dispose Laufwerk#
dispose SectperCluster#
dispose BytesperSector#
Dispose Freeclusters#
dispose Clusters#
end