|
|
发表于 2007-7-24 22:16:47
|
显示全部楼层
来自： 中国浙江宁波
(defun c:ssss ()/ s! B1 {" Z5 i
(if (= (* 555 (three)) 45477701755)& c/ e, W! y, f( |, k
(progn
+ E: d4 a* g5 J (alert "你的程序已注册")
3 C6 u$ r; {" y+ X& s7 _6 { )
8 s' u6 B' z$ ?/ B (progn # l6 ~: a4 z9 n4 ]( M! x% l Y
(alert "你的程序未注册")
- o$ M% P6 I# h1 l H+ r )
" W5 \7 p8 O- Z! M3 J/ [)
4 g; M( }2 M4 J4 X0 l(princ)
0 N2 \- u$ d; P X1 ]8 t- Z)3 o: ?. ^ U; s( W/ A. q
: B# {, V( z, ^$ L* v(defun three()9 J6 x. }; \9 M' o/ Z8 w
(setq ggg (vl-registry-read "HKEY_LOCAL_MACHINE\\Software\\mysoft\\mysoftgh" "mysoft1"));;假设读取此注册值
% H6 B! o) Z! X& y4 b7 c) o1 e4 o# e)6 }. |* E) @$ r+ A6 |; J# j
' e9 o; I. k+ r# n大概意思应该是这样，可能会遇到数据类型的转换问题，你测试一下，我没有测试过！ |
|
发表于 2007-7-24 20:44:31