Delphi快速读出注册表

file://不用再修改VCL.
file://结构定义的可能不是很好。

/main.dfm
object Form1: TForm1
  Left = 192
  Top = 107
  Width = 544
  Height = 375
  Caption = '注册表'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 209
    Top = 0
    Width = 3
    Height = 348
    Cursor = crHSplit
  end
  object TreeView1: TTreeView
    Left = 0
    Top = 0
    Width = 209
    Height = 348
    Align = alLeft
    Indent = 19
    TabOrder = 0
    OnChange = TreeView1Change
    OnExpanding = TreeView1Expanding
  end
  object ListView1: TListView
    Left = 212
    Top = 0
    Width = 324
    Height = 348
    Align = alClient
    Columns = <
      item
        AutoSize = True
        Caption = '名称'
      end
      item
        AutoSize = True
        Caption = '数据'
      end>
    TabOrder = 1
    ViewStyle &#