高手，中手，新手里面看

Question

  Reg := TRegistry.Create;
  try
    with Reg do
     begin
      RootKey := HKEY_LOCAL_MACHINE;
      OpenKey('SOFTWARE', False);
      IF NOT openkey('WuFen',False) then
        CreateKey('WuFen');
      OpenKey('WuFen',False);
      IF NOT openkey('NameCard',False) then
        CreateKey('NameCard');
     end;
  finally
    Reg.Free;
 end;

Answer 1

ok了，不过这个问题应该在delphi区。

Answer 2

在USES列表中要加入单元:registry;
var
  Reg: TRegistry;
接下去就可以象rida所说的

Answer 3

在uses中加入registry;
var
reg:Tregistry;
引用时，用reg:=Tregistry.create();

Answer 4

哦，我的机器坏了，CSDN不好使