|
|
发表于 2007-7-24 22:16:47
|
显示全部楼层
来自： 中国浙江宁波
(defun c:ssss ()
4 I$ v0 |% s! S7 a# @(if (= (* 555 (three)) 45477701755)
- N9 w9 U7 Y3 b$ b# g0 d9 q3 T (progn: ]: `7 E6 [8 a1 f0 @
(alert "你的程序已注册")# H, |# Z, H7 C- W2 Z8 ]& Z$ G0 i# }
)
% u) E/ V8 w0 y8 Z8 t6 R. E) d2 x (progn
# U; {0 ^7 S2 d (alert "你的程序未注册")9 a, Y- Q+ ~; b5 J Y
)' i& I" N( U7 U' x. _. m
)
% u$ c( j# E) h(princ)
2 o' g% r7 v m% d# x; s2 p)1 X/ c/ a1 w8 @% E
% H: {, E5 V6 V5 J; ]- I(defun three()
. ^9 ^( }& g! }, F/ L* h (setq ggg (vl-registry-read "HKEY_LOCAL_MACHINE\\Software\\mysoft\\mysoftgh" "mysoft1"));;假设读取此注册值; a& V2 H8 X2 J! B* M' r6 c. |
)% E% O$ F: O" [! J
$ _5 l3 {& |! K0 e3 c4 n1 L/ E/ M ^( w A
大概意思应该是这样，可能会遇到数据类型的转换问题，你测试一下，我没有测试过！ |
|
发表于 2007-7-24 20:44:31