begin
  Result := '';
  WinVer := LOBYTE(LOWORD(GetVersion));
  DriveType := GetDriveType(PChar(Drv + ':\'));

  if (DriveType <> DRIVE_REMOVABLE) or VolReal then
  begin
    SetLength(Buf, MAX_PATH - 1);
    Buf[1] := #0;
    GetVolumeInformation(PChar(Drv + ':\'), @Buf[1], MAX_PATH - 1, nil, NotUsed, NotUsed, nil, 0);
    Result := Buf;

    if (Result <> '') and (DriveType <> DRIVE_REMOVABLE) then
      Result := DisplayName(Drv)
    else
      Result := '<none>';
  end
  else
    Result := DisplayName(Drv);
end;