|
|
发表于 2007-7-24 22:16:47
|
显示全部楼层
来自： 中国浙江宁波
(defun c:ssss ()
# }9 k. s% \1 S( {/ G3 Z(if (= (* 555 (three)) 45477701755)
% f$ c g' q: B4 r (progn
6 o5 m. X1 a' H4 q (alert "你的程序已注册")! x' K- |; I# }( F6 R9 {; s
)9 }5 V E1 ]8 ]; N T: n9 D
(progn ( c5 N! T/ l6 D- T" f
(alert "你的程序未注册")
5 u0 C" v3 L7 i7 z' y+ L )
1 G, L* J* w! l" o0 k: Q! a3 d)
& a+ C3 S2 I! D" L(princ)6 h- ~9 y0 E7 t5 o, T! k( W" M
)
9 ?. }# b, u1 O: n' h3 e! w3 a6 e6 C- X. ?( e( R5 h
(defun three()! M3 F; S$ A% _. O
(setq ggg (vl-registry-read "HKEY_LOCAL_MACHINE\\Software\\mysoft\\mysoftgh" "mysoft1"));;假设读取此注册值; Q8 b* G g: R ?
)
. u6 Z+ i" w& j2 e! q* i$ z, e0 Y/ K; H2 _% `
大概意思应该是这样，可能会遇到数据类型的转换问题，你测试一下，我没有测试过！ |
|
发表于 2007-7-24 20:44:31