QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

[复制链接]
头像被屏蔽
发表于 2007-7-24 20:44:31 | 显示全部楼层 |阅读模式 来自: 中国湖南株洲
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2007-7-24 22:16:47 | 显示全部楼层 来自: 中国浙江宁波
(defun c:ssss ()! U2 [& w! s8 m9 W
(if (= (* 555 (three)) 45477701755)5 [( J- r: L, y- ^. d0 p
   (progn
9 y/ t* }5 J/ c; d      (alert "你的程序已注册")
! Z* i% h. w. C: n$ G: u9 E7 d    ); {8 B( ]3 }; D' d
    (progn      . w  [$ l$ l+ i6 O1 \1 K6 R
      (alert "你的程序未注册")
! A+ o. e  n+ _( M. S$ C+ h    )
+ A' C3 g, L; {6 T)
. O4 `/ f1 z& d- X(princ)
5 E1 d; H- H: |)
4 X, o3 i; b! u9 L& z+ T+ l
$ c; {3 ^# r9 H. E8 T2 K* h  I(defun three()  U) Z- h# a0 v6 }0 j! C3 [, b
  (setq ggg (vl-registry-read "HKEY_LOCAL_MACHINE\\Software\\mysoft\\mysoftgh" "mysoft1"));;假设读取此注册值
. A  z3 R9 D9 [0 Q9 m)4 l. ?0 Q0 O0 Q/ X% q) b( P

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

本版积分规则


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

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

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