关于写注册表，请帮我看看好吗~~~~~~~~~~~马上给分。

Question

Reg: TRegistry;Reg:=TRegistry.Create ;
Reg.RootKey :=HKEY_LOCAL_MACHINE;
Reg.OpenKeyReadOnly('\SOFTWARE\NETSDL\MaryKaySales\DataDump');
Reg.WriteString('ImportStatus','P');Reg.Free;这样程序报错"Failed to set data for 'ImportStatus'   "
请帮我看看好吗?

Answer 1

Reg.OpenKeyReadOnly('\SOFTWARE\NETSDL\MaryKaySales\DataDump');
//已只读模式打开
Reg.WriteString('ImportStatus','P');//当然不能写入了！

Answer 2

ImportStatus值的类型是否是STRING？

Answer 3

你没有在\SOFTWARE\NETSDL\MaryKaySales\DataDump'下建ImportStatus吧
在Reg.WriteString('ImportStatus','P');前加一句
reg.openkey:=('ImportStatus',true);

Answer 4

有ImportStatus这个项，请问不是只读的怎么写?

Answer 5

sRegTree1是一个键值
   reg:=TRegistry.Create;
   try
    
    Reg.RootKey:=HKEY_CURRENT_USER;
   
    Reg.OpenKey(sRegTree1,false);
    nLen:=Length(msKey);    reg.WriteBinaryData('CDWord',msKey[1],nlen);    //Reg.WriteString('CDWord',msKey);
    Reg.CloseKey;
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    if (Reg.OpenKey(sRegTree2,False))=False then
    begin
       Reg.CreateKey(sRegTree2);
    end;
    Reg.OpenKey(sRegTree2,false);
    reg.WriteBinaryData('CDWord',msKey[1],nlen);
//    Reg.WriteString('CDWord',msKey);
    Reg.CloseKey;  finally
     reg.Free;
  end;