Цитата (Don_Diego)
begin
Registry := TRegistry.Create(KEY_READ);
Registry.RootKey := HKEY_CURRENT_USER;
Registry.OpenKey ('Software\Mail.ru\Agent\magent_logins3\', true);
Data1 := RegIni.ReadString('тут твой Х');
Вообще не то.....мне нужно получить список веток отсюда Software\Mail.ru\Agent\magent_logins3\
Например вот у меня по этому пути идут #000abc@mail.ru и #001def@mail.ru...
Их то мне и нужно вывести в комбобокс
(http://delfcode.ru/_fr/10/6128500.png)Добавлено (24.04.2013, 12:50)
---------------------------------------------
Короче делается это вот так:
Код
procedure TForm1.Button1Click(Sender: TObject);
var
MyKey: HKey;
Buffer: array[0 .. 1000] of char;
Err,
index: longint;
begin
Err := RegOpenKey(HKEY_CURRENT_USER, 'Software\Mail.ru\Agent\magent_logins3\', MyKey);
index := 0;
Err := RegEnumKey(MyKey, index, Buffer, Sizeof(Buffer));
while err = ERROR_SUCCESS do
begin
memo1.lines.add(StrPas(Buffer));
inc(index);
Err := RegEnumKey(MyKey, index, Buffer, Sizeof(Buffer));
end;
RegCloseKey(MyKey);
end;
