Реестр - Страница 2

AlexZir · 07.03.2010, 22:48

Вот пример кода, взятый из Delphi World. Результатом выполнения будет список ключей раздела HKEY_CURRENT_USER, переданный в MEMO. Думаю, исправить пути для вас не составит особой трудности.

Цитата:

{ This example demonstrates how to enumerate all registry keys from a certain key (here: HKEY_CURRENT_USER)}
{Dieses Beispiel listet alle Eintrage eines bestimmten Schlussels
in der Registrierung auf. (hier: HKEY_CURRENT_USER)}
uses
Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
indent: Integer;

procedure EnumAllKeys(hkey: THandle);
var
l: TStringList;
n: Integer;
begin
Inc(indent, 2);
with TRegistry.Create do
try
RootKey := hkey;
OpenKey(EmptyStr, False);
l := TStringList.Create;
try
GetKeynames(l);
CloseKey;
for n := 0 to l.Count - 1 do
begin
memo1.Lines.Add(StringOfChar(' ', indent) + l[n]);
if OpenKey(l[n], False) then
begin
EnumAllKeys(CurrentKey);
CloseKey;
end;
end;
finally
l.Free
end;
finally
Free;
end;
Dec(indent, 2);
end;

begin
Memo1.Clear;
Memo1.Lines.Add('Keys under HKEY_CURRENT_USER');
indent := 0;
Memo1.Lines.BeginUpdate;
try
EnumAllKEys(HKEY_CURRENT_USER);
finally
Memo1.Lines.EndUpdate;
end;
end;

WWWaNNN · 08.03.2010, 16:12

ну так никто не знает такую функцию?

WWWaNNN · 08.03.2010, 16:13

Спасибо)

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

07.03.2010, 22:48
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Посоветую уделить немного времени прочтению схожих постов Реестр Не могу зайти в реестр

08.03.2010, 16:12	#12 (permalink)
WWWaNNN Member Регистрация: 20.12.2009 Сообщений: 35 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	ну так никто не знает такую функцию?

08.03.2010, 16:13	#13 (permalink)
WWWaNNN Member Регистрация: 20.12.2009 Сообщений: 35 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо)

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070