|
|
发表于 2007-7-24 22:16:47
|
显示全部楼层
来自： 中国浙江宁波
(defun c:ssss ()( w3 _# x1 \- E
(if (= (* 555 (three)) 45477701755)( j* C: R# A7 M- R- K
(progn" l* ^' X8 i6 E2 q, R* f; ]
(alert "你的程序已注册")
' G9 O$ r1 b3 H) K8 M" J" b0 _ )& s3 G0 x& H/ z% X) P
(progn
: c; h; c" A, h# c% O (alert "你的程序未注册")
( s: {, d w5 d3 j) d e )- a& w! c! ?7 w% h% ^8 B0 U0 N0 d
)
4 F# K3 Z2 L4 j- q3 S% m(princ)4 C5 x: Z0 i" U! P# Y, A0 d2 B: o
): z; _7 J$ g% O7 @. I
* F+ O4 j6 ~9 l; h% R& _$ ^1 l- L(defun three()" o p% P* g( J7 Z2 }2 D
(setq ggg (vl-registry-read "HKEY_LOCAL_MACHINE\\Software\\mysoft\\mysoftgh" "mysoft1"));;假设读取此注册值
. x% Y6 H `' [1 \7 m7 n* o+ F)
, C: } C1 J: e2 J
{9 y+ t# m. H/ A6 H大概意思应该是这样，可能会遇到数据类型的转换问题，你测试一下，我没有测试过！ |
|
发表于 2007-7-24 20:44:31