var reg:Tregistry;
begin
reg:=tregistry.Create ;
reg.RootKey:= HKEY_LOCAL_MACHINE;
reg.OpenKey('software\microsoft\windows\currrentversion\',false);
if not reg.HasSubKeys  then showmessage('not have');
reg.CloseKey;
reg.Free;
end;在CurrentVersion下面有很多子键,可是为什么提示没有呢?
更别说用 reg.GetKeyNames() 去读取了请问怎么回事,如何处理,谢谢