PureBoard

Code: Alles auswählen

; Konstanten
#PB_Drive_Removable = 2
#PB_Drive_Fixed     = 3
#PB_Drive_Remote    = 4
#PB_Drive_CDRom     = 5
#PB_Drive_RamDisk   = 6


; Interne Struktur
Structure Drive_PBI
 Path$
 Type.i
 Name$
 Size.q
 Free.q
EndStructure 

; Interne Liste
Global NewList Drive_PBI.Drive_PBI()


; Ermittelt alle Laufwerke und deren Informationen
;  Flag gibt an, ob auch Infos von Wechseldatenträgern ermittelt werden sollen
Procedure ExamineDrives(Flag=#True)
 Protected Drives$ = "", Size
 Protected Bytes, Sectors, TotalClusters, FreeClusters
 ClearList(Drive_PBI())
 Size = GetLogicalDriveStrings_(0, @Drives$) 
 Drives$ = Space(Size) 
 GetLogicalDriveStrings_(Size, @Drives$)
 *Drives = @Drives$
 While Trim(PeekS(*Drives))
  AddElement(Drive_PBI())
  With Drive_PBI()
   \Path$ = Trim(PeekS(*Drives))
   \Type = GetDriveType_(\Path$) 
   If (Flag Or \Type = #PB_Drive_Fixed) 
    \Name$ = Space(#MAX_PATH) 
    If GetVolumeInformation_(\Path$, \Name$, #MAX_PATH, 0, 0, 0, 0, 0) 
     If GetDiskFreeSpace_(\Path$, @Sectors, @Bytes, @FreeClusters, @TotalClusters)
      \Size = TotalClusters * Sectors * Bytes
      \Free = FreeClusters * Sectors * Bytes
     EndIf
    EndIf
    \Name$ = Trim(\Name$)
   EndIf 
   *Drives + StringByteLength(\Path$) + SizeOf(Character) 
  EndWith
 Wend
 ResetList(Drive_PBI())
EndProcedure

; Springt zum nächsten Laufwerk
Macro NextDrive()
 NextElement(Drive_PBI())
EndMacro

; Gibt den Pfad des Laufwerks zurück ("C:\")
Macro DrivePath()
 Drive_PBI()\Path$
EndMacro

; Gibt den Namen des (Fix-)Laufwerks zurück ("BOOT")
Macro DriveName()
 Drive_PBI()\Name$
EndMacro

; Gibt den Typen des Laufwerks zurück (#PB_Drive_Fixed)
Macro DriveType()
 Drive_PBI()\Type
EndMacro

; Gibt den freien Speicherplatz zurück
;  Prefix bestimmt die Einheit: 0 - Byte ; 1 - KiloByte ; 2 - MegaByte ; 3 - GigaByte ; ...
Macro DriveFreeSize(Prefix=0)
 ( Drive_PBI()\Free / Pow(1024, Prefix) )
EndMacro

; Gibt den gesamt Speicherplatz zurück
;  Prefix bestimmt die Einheit: 0 - Byte ; 1 - KiloByte ; 2 - MegaByte ; 3 - GigaByte ; ...
Macro DriveTotalSize(Prefix=0)
 ( Drive_PBI()\Size / Pow(1024, Prefix) )
EndMacro

Code: Alles auswählen

ExamineDrives()
While NextDrive()
 Select DriveType()
  Case #PB_Drive_Removable
   Type$ = "Wechseldatenträger"
   Info$ = "  [ "+StrF(DriveFreeSize(2),2)+" MB Frei / "+StrF(DriveTotalSize(2),2)+" MB ]"
  Case #PB_Drive_Fixed
   Type$ = "Festplatte"
   Info$ = "  [ "+StrF(DriveFreeSize(3),2)+" GB Frei / "+StrF(DriveTotalSize(3),2)+" GB ]"
  Case #PB_Drive_Remote
   Type$ = "Netzlaufwerk"
   Info$ = "  [ "+StrF(DriveFreeSize(3),2)+" GB Frei / "+StrF(DriveTotalSize(3),2)+" GB ]"
  Case #PB_Drive_CDRom
   Type$ = "CD/DVD-Laufwerk"
   Info$ = "  [ "+StrF(DriveFreeSize(2),2)+" MB Frei / "+StrF(DriveTotalSize(2),2)+" MB ]"
  Case #PB_Drive_RamDisk
   Type$ = "RAM-Laufwerk"
   Info$ = "  [ "+StrF(DriveFreeSize(2),2)+" MB Frei / "+StrF(DriveTotalSize(2),2)+" MB ]"
  Default 
   Type$ = "Unbekannter Laufwerktyp"
   Info$ = ""
 EndSelect
 Debug Type$+"  ("+DriveName()+")  "+DrivePath()+Info$
Wend

Code: Alles auswählen

*Drives + StringByteLength(\Path$) + SizeOf(CHARACTER)

Code: Alles auswählen

Drives$ = Space(#MAX_PATH) 
Size = GetLogicalDriveStrings_(#MAX_PATH, @Drives$)

Code: Alles auswählen

Drive$ = ""
Size = GetLogicalDriveStrings_(0, @Drives$)
Drive$ = Space(Size)
Size = GetLogicalDriveStrings_(Size, @Drive$)