ریجستری و زیر شاخه ها

[فرزاد دلفی باز]

با سلام
چطور میشه زیر شاخه های یک key را مشخص کرد مثلا زیر شاخه های HKEY_CURRENT_USER\Software چه کلید هایی اند

[mzjahromi]

S:=TStringList.Create;
R.RootKey:=HKEY_CURRENT_USER;
R.OpenKey('software',True);
R.GetKeyNames(S);

[فرزاد دلفی باز]

من دقیقا از این کد استفاده می کنم ولی نمی تونم اطلاعات زیر شاخه رو در Listviwe نمایش بدهم



Registry:= TRegistry.Create;
History:= TStringList.Create;
with Registry do
begin
RootKey:= HKEY_CURRENT_USER;
if OpenKey('Software\ODBC\ODBC.INI', true) then
begin
GetKeyNames(History);
Listviwe.Items.Add.Caption:=(ReadString('History') );
CloseKey;
end;
end;
History.Free;
Registry.Free;

[saeed_d]

سلام
بجای

Listviwe.Items.Add.Caption:=(ReadString('History') );
این رو بگذارید:


for i:=0 to History.Count-1 do
ListView1.Items.Add.Caption:=History.Strings[i];