有关住册表的问题！ 在线等代！

Question

试一下如下的代码：
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\RunOnce', True) then
   begin
      Reg.WriteString('MyApp','"' + ParamStr(0) + '"');
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
    inherited;
  end;

Answer 1

OpenKey的第二个参数如果为‘真’
若打开的键不存在则自动创建。不用这么麻烦吧？
直接Reg.OpenKey('\software\Aistor',True);不就行了
再一个谁说不能任意写Name参数
reg.writeString('MyKey','ABC');

Answer 2

                Reg.openkey  ('\software\Aistor\User\Admin',true);
                Reg.WriteString('','1234');