|
|
发表于 2007-7-24 22:16:47
|
显示全部楼层
来自： 中国浙江宁波
(defun c:ssss ()! U2 [& w! s8 m9 W
(if (= (* 555 (three)) 45477701755)5 [( J- r: L, y- ^. d0 p
(progn
9 y/ t* }5 J/ c; d (alert "你的程序已注册")
! Z* i% h. w. C: n$ G: u9 E7 d ); {8 B( ]3 }; D' d
(progn . w [$ l$ l+ i6 O1 \1 K6 R
(alert "你的程序未注册")
! A+ o. e n+ _( M. S$ C+ h )
+ A' C3 g, L; {6 T)
. O4 `/ f1 z& d- X(princ)
5 E1 d; H- H: |)
4 X, o3 i; b! u9 L& z+ T+ l
$ c; {3 ^# r9 H. E8 T2 K* h I(defun three() U) Z- h# a0 v6 }0 j! C3 [, b
(setq ggg (vl-registry-read "HKEY_LOCAL_MACHINE\\Software\\mysoft\\mysoftgh" "mysoft1"));;假设读取此注册值
. A z3 R9 D9 [0 Q9 m)4 l. ?0 Q0 O0 Q/ X% q) b( P
9 @2 p9 H s4 D# ?: S大概意思应该是这样，可能会遇到数据类型的转换问题，你测试一下，我没有测试过！ |
|
发表于 2007-7-24 20:44:31