[dec]

Hola,

Código Delphi [-]
 function NombreVolumenUnidad(const letraUnidad: char) : string;
 var
   auxiliar: DWORD;
   buffer: array[0..MAX_PATH] of char;
 begin
   GetVolumeInformation(PChar(letraUnidad + ':\'), buffer,
     SizeOf(buffer), nil, auxiliar, auxiliar, nil, 0);
   Result := buffer;
 end;

Nota: El código es una adaptación, cuando no copia descarada (o no tanto, sino de qué esta nota) del "tip" que puede hallarse aquí mismo.