XProfan

Español

Descripción:

GetVolumeInformation liest Laufwerksinformationen encima el angegebene Laufwerk de.

Deklaration:

Def @GetVolumeInformation(8) !KERNEL32,GetVolumeInformationA

Parámetro:

1.Parámetro: Adresse uno Cuerdas oder Bereichsvariable con un String, de los Rootverzeichnis des Abzufragenden Laufwerks enthält. Kann 0 ser - Luego se el aktuelle Rootverzeichnis genommen.

2.Parámetro: Bereichsvariable, el el Namen des Labels (el Festplatte, Diskette, CD... ) empfängt.

3.Parámetro: Longitud des Bereiches en Parámetro 2 como LongInt.

4.Parámetro: Bereichvariable, el el Seriennummer des Labels empfängt (kann 0 ser).

5.Parámetro: 4 Byte Bereichvariable, el el maximale Longitud uno Dateinamens empfängt (kann 0 ser).

6.Parámetro: 4 Byte Bereichvariable, el Flags encima el Dateisystem empfängt (kann 0 ser). =>
-$2 = Groß- y Kleinschreibung de Dateinamen se obtener.
-$1 = Groß- y Kleinschreibung de Dateinamen se berücksichtigt (z.B. en Búsqueda oder el Überschreiben).
-$4 = Unicode Dateinamen voluntad unterstützt.
-$8 = Accesslisten voluntad unterstützt / gefordert (z.B. en Windows2000)
-$10 = Unterstützt Dateikomprimierung.
-$8000 = Komprimierter Datenträger.

7.Parámetro: Bereichsvariable, el el Namen des Dateisystems empfängt (kann 0 ser).

8.Parámetro: Longitud des Bereichs en Parámetro 7.

Rückgabewert:

1 si todos gefragten Informationen geliefert fueron. Ansonsten 0.

Beispiele:

Kompilieren Marca Separación

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