Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Чтение из реестра по списку путей 
:(
    Опции темы
alligator
Дата 20.9.2008, 20:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 730
Регистрация: 28.1.2004

Репутация: нет
Всего: 1
Один путь как прочитать я разобрался делаю чтение посредством tregistry, на экран результат вывожу с помощью listview и tstringlist.

Есть несколько путей заранее известных около 20 например:
Hklm\1\2\3
Hklm\2\5\8
Hkcu\1\2\3
Как выше я написал из одного считать не проблема а как прочитать из других путей и результаты добавить в tstringlist
Подскажите пожалуйста.


--------------------
Мои ресурсы:
Студенты мгапи тут!
Модные стулья здесь!
Эксклюзивные сувениры подарки.
PM MAIL   Вверх
Данкинг
Дата 20.9.2008, 20:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
А в чём проблема, если пути заранее известны?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
alligator
Дата 20.9.2008, 21:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 730
Регистрация: 28.1.2004

Репутация: нет
Всего: 1
Я пару дней работаю с дельфи, а так в основном с пхп, потихоньку изучаю делфи. Пока тяжело разбираться, подскажите smile 


--------------------
Мои ресурсы:
Студенты мгапи тут!
Модные стулья здесь!
Эксклюзивные сувениры подарки.
PM MAIL   Вверх
Данкинг
Дата 20.9.2008, 21:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Ну дык, читаешь-то как? Пример в студию!


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
alligator
Дата 20.9.2008, 21:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 730
Регистрация: 28.1.2004

Репутация: нет
Всего: 1
Код

procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
  S: TStringList;
  i: Integer;
  Path: string;

begin
Path := 'SYSTEM\CurrentControlSet\Enum\USB';
Reg:= TRegistry.Create;  S:= TStringList.Create;
Reg.RootKey :=HKEY_LOCAL_MACHINE;
Reg.OpenKeyReadOnly(Path);
Reg.GetKeyNames(S);
Label1.Caption := 'Найдено записей: '+IntToStr(S.Count);
for i := 0 to S.Count - 1 do
begin
Form1.Listview1.AddItem('HKEY_LOCAL_MACHINE\'+Path+'\'+S.Strings[i], Sender);
end;
S.Clear;
Reg.Free;
end;



--------------------
Мои ресурсы:
Студенты мгапи тут!
Модные стулья здесь!
Эксклюзивные сувениры подарки.
PM MAIL   Вверх
Данкинг
Дата 20.9.2008, 21:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Ну так вот меняй HKEY_LOCAL_MACHINE и значение Path на то, что нужно.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
alligator
Дата 20.9.2008, 21:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 730
Регистрация: 28.1.2004

Репутация: нет
Всего: 1
получается что я избавляюсь от Reg.RootKey :=HKEY_LOCAL_MACHINE;
делаю один path?
потипу path :='HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\USB';
У меня не получается сохранить данные из первого ключа, а когда я считываю следующий то предыдущие полученные данные удаляются =(((


--------------------
Мои ресурсы:
Студенты мгапи тут!
Модные стулья здесь!
Эксклюзивные сувениры подарки.
PM MAIL   Вверх
Данкинг
Дата 20.9.2008, 21:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Цитата(alligator @  20.9.2008,  22:44 Найти цитируемый пост)
У меня не получается сохранить данные из первого ключа, а когда я считываю следующий то предыдущие полученные данные удаляются =((( 

В смысле, куда они могут удалиться из Listview1 ?!


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
alligator
Дата 20.9.2008, 22:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 730
Регистрация: 28.1.2004

Репутация: нет
Всего: 1
Код

begin
Path := 'SYSTEM\CurrentControlSet\Enum\USBSTOR';
Path2 := 'SYSTEM\CurrentControlSet\Enum\USB';
Reg:= TRegistry.Create;  S:= TStringList.Create;
Reg.RootKey :=HKEY_LOCAL_MACHINE;
Reg.OpenKeyReadOnly(Path);
Reg.GetKeyNames(S);
Reg.CloseKey;
Reg.OpenKeyReadOnly(Path2);
Reg.GetKeyNames(S); //на этом месте старые данные удаляются, как сохранить незнаю =((
Label1.Caption := 'Найдено записей: '+IntToStr(S.Count);
for i := 0 to S.Count - 1 do
begin
Form1.Listview1.AddItem(S.Strings[i], Sender);
end;
S.Clear;
Reg.Free;
end;



--------------------
Мои ресурсы:
Студенты мгапи тут!
Модные стулья здесь!
Эксклюзивные сувениры подарки.
PM MAIL   Вверх
Данкинг
Дата 20.9.2008, 22:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Не знаю, как они из Listview могут удаляться, попробуй ListBox обычный вместо него.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
alligator
Дата 20.9.2008, 22:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 730
Регистрация: 28.1.2004

Репутация: нет
Всего: 1
Код

Reg.OpenKeyReadOnly(Path);
Reg.GetKeyNames(S);
Reg.CloseKey;
Reg.OpenKeyReadOnly(Path2);
Reg.GetKeyNames(Temp);
S.AddStrings(Temp);
Temp.Clear;

Получилось сделать через временную переменную, может можно как нибудь реализовать лучше?
Подскажи а есть функция определения полного пути до ключа или его надо самому восстанавливать, можеть есть пример где можно посмотреть.... ?


--------------------
Мои ресурсы:
Студенты мгапи тут!
Модные стулья здесь!
Эксклюзивные сувениры подарки.
PM MAIL   Вверх
Данкинг
Дата 20.9.2008, 22:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Цитата(alligator @  20.9.2008,  23:37 Найти цитируемый пост)
Получилось сделать через временную переменную, может можно как нибудь реализовать лучше?

Я всё же за вариант с ListBox. smile 

Цитата(alligator @  20.9.2008,  23:37 Найти цитируемый пост)
Подскажи а есть функция определения полного пути до ключа или его надо самому восстанавливать, можеть есть пример где можно посмотреть.... ? 

Не знаю... Попробуй в DRKB поискать...



--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
BaD_SeCt0R
Дата 21.9.2008, 03:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Lazy Coder
**


Профиль
Группа: Участник
Сообщений: 432
Регистрация: 9.10.2006
Где: Анапа

Репутация: 4
Всего: 18
Цитата(alligator @  20.9.2008,  21:26 Найти цитируемый пост)
Код

procedure TForm1.Button1Click(Sender: TObject);varReg: TRegistry;  S: TStringList;  i: Integer;  Path: string;beginPath := 'SYSTEM\CurrentControlSet\Enum\USB';Reg:= TRegistry.Create;  S:= TStringList.Create;Reg.RootKey :=HKEY_LOCAL_MACHINE;Reg.OpenKeyReadOnly(Path);Reg.GetKeyNames(S);Label1.Caption := 'Найдено записей: '+IntToStr(S.Count);for i := 0 to S.Count - 1 dobeginForm1.Listview1.AddItem('HKEY_LOCAL_MACHINE\'+Path+'\'+S.Strings[i], Sender);end;S.Clear;Reg.Free;end;

Ниче нигде не удаляется, зачем дебагер существует? ;)

Если с листвью (согласен с Данкинг'ом - непонятно зачем), то уже так тогда
Код

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegistry;
  S: TStringList;
  i: Integer;
  Path: string;
begin
  Path := 'SYSTEM\CurrentControlSet\Enum\USBSTOR';
  Reg:= TRegistry.Create;  S:= TStringList.Create;
  Reg.RootKey :=HKEY_LOCAL_MACHINE;
  Reg.OpenKeyReadOnly(Path);
  Reg.GetKeyNames(S); //ниче здесь не удаляется :)
  Reg.CloseKey;

  if S.Count=0 then Exit; //бывает...
  ListView1.Clear;
  for i:=0 to S.Count-1 do
    begin
      ListView1.Items.Add;
      ListView1.Items.Item[i].Caption:=S.Strings[i];
    end;

  S.Free; //Clear только строчки очищает, объект убить надо :)
  Reg.Free;
end;


Добавлено через 11 минут и 46 секунд
Цитата(alligator @  20.9.2008,  22:37 Найти цитируемый пост)
функция определения полного пути до ключа или его надо самому восстанавливать

а это как? чего-то не понял...


--------------------
Кто владеет информацией - владеет миром. (С) Френсис Бэкон.
PM MAIL ICQ   Вверх
alligator
Дата 21.9.2008, 07:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 730
Регистрация: 28.1.2004

Репутация: нет
Всего: 1
Это для одного пути, а путей то будет несколько... Listview не обязательно, я вообще хочу сделать удаление ключей выборочно, выделяешь строку в программе и по нажатию на delete удаляешь ключ из реестра, как это реализовать незнаю поэтому и использую listview


--------------------
Мои ресурсы:
Студенты мгапи тут!
Модные стулья здесь!
Эксклюзивные сувениры подарки.
PM MAIL   Вверх
BaD_SeCt0R
Дата 21.9.2008, 11:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Lazy Coder
**


Профиль
Группа: Участник
Сообщений: 432
Регистрация: 9.10.2006
Где: Анапа

Репутация: 4
Всего: 18
alligator, по порядку. С чем конкретно сложности?

Добавлено через 2 минуты и 42 секунды
И как ты хочешь это реализовать? Это дерево будет? Как в regedit'е? Или просто список путей?


--------------------
Кто владеет информацией - владеет миром. (С) Френсис Бэкон.
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0534 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.