XProfan

H.Brill

Google es dein Freund
Volume + GUID eingegeben y dritte Treffer
war el richtige. Microsofts MSDN :

algo como ? :

Declarar Mem buffer
Declarar String s
Dim buffer, 50
Def @GetVolumeNameForVolumeMountPoint(3) !"KERNEL32","GetVolumeNameForVolumeMountPointA"
s = "C:\"
@GetVolumeNameForVolumeMountPoint(Addr(s), buffer, SizeOf(buffer))
Imprimir String$(buffer, 0)
Waitkey
Disponer buffer
End

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

maroro

Sí Fast y vielen Dank. Selbst si yo la página incluso gefunden hätte wäre Yo no en el Lage gewesen lo qué en XProfan a remendar. Yo komme a C++ no ran. Zum otro kann Yo con el Programa sólo el ya eingehangenen Volumename Mostrar dejar. Yo brauche aber auch el wo Mountvol "*** no Bereitstellungspunte ***" sagt. Yo habe con media bescheidenen Kenntnissen intenta el Ver código fuente weiterzuentwickeln hänge aber a uno Fehlermeldung (Lesefehler Kernel32)

Fehler incluso gefunden Findnextvolume voluntad siempre el gleiche handle.
Zu früh gefreut Windows7 funktioniert WinXP no...

Declarar Mem buffer
Declarar String s
Declarar vh&'handle
Dim buffer, 50
Def @GetVolumeNameForVolumeMountPoint(3) !"KERNEL32","GetVolumeNameForVolumeMountPointA"
Def @FindFirstVolume(2) !"KERNEL32","FindFirstVolumeA"
Def @FindNextVolume(3) !"KERNEL32","FindNextVolumeA"

whileloop 5

    imprimir chr$(&bucle+66)+":\"
    s = chr$(&bucle+66)+":\"'"C:\"
    @GetVolumeNameForVolumeMountPoint(Addr(s), buffer, SizeOf(buffer))
    Imprimir String$(buffer, 0)
    clear buffer

endwhile

vh& = @FindFirstVolume( buffer, SizeOf(buffer))
Imprimir String$(buffer, 0)
clear buffer

whileloop 5

    @FindNextVolume( vh&, buffer, SizeOf(buffer))
    Imprimir String$(buffer, 0)
    clear buffer

endwhile

Waitkey
Disponer buffer
End

H.Brill

En el C++ Deklarationen es sí bastante ligeramente.

BOOL WINAPI GetVolumeNameForVolumeMountPoint(
_In_   LPCTSTR lpszVolumeMountPoint,
_Out_  LPTSTR lpszVolumeName,
_In_   DWORD cchBufferLength
);

Numerische Parámetro ir todos. En Cuerdas mußt du sólo
por Def - Deklaration el Adresse (Addr(s)) transferencia oder
du nimmst eben auch una Zona oder Pointer.
Wenn du una Parámetro übergebist, el de el API-Función
beschrieben se (_Out_), nimmst du al besten una Zona.

Es el sicherste Weg.
Man podría zwar auch una String nehmen, el con Espacio(N)
vorbelegt se, el es pero no siempre así sicher como una Zona,
como el String Nullterminiert es y manche API-Características el
no mögen.

Ist entonces auch schwierig, el Fehlerquelle ausfindig a hacer,
wenns no funktioniert.

Also merke : si una buffer y una más Parámetro con dessen
Longitud verlangt se, al besten una Zona nehmen.

PS: Wenn lo en versch. Windows Versionen no funktioniert,
kann lo durchaus ser, daß MS el Función wegoptimiert ha
o Parámetro geändert. Das es aber meist en el Doku
el MSDN esta.

maroro

also el Fehler en XP entsteht dadurch el FindFirstVolume -1 como Handle
zurückgibt womit FindNextVolume nichts anfangen kann. Beide Características
son auch para XP angegeben.
Yo habe veces el FindFirstVolumeW (Unicode) anstatt FindFirstVolumeA (ANSI)
verwendet auch para Findnext. Jetzt se ejecuta lo auch bajo XP por sólo enthält el Buffer sólo una "\" gibt's ne Solución el el "W" el ausspuckt oder es doch by by XP angesagt.

XProfan X2

H.Brill

Tomar veces beim Auslesen des Buffers StringW$().
Es normalerweise para Unicode (UTF-8) determinado.

Also

Imprimir StringW$(buffer, 0)

Como könntest du incluso con $WinVer prüfen, si
XP es y luego entsprechend el A oder W - Versión
aufrufen.

Vorausgesetzt, el Unicode - Variante sería no
con WIN7 trabajo.

maroro

Fertig. Funktioniert así bajo Win7 y XP. Vielen Dank a H.Brill.