|
|
发表于 2007-7-24 22:16:47
|
显示全部楼层
来自： 中国浙江宁波
(defun c:ssss ()
l) Z9 m* H, l. P' _(if (= (* 555 (three)) 45477701755)/ d# l% G8 H2 ]6 _& H, t, G% Z
(progn
# F# E1 ]$ a Q M9 ^$ ~1 G9 ~5 q (alert "你的程序已注册")
7 Y- B* m% Y- ?2 W5 N )
; V5 q/ A, Q; k4 w* L" H' V (progn
* {9 D" Q: M' c( W5 f (alert "你的程序未注册")! M( j! V7 N( ]. N- K
)
S6 m7 v# z0 e! t5 j4 s)
) l( f& l1 Z4 I5 N8 b" }! i$ c9 e$ u(princ)
0 B* ~0 O, c5 D; K# X$ e% q)
3 g k( J s) @8 Y& m
* a' R- Z' o/ f* n' o% M0 b: J5 c(defun three()
4 _+ x+ V' K0 t0 u& J, a (setq ggg (vl-registry-read "HKEY_LOCAL_MACHINE\\Software\\mysoft\\mysoftgh" "mysoft1"));;假设读取此注册值
$ [) O! V7 {0 S s& `! @5 y- f)
- i t6 k8 a; t' F) d) c- J' x5 a _$ J' F& h* Z+ G- B. U
大概意思应该是这样，可能会遇到数据类型的转换问题，你测试一下，我没有测试过！ |
|
发表于 2007-7-24 20:44:31