删除注册表的傻Ｘ问题，请各位哥哥为小妹帮忙。谢谢

Question

// aaa 下有bbb  里面同样有键的，不过我一样删除了var
  Reg:TRegistry;
begin
  Reg:=TRegistry.Create;
  Try
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\Software\',True) then
      Reg.DeleteKey('aaa');
  Finally
    Reg.Closekey;
    Reg.Free;  end;

Answer 1

var 
Val:TstringList;
Reg:TRegistry; 
i:integer; 
begin
Reg:=TRegistry.Create;
try
  Val:=TStringList.Create;
  try
Reg.RootKey:=HKEY_LOCAL_MACHINE; //注册表的主键值
if Reg.OpenKey('此处为键的位置',False) then
begin
Reg.GetValueNames(Val); //Memo1.lines:=Val;
if Val.count<1
ShowMessage(子键为空)
....
end; 
 finally
        val.Free; 
 end; 
       finally 
       Reg.Free;
       end;
end;