begin
  Result := '';
  WinVer := LOBYTE(LOWORD(GetVersion));
  DriveType := GetDriveType(PChar(Drv + ':\'));
(*
  if {(DriveType <> DRIVE_REMOVABLE) or} VolReal then
  begin
    SetLength(Buf, MAX_PATH - 1);
    GetVolumeInformation(PChar(Drv + ':\'), @Buf[1], MAX_PATH - 1, nil, NotUsed, NotUsed, nil, 0);
    Result := Buf;
    L := Length(Result);
    while (L > 0) and (Result[L] < ' ') do Dec(L);
    SetLength(Result, L);

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