注册表中删除所有子项的问题

Question

delphi7中，请问有没有能一次删除所有注册表子项的函数？怎么用？有例子最好了。

Answer 1

在win9x下可以删除key及其所有子键，但是winnt、2000就不行了。Windows 95: The RegDeleteKey function deletes a key and all its descendents.Windows NT: The RegDeleteKey function deletes the specified key. This function cannot delete a key that has subkeys.

Answer 2

给你一些代码做参考！
procedure TFrm_Logo.FormActivate(Sender: TObject);
var
  reg:Tregistry;
  UserName:String;
begin
  DM_Set.Tbl_User.Active:=true;
  reg:=Tregistry.create;
  reg.RootKey:=HKEY_CURRENT_USER;
  if reg.OpenKey('\Software\jxc\curruser',false)=true then
  begin
    UserName:=reg.readString('name');
    Edit1.Text:=UserName;
    Edit2.SetFocus;
  end
end;
有问题请发信息到我的E-mail:[email protected]