TRegistry的用法 ( 积分: 50 )

请教:
procedure readkeyname(r:TRegistry;kname,vname:string;
vs:tstringlist;iscaption:boolean);
var kn:tstringlist;
ks,kps:string;
k,kk:integer;
rkey:HKEY;
begin
rkey:=r.rootkey;
kn:=tstringlist.create;
r.GetKeyNames(kn);
.
.
这是过程的一部分,请问我对r赋怎么样的实参并且怎么样赋,才能把一个指定节点下的子节点全部取出?

真是弱智，r是TRegistry类型，你当然传递个TRegistry对象了。