Список подключей

@_User_ · Регистрация: 11.08.2010

Студворк — интернет-сервис помощи студентам

Надо получить список подключей заданного ключа и вывести все это в Memo. Пробовал так:

C++
1
2
3
4
5
6
7
TStringList *l=new TStringList;
 TRegistry *reg=new TRegistry();
 reg->RootKey=HKEY_CLASSES_ROOT;
 reg->OpenKey("Folder\\shell",0);
 reg->GetKeyNames(l);
 Memo1->Lines->Add(l);
 delete reg;

Выдает ошибку [C++ Error] Unit1.cpp(25): E2034 Cannot convert 'TStringList *' to 'AnsiString'.

cpp_developer · 27.12.2010, 01:28

C++
1
2
3
4
5
6
7
8
 TStringList *l=new TStringList;
 TRegistry *reg=new TRegistry();
 reg->RootKey=HKEY_CLASSES_ROOT;
 reg->OpenKey("Folder\\shell",0);
 reg->GetKeyNames(l);
 String str = l->Strings[0];
 Memo1->Lines->Add(str);
 delete reg;

@_User_ · 27.12.2010, 02:06 **[ТС]**

Еще одна проблемака. В Memo выводится только первая строчка

Сообщение от LK

l->Strings[0];

а мне надо чтобы выводились все считанные подключи.

cpp_developer · 27.12.2010, 02:13

Тогда делайте в цикле:

C++
1
2
3
4
5
6
7
8
9
10
TStringList *l=new TStringList;
 TRegistry *reg=new TRegistry();
 reg->RootKey=HKEY_CLASSES_ROOT;
 reg->OpenKey("Folder\\shell",0);
 for (int i=0; i<=l->Count-1;i++) {
   l->Add(reg->GetKeyNames(i));
   String str = l->Strings[i];
   Memo1->Lines->Add(str);
 }
delete reg;

Код не проверял.

@_User_ · 27.12.2010, 02:19 **[ТС]**

Сообщение от LK

l->Strings[i]= Addreg->GetKeyNames(i);

ругается на Addreg

cpp_developer · 27.12.2010, 02:25

C++
1
2
3
4
5
6
7
TStringList *l=new TStringList;
TRegistry *reg=new TRegistry();
reg->RootKey=HKEY_CLASSES_ROOT;
reg->OpenKey("Folder\\shell",0);
reg->GetKeyNames(l);
Memo1->Text = l->Text;
delete reg;

@_User_ · 27.12.2010, 02:26 **[ТС]**

Все работает, спасибо большое.

cpp_developer · 27.12.2010, 02:27

))) и обозвите TStringList более внятно - TStringList * regList; хотя бы .

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@_User_ 0 / 0 / 0 Регистрация: 11.08.2010 Сообщений: 50
	27.12.2010, 02:26 [ТС]
	Все работает, спасибо большое. 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	27.12.2010, 02:27
	))) и обозвите TStringList более внятно - TStringList * regList; хотя бы . 0