| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вопрос по реестру! [D6, Win95/98, WinXP]

FireMan_Alexey ©   (2004-05-10 17:33:00) 

Ув. Мастера!
Подскажите пожалуйста как прочитать все параметры и значения заданного раздела реестра?
Если можно с примерами!
Заранее благодарен

---

Nick Denry   (2004-05-11 00:13:00) [1]

Совсем не глупый.

Там винамп (с версии 2.0 - 5.0) свой путь пишет... это для создания (конкретно установки) плугинов...

---

Игорь Шевченко   (2004-05-10 23:58:00) [2]

Nick Denry ©   (10.05.04 23:08)

Глупый вопрос: А зачем значение .default читать ?

---

Nick Denry   (2004-05-10 23:08:00) [3]

Кусочек отнсящийся к регистри полностью АПИшный.
Копать в этом направлении:

procedure TForm1.Button1Click(Sender: TObject);
const maxsize = 255;
var
s : array [0..maxsize] of Char;
res : bool;
regk : HKEy;
result : HRESULT;
i     : integer;

begin
{reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
res := reg.OpenKey('Software\Winamp',false);
if res = false then MEssageBeep(MB_ICONHAND);
s := reg.ReadString('');
reg.Free;}

result :=RegOpenKeyEx(HKEY_CURRENT_USER,'Software\Winamp',0,KEY_QUERY_VALUE,regk);
if result = ERROR_SUCCESS then MessageBox(Form1.Handle,'Open Key done',PChar(Form1.caption),MB_OK);
result := RegQueryValueEx(regk,nil,nil,nil,@s,@i);
if result = ERROR_SUCCESS then MessageBox(Form1.Handle,'Query Key done',PChar(Form1.caption),MB_OK);
MessageBox(Form1.Handle,@s,PChar(Form1.Caption),MB_OK);
Form1.Caption := 'OK';
RegCloseKey(regk);
Form1.Caption := s;
end;

---

Игорь Шевченко   (2004-05-10 17:46:00) [4]

TRegistry + F1 (с примерами)

Если же "чиста на API", то у TRegistry есть исходный код. RTFS

---

Наверх