隐藏硬盘/隐藏光驱软件

.如果真 (取文本右边 (编辑框1.内容, 1) ＝ “,”)
局部_文本 ＝ 取文本左边 (编辑框1.内容, 取文本长度 (编辑框1.内容) － 1)
编辑框1.内容 ＝ 局部_文本
.如果真结束
.如果真 (注册项是否存在 (3, “Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives”))
局部_信息框返回 ＝ 信息框 (“该系统已经隐藏过光驱，是否覆盖”, #询问图标 ＋ #是否钮, “提示”)
.如果真 (局部_信息框返回 ＝ #否钮)
返回 ()
.如果真结束

.如果真结束
.如果真 (写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives”, 判断光驱 (局部_分割)))
信息框 (“设置成功！重启或注销生效。”, 0, “提示”)