Понедельник, 23.10.2017, 23:43 Приветствую вас Гость | Группа "Гости" 


[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024 
delfcode » Delphi » Вопросы по Delphi » Как прочитать из реестра? (Вытащить значения из реестра...)
Как прочитать из реестра?
ramzeswrДата: Вторник, 23.04.2013, 19:41 | Сообщение # 1
Участник
Зарегистрирован: 17.04.2013
Группа: Пользователи
Сообщений: 61
Статус: Offline
Давно интересовался этим вопросом, сам ничего не смог сделать. В общем те кто знают программу Mail.ru Agent, те поймут.

Известно, что по пути HKEY_CURRENT_USER/Software/Mail.ru/Agent/magent_logins3/{X} хранятся логины из агента.
Как вывести имена этих веток, ну например в ComboBox???

{Желательно готовый код)}
Прикрепления: 6128500.png(36Kb)
 
Don_DiegoДата: Вторник, 23.04.2013, 20:10 | Сообщение # 2
Продвинутый
Зарегистрирован: 16.04.2012
Группа: Пользователи
Сообщений: 251
Статус: Offline
Доступно только для пользователей
 
ramzeswrДата: Среда, 24.04.2013, 12:50 | Сообщение # 3
Участник
Зарегистрирован: 17.04.2013
Группа: Пользователи
Сообщений: 61
Статус: Offline
Цитата (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;
 
delfcode » Delphi » Вопросы по Delphi » Как прочитать из реестра? (Вытащить значения из реестра...)
Страница 1 из 11
Поиск:

delfcode.ru © 2008 - 2017 Хостинг от uCoz