XProfan

H.Brill

Date is your friend
Volume + GUID association and the dritte hits
was the right. Microsofts MSDN :

something like ? :

Declare Mem buffer
Declare String s
Dim buffer, 50
Def @GetVolumeNameForVolumeMountPoint(3) !"KERNEL32","GetVolumeNameForVolumeMountPointA"
s = "C:\"
@GetVolumeNameForVolumeMountPoint(Addr(s), buffer, SizeOf(buffer))
Print String $(buffer, 0)
Waitkey
Dispose 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

Yes almost and many Thanks. even if I The Page self found had would I do not in the site been from it what in XProfan To basteln. I come on C++ not ran. to that others can I me with the Program only The already eingehangenen Volumename Show let. I need but too The where Mountvol "*** no Bereitstellungspunte ***" says. I have with my bescheidenen Kenntnissen attempts whom View source weiterzuentwickeln slopes but at a Error Message (Lesefehler Kernel32)

Error self found Findnextvolume wants always the same lever.
To early gefreut windows7 functions WinXP not...

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

whileloop 5

    print chr $(&loop+66)+":\"
    s = chr $(&loop+66)+":\"'"C:\"
    @GetVolumeNameForVolumeMountPoint(Addr(s), buffer, SizeOf(buffer))
    Print String $(buffer, 0)
    clear buffer

endwhile

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

whileloop 5

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

endwhile

Waitkey
Dispose buffer
End

H.Brill

with whom C++ Deklarationen is it Yes integrally slight.

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

Numerische Parameter weg any. with Strings must You hold
by Def - Deklaration The address (Addr(s)) transfer or
You take even too a area or Pointer.
If you a Parameter übergebist, the from the API-function
described becomes (_Out_), take You best a area.

this is the sicherste lane.
one could of course too a String take, the with Space(n)
vorbelegt becomes, this is but not always so sure like a area,
there the String Nullterminiert is and some API-functions the
dislike.

is then too difficult, The Fehlerquelle traceable To make,
ifs not functions.

means observe : if one buffer and a moreover Parameter with which
length desires becomes, best a area take.

PS: If it with various. windows versions not functions,
can it thoroughly his, that MS The function wegoptimiert has
or The Parameter changed. the standing but mostly in the Doku
the MSDN thereby.

maroro

means the Error XP arise therefore the FindFirstVolume -1 as lever
zurückgibt with which FindNextVolume nothing begin can. both functions
are too for XP indicated.
I have times the FindFirstVolumeW (Unicode) instead of FindFirstVolumeA (ANSI)
uses too for Findnext. now runs it too XP through only contains the Buffer only one "\" gibt's ne Solution the The "W" the ausspuckt or is still by by XP angesagt.

XProfan X2

H.Brill

Nimm time at Reading the Buffers StringW$().
this is usually for Unicode (UTF-8) certainly.

means

Print StringW$(buffer, 0)

there could you even $WinVer Verify, whether it
XP is and then properly The A or W - Version
. Call

presupposed, The Unicode - Variante wouldn't
with WIN7 functions.

maroro

ready. functions so under Win7 and XP. Vielen Thanks on H.Brill.