关于严大师的查找替换，请教注册表

尘缘一生

严大师的查找替换有下面注册表数据：

;;;**********************************************
;;;写注册表选项配置
;;;**********************************************
(defun registrywrite()
  (and wqpp(vl-registry-write "HKEY_CURRENT_USER\\czthoption" "wqpp" wqpp))
  (and qfdxx(vl-registry-write "HKEY_CURRENT_USER\\czthoption" "qfdxx" qfdxx))
  (and dhwz(vl-registry-write "HKEY_CURRENT_USER\\czthoption" "dhwz" dhwz))
  (and duohwz(vl-registry-write "HKEY_CURRENT_USER\\czthoption" "duohwz" duohwz))
  (and sxwz(vl-registry-write "HKEY_CURRENT_USER\\czthoption" "sxwz" sxwz))
  (and tzwz(vl-registry-write "HKEY_CURRENT_USER\\czthoption" "tzwz" tzwz))
  (and knwz(vl-registry-write "HKEY_CURRENT_USER\\czthoption" "knwz" knwz))
  (and tzqt(vl-registry-write "HKEY_CURRENT_USER\\czthoption" "tzqt" tzqt))
  (vl-registry-write "HKEY_CURRENT_USER\\czthoption" "cycz" cycz)
  (vl-registry-write "HKEY_CURRENT_USER\\czthoption" "cyth" cyth)
  (vl-registry-write "HKEY_CURRENT_USER\\czthoption" "qk" qk)
)


     使用中发现，有时候崩溃，就是注册表数据有问题，下面我写了几句代码，但是不敢确定，能否删除这些注册，请大家给看看，或
;;;**************************************************
;;;清除注册表，初始化，防止崩溃
;;;**************************************************
(defun dosl19 ()
  (princ "\删除本程序注册表项，系统重置!!!")
  (vl-registry-delete "HKEY_CURRENT_USER\\czthoption" "wqpp")
  (vl-registry-delete "HKEY_CURRENT_USER\\czthoption" "qfdxx")
  (vl-registry-delete "HKEY_CURRENT_USER\\czthoption" "dhwz")
  (vl-registry-delete "HKEY_CURRENT_USER\\czthoption" "duohwz")
  (vl-registry-delete "HKEY_CURRENT_USER\\czthoption" "sxwz")
  (vl-registry-delete "HKEY_CURRENT_USER\\czthoption" "tzwz")
  (vl-registry-delete "HKEY_CURRENT_USER\\czthoption" "knwz")
  (vl-registry-delete "HKEY_CURRENT_USER\\czthoption" "tzqt")
  (vl-registry-delete "HKEY_CURRENT_USER\\czthoption" "cycz")
  (vl-registry-delete "HKEY_CURRENT_USER\\czthoption" "cyth")
  (vl-registry-delete "HKEY_CURRENT_USER\\czthoption" "qk")
  (vl-registry-delete "HKEY_CURRENT_USER\\czthoption" "jiaoju")
  (vl-registry-delete "HKEY_CURRENT_USER\\czthoption" "screenpt")
  (vl-registry-delete "HKEY_CURRENT_USER\\czthoption")
)

主要我不敢确定能否删除干净，或者不用写这么长？一句话最后的就能删除？

lucas_3333

6，7十年代的人还工作在一线啊，可敬可敬！

前生

(foreach d (list
                (list "表1" 表2“”）
                。。。。。。。。。。。。。。。
             ）
( vl-registry-delete (nth 0 d (nth 1 d))
)