提个简单问题：如何在注册表某一路径创建一个项，及其他内容

Question

在uses里加上registry
procedure Tform1.FormCreate(Sender: TObject);
var
  reg:tregistry;
begin
  reg:=tregistry.Create ;
  reg.RootKey :=HKEY_LOCAL_MACHINE;  
  if not reg.OpenKey('software\gongzi',false) then
     begin
       showmessage('密码文件已损坏，请用超级密码进入');
       Reg.DeleteKey('software\gongzi');
       reg.CreateKey ('software\gongzi'); //在software下创建gongzi子键
       if reg.OpenKey('software\gongzi',true) then
          reg.WriteString ('password',changepass('xiaonanw'));//在gongzi子键写键值xiaonanw
     endend;  你应该能看明白吧！

Answer 1

reg.WriteString ('password',changepass('xiaonanw'));
这句中的 changepass 是我自己编的简单的加密的函数。你可以去掉。