（XD::Var:Set）保存变量到注册表

Lispboy

1. (defun xd::var:set (sym val / v)
   
2.   (xdrx-registry-set
   
3.       "HKEY_LOCAL_MACHINE\\Software\\XDSoft\\Variables"
   
4.       (setq sym (vl-princ-to-string sym))
   
5.       (setq val (vl-princ-to-string val))
   
6.     )
   
7.   (eval (set (read sym) val))
   
8. )
   

(defun xd::var:set (sym val / v)<br />   (xdrx-registry-set<br />       "HKEY_LOCAL_MACHINE\\Software\\XDSoft\\Variables"<br />       (setq sym (vl-princ-to-string sym))<br />       (setq val (vl-princ-to-string val))<br />     )<br />   (eval (set (read sym) val))<br /> )<br />

huangpc27

还要搭载另一个自定义函数

tanjurun

写注册表都要这么复杂吗？不是直接可以写进去吗

Le9988

学习，学习。

wzjck01

学习，学习。

wzjck01

学习，学习。

yoyoho

学习，学习。