Вопрос по реестру!

← →
FireMan_Alexey © (2004-05-10 17:33) [0]

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

← →
Игорь Шевченко © (2004-05-10 17:46) [1]

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

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

← →
Nick Denry © (2004-05-10 23:08) [2]

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

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 23:58) [3]

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

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

Вопрос по реестру! Найти похожие ветки