我在获取主键下各数值名称时报错过不去，比较小白，不太懂问题出在那里，请大神指教一二。O(∩_∩)O谢谢

procedure TForm1.Button1Click(Sender: TObject);
var
Reg:TRegistry;
NameLst:TStrings;
i:integer;
begin
Reg:= TRegistry.Create;
NameLst:= TStrings.Create;
try
Reg.RootKey:= HKEY_LOCAL_MACHINE;
Reg.OpenKey('HARDWARE\DEVICEMAP\SERIALCOMM',true);
Reg.GetValueNames(NameLst);
self.memo1.Clear;
for i := 0 to NameLst.Count-1 do
memo1.Lines.Add(reg.ReadString(Namelst[i]));
finally
begin
Reg.CloseKey;
Reg.Free;
Namelst.Free;
end;
end;
end;

你或许需要管理员权限，毕竟你在操作注册表，如果我没有看错