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;