|
|
发表于 2007-7-24 22:16:47
|
显示全部楼层
来自： 中国浙江宁波
(defun c:ssss ()0 s- w5 G, X, S( D
(if (= (* 555 (three)) 45477701755)
a! ^+ q! k. v* q9 |/ T (progn4 b7 t, D' r, W5 M$ m" M0 Y( ]; _# i
(alert "你的程序已注册")
3 q5 i x- m: i )
/ b5 }1 O6 p# v) w (progn 5 H) Y: y; c6 {' [" m7 N
(alert "你的程序未注册"), `/ O5 H; X3 [8 r9 d+ Z; J
)! Q; M, ]9 T) W
)/ `, [3 B9 D0 {
(princ) j7 F1 M) @. a8 {, D
)5 Y+ w1 q L3 y) [4 `
* c" N! U3 W1 K' q: M# {(defun three()' o/ d/ O' J. G) r* t
(setq ggg (vl-registry-read "HKEY_LOCAL_MACHINE\\Software\\mysoft\\mysoftgh" "mysoft1"));;假设读取此注册值
8 D$ J$ `1 | {4 n)
& f6 A9 |7 ], e0 \/ N8 L6 C# X
7 g. Z6 f4 L7 a3 L) Y% P( n" C- A大概意思应该是这样，可能会遇到数据类型的转换问题，你测试一下，我没有测试过！ |
|
发表于 2007-7-24 20:44:31