请问如何在注册表中删除一个目录，不是空目录，目录中有键值的。

Question

用TRegIniFile的EraseSection可以删除一个目录

Answer 1

uses
  Registry;procedure Delete(const AName: string);
var
  reg : TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey = HKEY_CLASSES_ROOT; //指定根键
  reg.DeleteKey (AName);
  reg.Free;
end;
end;

Answer 2

uses
registry
var
kk:tregistry;
begin
kk:=tregistry.Create;
kk.rootkey:=HKEY_CURRENT_USER;//设置跟项
kk.openkey('software\policies\microsoft\internet explorer');//打开项
kk.DeleteKey('control panel');//删除制定项
kk.closekey;//关闭
kk.free;//释放
end;

Answer 3

注册表的目录树和文件目录树不是一个概念
tregistry.deletekey 就行了