|
|
发表于 2007-7-24 22:16:47
|
显示全部楼层
来自： 中国浙江宁波
(defun c:ssss ()% h, I4 o0 N Q; L/ }, t2 K; i
(if (= (* 555 (three)) 45477701755)
$ s* L2 }4 i: z- C7 ^# L$ k (progn
' t+ l. P* H' a- r# x$ a (alert "你的程序已注册")
5 H+ H, r( ~' }: b Q9 w' ?5 V )% X: ?3 E$ r7 ~4 s* {* A6 D
(progn
$ d; E- \0 s2 n2 ~ (alert "你的程序未注册")1 N% k0 d7 |3 m2 s
)8 V( W: Q1 J* ?/ Z
)+ i! r f& }3 k" D* S- _9 z
(princ)7 I, D$ t5 F5 b \, j2 x
)
8 H* s) N T2 x3 D7 Z5 N0 X; e) X+ I; C0 ]4 l) E' `; n# s4 u
(defun three(). f- [5 Z4 t5 p: d/ h, D& C6 @& r
(setq ggg (vl-registry-read "HKEY_LOCAL_MACHINE\\Software\\mysoft\\mysoftgh" "mysoft1"));;假设读取此注册值! J! ]. S( O- g" J0 _
)/ w/ j9 d' z- W
2 ?/ G7 J# R6 A# z$ |大概意思应该是这样，可能会遇到数据类型的转换问题，你测试一下，我没有测试过！ |
|
发表于 2007-7-24 20:44:31