|
|
发表于 2007-7-24 22:16:47
|
显示全部楼层
来自： 中国浙江宁波
(defun c:ssss ()
( G% y8 d5 c$ r8 _3 D) g7 d$ y5 `(if (= (* 555 (three)) 45477701755); Y z, m% S) d5 _' L
(progn( z! E& {: l% [( z }& a: R
(alert "你的程序已注册")
+ G' L% O* D& B9 X! y) k )7 n& P! I; ~, c! Y: d
(progn
! b3 ~1 W1 t# J0 c5 L% V (alert "你的程序未注册")
* z! s& H5 D" \+ f& ^ )$ x+ P [) F. |, z) t3 e9 p: d
)! V* n: }4 u. A) i/ N4 k# V
(princ)
* w! `+ j k& K% V; D; `) Q# ^)
6 s- Q8 \1 a( X' Y( W
( M) I _5 ]% C5 h+ x) c* [' _) y(defun three(), t2 }. k' B% V: l* V
(setq ggg (vl-registry-read "HKEY_LOCAL_MACHINE\\Software\\mysoft\\mysoftgh" "mysoft1"));;假设读取此注册值# E# g# m/ z$ J, d: I5 k% s
)
- {5 G7 Y$ n( s W6 r8 n- R
7 e; v4 z4 l( p8 o2 o& {大概意思应该是这样，可能会遇到数据类型的转换问题，你测试一下，我没有测试过！ |
|
发表于 2007-7-24 20:44:31