Nombre de la Unidad activa

[riqui73]

Hola a todos, me gustaria saber como puedo obtener el nombre de la unidad activa que en mi caso sera un pendrive. Gracias de antemano.

[delphi.com.ar]

Código Delphi [-]
ExtractFileDrive(GetCurrentDir)

¿Esto?... o con nombre te refieres a la etiqueta del disco?

[riqui73]

Si,me refiero a la etiqueta. Imagina que es un pendrive que se llama kingston y aparece como unidad f: seria "f:\Kingston" pues quiero saber como se extrae "Kingston" de la unidad f:. Gracias.

[[escafandra]]

Prueba con esto:

char Vol[256]; // Aquí se obtendrá el nombre del volumen o etiqueta del disco.
GetVolumeInformation(ExtractFileDrive(GetCurrentDir()).c_str(), Vol, 255,0,0,0,0,0);

Saludos.

[riqui73]

me envia este error:

E2342 Type mismatch in parameter 'lpRootPathName' (wanted 'const char *', got 'wchar_t *')
E2034 Cannot convert 'wchar_t *' to 'const char *'

[[escafandra]]

¿Que compilador usas?, seguro que B2009 o superior.

Es un error del Unicode. Trata de cambiar c_str() por t_str():

char Vol[256]; // Aquí se obtendrá el nombre del volumen o etiqueta del disco.
GetVolumeInformation(ExtractFileDrive(GetCurrentDir()).t_str(), Vol, 255,0,0,0,0,0);

O de usar todo en Unicode:

wchar_t Vol[256]; // Aquí se obtendrá el nombre del volumen o etiqueta del disco. UNICODE WCHAR.
GetVolumeInformationW(ExtractFileDrive(GetCurrentDir()).c_str(), Vol, 255,0,0,0,0,0);

Saludos.