XProfan

English

Description:

GetVolumeInformation reads Laufwerksinformationen over the angegebene drive from.

Deklaration:

Def @GetVolumeInformation(8) !KERNEL32,GetVolumeInformationA

Parameter:

1.Parameter: address one Strings or Memory-Variable with a String, the the Rootverzeichnis the Abzufragenden Laufwerks contains. can 0 his - then becomes the actually Rootverzeichnis taken.

2.Parameter: Memory-Variable, The whom names the Labels (the Festplatte, floppy disk, CD... ) receiving.

3.Parameter: length the Bereiches in Parameter 2 as LongInt.

4.Parameter: Bereichvariable, The The serial number the Labels receiving (can 0 his).

5.Parameter: 4 byte Bereichvariable, The The maximum length one Dateinamens receiving (can 0 his).

6.Parameter: 4 byte Bereichvariable, The ? Happen? over the Dateisystem receiving (can 0 his). =>
-$2 = big- and Kleinschreibung of Filenames becomes receive.
-$1 = big- and Kleinschreibung of Filenames becomes berücksichtigt (z.B. with the Search or the Überschreiben).
-$4 = Unicode Filenames go supported.
-$8 = Accesslisten go supported / demand (z.B. with windows2000)
-$10 = supported Dateikomprimierung.
-$8000 = Komprimierter volume.

7.Parameter: Memory-Variable, The whom names the Dateisystems receiving (can 0 his).

8.Parameter: length the Bereichs in Parameter 7.

Return Value:

1 if any asked Information supplied get. otherwise 0.

Examples:

Compile Mark Separation

Declare x&,y&,bereich#,text$,bereich2#
Dim bereich#,1024
Dim bereich2#,256
Def @GetVolumeInformation(8) !"KERNEL32","GetVolumeInformationA"
Windowstyle 31
Windowtitle "Laufwerksnamen"
Window 0,0-640,440
String bereich2#,0="A:"

Whileloop 16

    x&=@GetVolumeInformation(bereich2#,bereich#,1024,0,0,0,0,0)

    If x&

        text$=@String$(bereich#,0)
        Print @String$(bereich2#,0)+" = "+text$

    EndIf

    Byte bereich2#,0=@Byte(bereich2#,0)+1

EndWhile

Dispose bereich#
Dispose bereich2#

While 0=0

    Waitinput

Wend