可以用GetValueNames()来进行遍历
.........
var
Reg: TRegistry;
Val:TStrings;
begin
Reg:=TRegistry.Create();
Val:=TStringList.Create();
Reg.OpenKey('某一key',False);
Reg.GetValueNames(Val);
end;
.........Val中就是你要的东西。
.........
var
Reg: TRegistry;
Val:TStrings;
begin
Reg:=TRegistry.Create();
Val:=TStringList.Create();
Reg.OpenKey('某一key',False);
Reg.GetValueNames(Val);
end;
.........Val中就是你要的东西。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货