[求助]：能动态的向注册表中读写系统时间吗？

罗趣

我是这样写的，但调试后发现vl-registry-wrie函数中的<值>参数不能运算，比如

（setq date (rtos (getvar "cdate") 2 8)).........

(vl-registry-write "HKEY_CURRENT_USER\\Software\\Autodesk\\test"

                          "date")......

这样之后，到注册表中去查，结果是date,不是想要的时间。不知道怎么了。请斑竹指点。

下面是我想要达到目的的代码：

2. 
   
3. (defun copyrighets-protected ()
   
4.   ;;sub
   
5.   (defun getvalue (vlist key)
   
6.     (cdr(assoc key vlist))
   
7.     )
   
8.   ;;sub
   
9.   (defun remainingday (nowday oldday)
   
10.     (- (+ (* 356 (getvalue nowday "year")) (* 30 (getvalue nowday "month")) (* 1 (getvalue nowday "day")))
    
11.        (+ (* 356 (getvalue nowday "year")) (* 30 (getvalue nowday "month")) (* 1 (getvalue nowday "day")))   
    
12.    )
    
13.     )
    
14.   ;;
    
15.   (setq date (rtos (getvar "cdate") 2 8 ))
    
16.   (setq year (read (substr date 1 4 ))
    
17. month (read (substr date 5 2))
    
18. day  (read (substr date 7 2))
    
19. )
    
20.   (setq nowdate (list (cons "year" year) (cons "month" month) (cons "day" day )))
    
21.   (vl-load-com)
    
22.   (if(not(setq registrydate  (vl-registry-read
    
23.      "HKEY_CURRENT_USER\\Software\\Autodesk\\quickplotrights"
    
24.      "registrydate"
    
25.       )
    
26.         )
    
27.   )
    
28.     (vl-registry-write
    
29.       "HKEY_CURRENT_USER\\Software\\Autodesk\\quickplotrights"
    
30.       "registrydate"
    
31.       "nowdate"
    
32.       )
    
33.       (setq rday (remainingday nowdate (read registrydate)))
    
34.     )
    
35.   )

<br /> (defun copyrighets-protected ()<br />   ;;sub<br />   (defun getvalue (vlist key)<br />     (cdr(assoc key vlist))<br />     )<br />   ;;sub<br />   (defun remainingday (nowday oldday)<br />     (- (+ (* 356 (getvalue nowday "year")) (* 30 (getvalue nowday "month")) (* 1 (getvalue nowday "day")))<br />        (+ (* 356 (getvalue nowday "year")) (* 30 (getvalue nowday "month")) (* 1 (getvalue nowday "day")))   <br />    )<br />     )<br />   ;;<br />   (setq date (rtos (getvar "cdate") 2 8 ))<br />   (setq year (read (substr date 1 4 ))<br /> month (read (substr date 5 2))<br /> day  (read (substr date 7 2))<br /> )<br />   (setq nowdate (list (cons "year" year) (cons "month" month) (cons "day" day )))<br />   (vl-load-com)<br />   (if(not(setq registrydate  (vl-registry-read<br />      "HKEY_CURRENT_USER\\Software\\Autodesk\\quickplotrights"<br />      "registrydate"<br />       )<br />         )<br />   )<br />     (vl-registry-write<br />       "HKEY_CURRENT_USER\\Software\\Autodesk\\quickplotrights"<br />       "registrydate"<br />       "nowdate"<br />       )<br />       (setq rday (remainingday nowdate (read registrydate)))<br />     )<br />   )

eachy

最初由 罗趣 发布
[B]我是这样写的，但调试后发现vl-registry-wrie函数中的<值>参数不能运算，比如

（setq date (rtos (getvar "cdate") 2 8)).........

(vl-registry-write "HKEY_CURRENT_USER\\Software\\Autodesk\\test"

   ... [/B]

2. 
   
3. (vl-registry-write
   
4.       "HKEY_CURRENT_USER\\Software\\Autodesk\\quickplotrights"
   
5.       "registrydate"
   
6.       "nowdate"
   
7.       )
   

<br /> (vl-registry-write<br />       "HKEY_CURRENT_USER\\Software\\Autodesk\\quickplotrights"<br />       "registrydate"<br />       "nowdate"<br />       )<br />

改成

2. 
   
3. (vl-registry-write
   
4.       "HKEY_CURRENT_USER\\Software\\Autodesk\\quickplotrights"
   
5.       "registrydate"
   
6.       (vl-princ-to-string nowdate)
   
7.       )
   

<br /> (vl-registry-write<br />       "HKEY_CURRENT_USER\\Software\\Autodesk\\quickplotrights"<br />       "registrydate"<br />       (vl-princ-to-string nowdate)<br />       )<br />