function GetLabelDisk(Drv: Char; VolReal: Boolean): string;
var  WinVer: Byte;
     DriveType, NotUsed: DWORD;
     Buf: string;
function DisplayName(Drv: Char): string;
var  SFI: TSHFileInfo;
begin
  FillChar(SFI, SizeOf(SFI), 0);
  SHGetFileInfo(PChar(Drv + ':\'), 0, SFI, SizeOf(SFI), SHGFI_DISPLAYNAME);
  Result := SFI.szDisplayName;
  if Pos('(', Result) <> 0 then
    SetLength(Result, Pos('(', Result) - 2);
end;

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

  if 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;