| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Поиск в реестре ... [D7, WinXP]
Acidy © (2003-02-20 08:05:00)Народ! Помогите организовать поиск в строки реестре (надо проверить все ключи и разделы...). Хотя бы алгоритм... Спасибо!
p.s Я не тупой, я просто занят сильно...
Acidy (2003-02-22 10:40:00) [1]Усем бальшушее пасиба !!!!
anner (2003-02-20 10:47:00) [2]Например следующая процедура сканирует реестр и ищет точное совпадение со строкой FindString, все совпадения заносит в
OutList
procedure FindStringRegistry(RootKey: HKEY; PathString: string; FindString: string; var OutList: TStringList);
var Reg: TRegistry;
SubKeys: TStringList;
ValueNames: TStringList;
i: integer;
begin
Reg := TRegistry.Create;
Reg.RootKey := RootKey;
Reg.OpenKey(PathString, false);
ValueNames := TStringList.Create;
Reg.GetValueNames(ValueNames);
for i := 0 to ValueNames.Count-1 do
if (Reg.GetDataType(ValueNames[i])=rdString) and (Reg.ReadString(ValueNames[i])=FindString) then
OutList.Add({HKey + "\" + }PathString + "\" + ValueNames[i]);
SubKeys := TStringList.Create;
Reg.GetKeyNames(SubKeys);
for i := 0 to SubKeys.Count-1 do
FindStringRegistry(RootKey, PathString + "\" + SubKeys[i], FindString, OutList);
end;
И пример ее использования (ищет строку "local" в разделе HKEY_CURRENT_USER):
procedure TMainForm.btnOKClick(Sender: TObject);
var OutString: TStringList;
i: integer;
begin
OutString := TStringList.Create;
FindStringRegistry(HKEY_CURRENT_USER, "", "local", OutString);
for i := 0 to OutString.Count-1 do
cbxRes.Items.Add(OutString[i]);
end;
han_malign (2003-02-20 09:21:00) [3]RegEnumKey/RegEnumValue и так-же как поиск файла(FindFirst/FindNext), единственное отличие - ключи(каталоги) и значения(файлы) - ищутся разными функциями, а не одной...
| |
