QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 2109|回复: 2
收起左侧

[已解决] lisp写注册程序求助

[复制链接]
头像被屏蔽
发表于 2007-7-24 20:44:31 | 显示全部楼层 |阅读模式 来自: 中国湖南株洲
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2007-7-24 22:16:47 | 显示全部楼层 来自: 中国浙江宁波
(defun c:ssss ()
4 I$ v0 |% s! S7 a# @(if (= (* 555 (three)) 45477701755)
- N9 w9 U7 Y3 b$ b# g0 d9 q3 T   (progn: ]: `7 E6 [8 a1 f0 @
      (alert "你的程序已注册")# H, |# Z, H7 C- W2 Z8 ]& Z$ G0 i# }
    )
% u) E/ V8 w0 y8 Z8 t6 R. E) d2 x    (progn      
# U; {0 ^7 S2 d      (alert "你的程序未注册")9 a, Y- Q+ ~; b5 J  Y
    )' i& I" N( U7 U' x. _. m
)
% u$ c( j# E) h(princ)
2 o' g% r7 v  m% d# x; s2 p)1 X/ c/ a1 w8 @% E

% H: {, E5 V6 V5 J; ]- I(defun three()
. ^9 ^( }& g! }, F/ L* h  (setq ggg (vl-registry-read "HKEY_LOCAL_MACHINE\\Software\\mysoft\\mysoftgh" "mysoft1"));;假设读取此注册值; a& V2 H8 X2 J! B* M' r6 c. |
)% E% O$ F: O" [! J
$ _5 l3 {& |! K0 e3 c4 n1 L/ E/ M  ^( w  A
大概意思应该是这样,可能会遇到数据类型的转换问题,你测试一下,我没有测试过!
头像被屏蔽
发表于 2007-7-25 12:41:13 | 显示全部楼层 来自: 中国江苏南京
提示: 作者被禁止或删除 内容自动屏蔽
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表