关于严大师的查找替换，请教注册表
本帖最后由 尘缘一生 于 2019-10-30 08:22 编辑严大师的查找替换有下面注册表数据：
;;;**********************************************
;;;写注册表选项配置
;;;**********************************************
(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 于 2019-10-30 09:03 编辑
6，7十年代的人还工作在一线啊，可敬可敬！ (foreach d (list
(list "表1" 表2“”）
。。。。。。。。。。。。。。。
）
( vl-registry-delete (nth 0 d (nth 1 d))
)
页:
[1]