|
|
发表于 2007-7-24 22:16:47
|
显示全部楼层
来自： 中国浙江宁波
(defun c:ssss ()
8 ?4 A, k/ ^' J; r(if (= (* 555 (three)) 45477701755)
* u6 `, c. T4 o9 z (progn- T3 r/ K, R" F) ]
(alert "你的程序已注册")
5 n9 ?0 J8 P- `& r' R7 J ). l& z/ N: S1 ~9 @, j( g, ?( U
(progn
7 x: L4 Z* r1 a/ R8 O2 t) G (alert "你的程序未注册"). A% j) ?+ C/ W$ M Z- A
)" t# c: ~2 V1 E: Y
)
* K8 u; o) }4 s(princ)' O' ~. T! o3 E# b
). A+ q7 w! q& j
: ~: D0 a' `/ {: P, u, a5 G
(defun three()- A- t( t, v8 H; [6 x! b
(setq ggg (vl-registry-read "HKEY_LOCAL_MACHINE\\Software\\mysoft\\mysoftgh" "mysoft1"));;假设读取此注册值$ z3 V1 P0 N7 l) y) \1 Q) K
)! F: |# Y) `9 g
- o' N0 @* E4 |/ H/ h' t大概意思应该是这样，可能会遇到数据类型的转换问题，你测试一下，我没有测试过！ |
|
发表于 2007-7-24 20:44:31