> Pozdrav!!! Jedno pitanje: Kako da u nekom TreeViev-u da pokazem stablo Registry baze, tj. glavni folder: Registry pa pod folderi (grane)
> Hkeys (current, local ,root itd)!!!
Nema gotove metode, ali nije teško, TRegistry klasa sadrži sve što treba.
Code:
procedure FillTree(ATree: TTreeView);
var
reg: TRegistry;
procedure FillAndTraverseReg(const APath: string; const ATreeNode: TTreeNode);
var
s: TStrings;
i: Integer;
Temp: TTreeNode;
begin
s := TStringList.Create;
try
reg.CloseKey;
reg.OpenKey(APath, False);
reg.GetKeyNames(s);
for i := 0 to s.Count - 1 do
begin
Temp := ATree.Items.AddChild(ATreeNode, s[i]);
FillAndTraverseReg(APath + '\' + s[i], Temp);
end;
finally
s.Free;
end;
end;
begin
reg := TRegistry.Create(KEY_READ);
try
reg.RootKey := HKEY_CURRENT_USER;
FillAndTraverseReg('', nil)
finally
reg.Free;
end;
end;