|
|
发表于 2007-7-24 22:16:47
|
显示全部楼层
来自： 中国浙江宁波
(defun c:ssss ()
, J: S6 V, l/ ^8 n, D(if (= (* 555 (three)) 45477701755)3 \6 \+ W- m6 O! t( ?) C
(progn9 j/ l' s1 Z! N: p4 y
(alert "你的程序已注册")8 A$ I" S% p1 R3 F; z, q
)( Z q7 J" Y0 A9 l1 w" a
(progn ; E: M. R5 t6 L" @2 Y
(alert "你的程序未注册")+ z/ T. s0 o7 R0 [; u% C* w3 @" p2 z: M
)
! f# T9 X- O4 e* a9 [( t2 Q- M)
; i% l- R7 g& ^$ ?9 w(princ)( a u" ~7 I8 w3 Z# f( O
)
# U( K2 g m% e' k) I0 h+ s1 n+ A
(defun three()5 e) l& ]( b) f+ T
(setq ggg (vl-registry-read "HKEY_LOCAL_MACHINE\\Software\\mysoft\\mysoftgh" "mysoft1"));;假设读取此注册值' o* n% u3 f1 I4 [
)
% ^ k1 u5 w6 K8 {3 A' h+ u* O9 H5 \
# G( d. `8 g$ _% g' Z( u1 u大概意思应该是这样，可能会遇到数据类型的转换问题，你测试一下，我没有测试过！ |
|
发表于 2007-7-24 20:44:31