怎么读取注册表的键值？我按照Borland的说明做怎么不对呢？

Question

首先在USES段加入　Registry
在程序中：with TRegistry.Create do begin　　　//首先创建实例
  RootKey:=HKEY_CLASSES_ROOT;      //设置启动键。这一步非常关键。
     if OpenKey('.bat',True) then begin//打开键，参数为TRUE表示该键不存在时创建此键
      WriteString('','BatFile');　//向“默认”项写入字符串值
      CloseKey ;                  //关闭该键
     end;
  end;

Answer 1

首先在USES段加入　Registry
在程序中：with TRegistry.Create do begin　　　//首先创建实例
  RootKey:=HKEY_CLASSES_ROOT;      //设置启动键。这一步非常关键。
    if OpenKey('.bat',True) then begin//打开键，参数为TRUE表示该键不存在时创建此键
      WriteString('','BatFile');　//向“默认”项写入字符串值
　　　a:=ReadString('','');　//读取“默认”项值到变量a中。第二个参数为变量a的默认值，当不能读取时a返回该值。
      CloseKey ;                  //关闭该键
    end;
  end;