if WMPExt <> '' then
          begin
            RegWriteStringValue(HKLM, PlayerExts + 'Types', WMPNum[I], WMPExt);
            WMPCount := WMPCount + Length(WMPExt) + 1;
          end
          else if RegDeleteValue(HKLM, PlayerExts + 'Types', WMPNum[I]) then
            begin
              RegDeleteValue(HKLM, PlayerExts + 'Descriptions', WMPNum[I]);
              RegDeleteValue(HKLM, PlayerExts + 'MUIDescriptions', WMPNum[I]);
            end