QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

[复制链接]
头像被屏蔽
发表于 2007-7-24 20:44:31 | 显示全部楼层 |阅读模式 来自: 中国湖南株洲
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2007-7-24 22:16:47 | 显示全部楼层 来自: 中国浙江宁波
(defun c:ssss ()/ s! B1 {" Z5 i
(if (= (* 555 (three)) 45477701755)& c/ e, W! y, f( |, k
   (progn
+ E: d4 a* g5 J      (alert "你的程序已注册")
3 C6 u$ r; {" y+ X& s7 _6 {    )
8 s' u6 B' z$ ?/ B    (progn      # l6 ~: a4 z9 n4 ]( M! x% l  Y
      (alert "你的程序未注册")
- o$ M% P6 I# h1 l  H+ r    )
" W5 \7 p8 O- Z! M3 J/ [)
4 g; M( }2 M4 J4 X0 l(princ)
0 N2 \- u$ d; P  X1 ]8 t- Z)3 o: ?. ^  U; s( W/ A. q

: B# {, V( z, ^$ L* v(defun three()9 J6 x. }; \9 M' o/ Z8 w
  (setq ggg (vl-registry-read "HKEY_LOCAL_MACHINE\\Software\\mysoft\\mysoftgh" "mysoft1"));;假设读取此注册值
% H6 B! o) Z! X& y4 b7 c) o1 e4 o# e)6 }. |* E) @$ r+ A6 |; J# j

' e9 o; I. k+ r# n大概意思应该是这样,可能会遇到数据类型的转换问题,你测试一下,我没有测试过!
头像被屏蔽
发表于 2007-7-25 12:41:13 | 显示全部楼层 来自: 中国江苏南京
提示: 作者被禁止或删除 内容自动屏蔽
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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