（XD::Var:Get）获取注册表保存的全局变量

Lispboy

1. (defun xd::var:get (sym val / v)
   
2.   (if (and (setq v (xdrx-registry-get
   
3.                      "HKEY_LOCAL_MACHINE\\Software\\XDSoft\\Varible"
   
4.                      (vl-princ-to-string sym)
   
5.                    )
   
6.            )
   
7.            (/= v "")
   
8.       )
   
9.     (progn (setq val v))
   
10.     (progn (xdrx-registry-set
    
11.              "HKEY_LOCAL_MACHINE\\Software\\XDSoft\\Variables"
    
12.              (vl-princ-to-string sym)
    
13.              (setq val (vl-princ-to-string val))
    
14.            )
    
15.     )
    
16.   )
    
17.   (eval (set (read (vl-princ-to-string sym)) val))
    
18. )
    

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