Имя: Пароль:
1C
1C 7.7
v7: Неполучается выбрать значения реестра
0 Бертыш
 
01.03.13
14:54
Пробую обратится к реестру. И через 1С++ пробовал и через скрипты пробовал.
В ветке
HKEY_CURRENT_USER\Software\1C\1Cv7\7.7\Titles
все прекрасно перебирается, а ветке скажем
HKEY_CURRENT_USER\Software\1C\1Cv7\7.7\Информационная База #9\Config\Recent File List
Значения есть, но не перебираются
Вероятно проблема в кириллическом наименовании ключа.
Посоветуйте бывалые.
1 antoneus
 
01.03.13
15:19
Всё читает


Процедура Сформировать()
   
   Перем Значение, ИмяЗначения;
   
       Список = СоздатьОбъект("СписокЗначений");
   Реестр = СоздатьОбъект("РеестрWin");
   Реестр.ОткрытьКлюч("HKEY_CURRENT_USER", "Software\1C\1Cv7\7.7\Омега ЗиК\Config\Recent File List", "KEY_READ");
   Реестр.ВыбратьЗначения();
   Пока Реестр.ПолучитьЗначение(ИмяЗначения) = 1 Цикл
       Реестр.ЗапроситьЗначение(ИмяЗначения, Значение);
       Список.ДобавитьЗначение(ИмяЗначения, Значение);
   КонецЦикла;    

КонецПроцедуры
2 Бертыш
 
01.03.13
16:30
Процедура Сформировать(Ключ="Software\1C\1Cv7\7.7\Titles",фл=0)
   Сообщить(Ключ);
   ТЗ.Очистить();
   ТЗ.НоваяКолонка("Название");
   ТЗ.НоваяКолонка("Путь");
   ТЗ.НоваяКолонка("Флаг","Число");
   Рег=СоздатьОбъект("РаботаСРегистромWin");
Рег.ОткрытьКлюч("HKEY_CURRENT_USER",Ключ,"KEY_READ");
   Рег.ВыбратьЗначения();
   Путь="";
   Название="";
   Пока Рег.ПолучитьЗначение(Путь)=1 Цикл
       Рег.ЗапроситьЗначение(Путь,Название);
       ТЗ.НоваяСтрока();
       ТЗ.Название=Название;
       ТЗ.Путь=Путь;
       Стр="";
       Название="";
   КонецЦикла;
                   
   Рег="";
   
   ТЗ.Сортировать("Название");
   
Форма.Назад.Доступность(?(Ключ="Software\1C\1Cv7\7.7\Titles",0,1));
   
   
КонецПроцедуры

Не работает :(
Я сначала через Titles выбираю перечень баз, а потом пытаюсь в ветку базы лезть. Может ещё подскажете как заставить корректно отрабатывать, а то попытка сделать так
Рег.ВыбратьКлючи();
Пока Рег.ПолучитьКлюч(Стр)=1 Цикл
   Сообщить(Стр);
КонецЦикла;

уходит в бесконечный цикл.
3 Бертыш
 
01.03.13
16:32
Первая часть кода заработала. Я там слеша лишнего добавил оказывается в начале
4 Бертыш
 
01.03.13
17:01
Разобрался
Независимо от того, куда вы едете — это в гору и против ветра!