XProfan

Français

Beschreibung:

GetVolumeInformation liest Laufwerksinformationen sur cela angegebene Laufwerk aus.

Deklaration:

Def @GetVolumeInformation(8) !KERNEL32,GetVolumeInformationA

paramètre:

1.paramètre: Adresse eines Cordes ou bien Bereichsvariable avec einem String, qui cela Rootverzeichnis des Abzufragenden Laufwerks contient. peux 0 son - ensuite wird cela aktuelle Rootverzeichnis pris.

2.paramètre: Bereichsvariable, qui den Namen des Labels (qui Festplatte, Diskette, CD... ) empfängt.

3.paramètre: Longueur des Bereiches dans paramètre 2 comme LongInt.

4.paramètre: Bereichvariable, qui qui Seriennummer des Labels empfängt (peux 0 son).

5.paramètre: 4 Byte Bereichvariable, qui qui maximale Longueur eines Dateinamens empfängt (peux 0 son).

6.paramètre: 4 Byte Bereichvariable, qui Flags sur cela Dateisystem empfängt (peux 0 son). =>
-$2 = large- et Kleinschreibung de Dateinamen wird conservé.
-$1 = large- et Kleinschreibung de Dateinamen wird berücksichtigt (z.B. chez qui cherche ou bien dem Überschreiben).
-$4 = Unicode Dateinamen volonté soutenu.
-$8 = Accesslisten volonté soutenu / gefordert (z.B. chez Windows2000)
-$10 = Unterstützt Dateikomprimierung.
-$8000 = Komprimierter Datenträger.

7.paramètre: Bereichsvariable, qui den Namen des Dateisystems empfängt (peux 0 son).

8.paramètre: Longueur des Bereichs dans paramètre 7.

Rückgabewert:

1 si alle gefragten Informationen geliefert wurden. Ansonsten 0.

Beispiele:

Kompilieren Marque Séparation

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