Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];

Вниз

Отображение реестра в TTreeView   Найти похожие ветки 

 
Charly22   (2003-02-21 21:02) [0]

Здравствуйте!
Необходимо с помощью компонента TTreeView отобразить структуру системного реестра. Прежде всего, я сделал заготовку для пяти корневых ключей. Затем при разворачивании какой-либо ветки пытаюсь заглянуть в реестр на один уровень глубже, и тут стопор.
Код ниже. Посмотрите, плз. И подскажите, что я не так делаю...





 
Charly22   (2003-02-21 21:06) [1]

Забыл вставить код


procedure TForm1.TV1Expanded(Sender: TObject; Node: TTreeNode);
var
Reg: TRegistry;
Strs: TStringList;
Level1: Boolean;
i: integer;
begin
Level1:= Node.Level=1;
Reg := TRegistry.Create;
Strs:= TStringList.Create;

if Node.Text = "HKEY_CLASSES_ROOT" then Reg.RootKey:=HKEY_CLASSES_ROOT;
if Node.Text = "HKEY_CURRENT_USER" then Reg.RootKey:=HKEY_CURRENT_USER;
if Node.Text = "HKEY_LOCAL_MACHINE" then Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Node.Text = "HKEY_USERS" then Reg.RootKey:=HKEY_USERS;
if Node.Text = "HKEY_CURRENT_CONFIG" then Reg.RootKey:=HKEY_CURRENT_CONFIG;

if Level1 then
begin
Reg.OpenKey(Node.Text,false);
Reg.GetKeyNames(Strs);
// ShowMessage(Strs.Strings[1]);
for i:=0 to Strs.Count-1 do
begin
TV1.Items.AddChild(Node,Strs.Strings[i]);
end;
Reg.CloseKey;
Reg.Free;
end;
end;


 
Alex44   (2003-02-21 21:17) [2]

A gde stopor-to?


 
Charly22   (2003-02-22 02:21) [3]

А стопор вот здесь:

for i:=0 to Strs.Count-1 do
begin
TV1.Items.AddChild(Node,Strs.Strings[i]);
end;
Reg.CloseKey;



Никак не могу получить список корневых ключей. Следовательно, Strs не содержит ни одной строки, и генерится исключение.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.034 c
1-17005
mikk
2003-02-21 22:32
2003.03.06
УЖАСНЫЕ ГЛЮГИ В DELPHI6


3-16968
AlexAlex2
2003-02-14 16:59
2003.03.06
Как бороться с Directory is bizy на присв. Session.PrivateDir ?


3-16935
Солер
2003-02-16 15:42
2003.03.06
Обновление DBGrid


3-16915
romychk
2003-02-11 15:03
2003.03.06
IB4 не работает под в2000, выбор сервера


8-17206
trotski
2002-11-26 06:03
2003.03.06
DirectX





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский