一个关于进入注册表读出windows版本的很简单的问题

Question

我是delphi初学者，在网上查到这个范例，决定在电脑上试一下，但是好像ReadString里的东西都不能显示，而且不管我把OpenKey改成true或者false，if判断总是能执行then，请问是怎么一回事呢？是不是我哪里写错了？请大家指教！非常感谢！
var
  regtemp:Tregistry;begin
  regtemp:=Tregistry.Create;
  with regtemp   
  do
    begin
      Rootkey:=HKEY_LOCAL_MACHINE;
      if
        OpenKey('Software\Microsoft\Windows\CurrentVersion', false)
      then
        begin
          memo1.lines.add('Windows 版本: '+ ReadString('Version'));
          memo1.lines.add('Windows 版本号: '+ ReadString('VersionNumber'));
          memo1.lines.add('Windows 子版本号: '+ ReadString('SubVersionNumber'));
        end;
      CloseKey;
      Destroy;
    end;end;

Answer 1

楼主，你从运行里输入regedit按照你的程序的注册表路径找到那个下面看看有没有那个键不就知道为什么为空了吗