Nombre de volumen de una unidad lógica determinada
 

Esta función nos devolverá el nombre de volumen de la unidad lógica cuya letra pasemos como parámetro a la función.

Código Delphi [-]
uses
  Windows;

function GetVolumeName(const drive: char) : string;
var
  dummy: DWORD;
  buffer: array[0..MAX_PATH] of Char;
begin
  GetVolumeInformation(PChar(drive + ':\'),
    buffer, SizeOf(buffer), nil, dummy, dummy, nil, 0);
  Result := StrPas(buffer);
end;