易语言注册表编辑器

.如果真 (输入框 (“输入新建项名称：”, “新建项”, “新建项”, A, ))
.如果真 (A ＝ “”)
返回 ()
.如果真结束
B ＝ _注册表_打开 (树型框1.取项目数值 (树型框1.现行选中项), A, C)
.如果真 (B ＝ 0)
信息框 (“注册表编辑器无法创建项,指定项名称已存在,键入另一个名称后重试”, 16, “创建项时出现错误”)
返回 ()
.如果真结束
B ＝ _注册表_创建项 (树型框1.取项目数值 (树型框1.现行选中项), A, C)
.如果真 (B ≠ 0)
信息框 (“创建项失败,请检查错误,或是否重名”, 16, “创建项时出现错误”)
返回 ()
.如果真结束
树型框1.加入项目 (树型框1.现行选中项, A, , , C, , )

A ＝ _注册表_修改 (_启动窗口.树型框1.取项目数值 (_启动窗口.树型框1.现行选中项), 编辑框2.内容, 0, 4, 到字节集 (到整数 (B)), 取字节集长度 (到字节集 (到整数 (B))))
.如果真 (A ≠ 0)
信息框 (“无法写入该值”, 16, “修改时出错”)
返回 ()
.如果真结束
_启动窗口.超级列表框1.置标题 (_启动窗口.超级列表框1.现行选中项, 2, 编辑框1.内容)

内容 ＝ 子字节集替换 (到字节集 (编辑框2.内容), { 13, 10 }, { 0 }, , )
内容 ＝ 内容 ＋ { 0, 0 }
.如果真 (取字节集右边 (内容, 3) ＝ { 0, 0, 0 })
内容 ＝ 子字节集替换 (内容, { 0, 0, 0 }, { 0, 0 }, , )
.如果真结束
返回值 ＝ _注册表_修改 (_启动窗口.树型框1.取项目数值 (_启动窗口.树型框1.现行选中项), 编辑框1.内容, 0, 7, 内容, 取字节集长度 (内容))
.如果真 (返回值 ≠ 0)
信息框 (“编辑该值时出错”, 16, “编辑失败”)
销毁 ()
返回 ()
.如果真结束
内容 ＝ 子字节集替换 (内容, { 0 }, { 32 }, , )
_启动窗口.超级列表框1.置标题 (_启动窗口.超级列表框1.现行选中项, 2, 取字节集数据 (内容, 10, ))