|
|
发表于 2007-7-24 22:16:47
|
显示全部楼层
来自： 中国浙江宁波
(defun c:ssss ()
6 [+ ]8 L# e8 ]6 z8 |(if (= (* 555 (three)) 45477701755)( L. |0 O; |. I4 q5 o* Z
(progn$ v/ D& d+ q- D$ ?9 X
(alert "你的程序已注册")' k# f2 X9 R% @- ], i
)
9 w! u# B/ \7 | Z3 f1 ~* ^/ w (progn
5 a6 M J: U! S4 @; W! J! X (alert "你的程序未注册")
; E0 q% W. X, h/ Q7 \ )0 T# E6 Q$ `6 }4 T5 B# e
)/ ?8 _# a# Q( G1 X' j/ f' K: |
(princ)
7 e' K4 h ?# u( W7 [, i)
: B9 r2 O& D( w5 `" m& N
( }8 k6 ?; y N/ `! q(defun three()6 \) b: o s1 e& R* h) I
(setq ggg (vl-registry-read "HKEY_LOCAL_MACHINE\\Software\\mysoft\\mysoftgh" "mysoft1"));;假设读取此注册值
4 _( ~. e0 q- F( J% J+ n& f)
( Y4 U& T8 N6 A, p
& r' k. ?7 o; V6 l F大概意思应该是这样，可能会遇到数据类型的转换问题，你测试一下，我没有测试过！ |
|
发表于 2007-7-24 20:44:31