Hallo,
ich habe eine TreeView-Komponente, in der ich alle Keys aus der Registry anzeigen möchte. Natürlich in Form einer normalen Baumstruktur.
Das klappt auch alles soweit gut. Nun gibt es ja Keys, die Subkeys haben und welche, die keine haben. Die, die keine haben, bekommen natürlich kein "Plus" vor ihrem Text.
Auch das funktioniert mit folgendem Code:
Delphi-Quellcode:
Reg.GetKeyNames(KeyNames);
KeyNames.Sort;
for I := 0 to KeyNames.Count - 1 do
begin
TreeView1.Items.AddChild(Node,KeyNames.Strings[i]);
Reg2.OpenKey(KeyNames.Strings[i],false);
Reg2.GetKeyInfo(info);
if info.NumSubKeys > 0 then Node.Item[i].HasChildren := true;
Reg2.CloseKey;
end;
Mit "Reg" lese ich alle Keys aus und mit Reg2 überprüfe ich ob die Keys noch Subkeys haben.
Der Code ist natürlich nur ein kleiner Ausschnit. Ich gebe natürlich Reg und Reg2 am Ende frei, und habe den Aufruf in einem try-Block, etc.
Mein Problem ist nun, dass der Code oben mit allen Keys funktioniert. Wenn ich aber den Code für "HKEY_CLASSES_ROOT" durchlaufen, stürzt mein Programm und die CPU-Auslastung ist bei 100%. Ich weiß, dass in HKEY_CLASSES_ROOT, sehr viele Keys drin sind, aber es muss doch eine mögichkeit geben, zu überprüfen, ob all diese Keys noch Subkeys haben.
Ich habe es auch schon mit "Reg2.hassubkeys" probiert, aber da stürzt mein Programm auch ab.
Da es mit "HKEY_CURRENT_USER", etc. einwandfrei funktioniert, liegt es wohl daran, dass HKEY_CLASSES_ROOT sehr viele Keys hat. Da der Code funktioniert, denke ich mal, dass die Registry nicht so viele Zugriffe direkt hintereinander verkraftet.
Hat jemand eine Idee, wie das Problem lösen könnte?
Viele Grüße
Sascha
Zitat
Baum-Darstellung
