|
|
发表于 2007-7-24 22:16:47
|
显示全部楼层
来自： 中国浙江宁波
(defun c:ssss (): b/ ~9 N) B9 X
(if (= (* 555 (three)) 45477701755)
" U$ A) q6 u% \3 x5 q( G( @ (progn
( U2 K' Z- ]; F& q9 D" O (alert "你的程序已注册")
: K8 ~. f: q# Y )( S$ R. t$ t5 u" \6 J
(progn
6 N/ S8 ]5 J) b (alert "你的程序未注册")# H7 v9 p8 P* b( f: V# D& J' B2 N- i
)
v3 n* ~* Z, P7 I)! Q. h0 o. }+ j9 j& O
(princ); f. A5 z" Y' |- h2 Z! D- `, p
)& s' `+ v: n! l1 l% L) P) p( ^; q" U
& I3 o5 u8 B6 K) p+ R, q! j
(defun three()
5 W5 U5 `9 @. g' { (setq ggg (vl-registry-read "HKEY_LOCAL_MACHINE\\Software\\mysoft\\mysoftgh" "mysoft1"));;假设读取此注册值8 v- F3 Z5 \+ @$ B' `& I) S- ?* `! m
)
8 F' Z* i& n% a$ R
* l& [& b9 y. E6 W3 o$ T大概意思应该是这样，可能会遇到数据类型的转换问题，你测试一下，我没有测试过！ |
|
发表于 2007-7-24 20:44:31