XProfan

Declare X&,Y&,Bereich#,Text$,T$,F!,Bereich2#,Bereich3#,Bereich4#
Dim Bereich#,1024
Dim Bereich2#,256
Dim Bereich3#,256
Dim Bereich4#,256
Def Getvolumeinformation(8) !KERNEL32,GetVolumeInformationA
Def Getdrivetype(1) !KERNEL32,GetDriveTypeA
Def Getdiskfreespaceex(4) !KERNEL32,GetDiskFreeSpaceExA
Def Globalmemorystatus(1) !KERNEL32,GlobalMemoryStatus
Def @X!(8) (((((((@%(8)*256+@%(7))*256+@%(6))*256+@%(5))*256+@%(4))*256+@%(3))*256+@%(2))*256+@%(1))

Proc Get64

    Parameters Cc&
    F!= @X!(@Byte(Cc&,0),@Byte(Cc&,1),@Byte(Cc&,2),@Byte(Cc&,3),@Byte(Cc&,4),@Byte(Cc&,5),@Byte(Cc&,6),@Byte(Cc&,7))

Endproc

Decimals 0
Window 0,0-%Maxx,%Maxy
String Bereich2#,0=A:/

Whileloop 16

    X&=Getvolumeinformation(Bereich2#,Bereich#,1024,0,0,0,Bereich3#,256)

    If X&

        Text$=String$(Bereich2#,0)+Chr$(10)+Name = +String$(Bereich#,0)+Chr$(10)+Filesystem = +String$(Bereich3#,0)+Chr$(10)
        X&=Getdrivetype(Bereich2#)
        T$=Unbekannt
        Case X&=5:T$=CDROM
        Case X&=3:T$=FIXED (z.B. Festplatte)
        Case X&=1:T$=NO ROOT DIR
        Case X&=6:T$=RAMDISK
        Case X&=4:T$=REMOTE
        Case X&=2:T$=REMOVEABLE (z.B. Diskette)
        Text$=Text$+Laufwerkstyp = +T$+Chr$(10)
        Getdiskfreespaceex(Bereich2#,Bereich#,Bereich3#,Bereich4#)
        Get64 Bereich3#
        Text$=Text$+Kapatität = +Str$(F!)+ (belegt) /
        Get64 Bereich4#
        Text$=Text$+Str$(F!)+ (frei) Bytes
        Print Text$
        Print

    Endif

    Byte Bereich2#,0=Byte(Bereich2#,0)+1

Endwhile

Clear Bereich#
Long Bereich#,0=32
Globalmemorystatus(Bereich#)
Print Ram-Speicher = +Str$(Long(Bereich#,8))+ (total) / +Str$(Long(Bereich#,12))+ (frei) Bytes
Waitinput
Dispose Bereich#
Dispose Bereich2#
Dispose Bereich3#
Dispose Bereich4#
href='./../../funktionsreferenzen/XProfan/end/'>End