吾爱汇编论坛

 找回密码
 立即注册

QQ登录

绑定QQ避免忘记帐号

查看: 552|回复: 66

[源码] 预览DCL对话框的LISP程式

  [复制链接]

  离线 

升级   13.33%

zhangmaobo721 发表于 2021-11-23 12:10 | 显示全部楼层 |阅读模式


(defun C:VIEWDCL (/ DCL_FILE DCL_ID DCL_PT DD DIA_NAME PRINC)
  (if (null dcl_pt)
    (setq dcl_pt '(-1 -1))
  )
  (setq dcl_file (getfiled "打开DCL文件" "" "DCL" 2))
  (princ "DCL文件名:")
  (princ dcl_file)
  (setq dia_name (getstring "\nDialog对话框名:"))
  (if (= dia_name "")
    (exit)
  )
  (setq dcl_id (load_dialog dcl_file))
  (new_dialog dia_name dcl_id)
  (action_tile "accept" "(setq dcl_pt (done_dialog 1))")
  (action_tile "cancel" "(done_dialog 0)")
  (setq dd (start_dialog))
  (cond ((= dd 1)
(princ "\n确定<OK>!!!"))
  ((= dd 0))
  (princ "\n取消<cancel>!!!")
)
(prin1))

评分

参与人数 14HB +16 THX +6 收起 理由
agan8888 + 1
豆芽菜 + 1 + 1
pmm018 + 1
mic9 + 1 [吾爱汇编论坛52HB.COM]-感谢楼主热心分享,小小评分不成敬意!
king51999 + 1 [快捷评语]--吃水不忘打井人,给个评分懂感恩!
foreversos + 1
531814517 + 1 [通知]学破解论坛即将在近期更名为吾爱汇编论坛WWW.52HB.COM
gccc + 1 [快捷评语]--你将受到所有人的崇拜!
zer0 + 1
jhf123 + 1 [快捷评语]--你将受到所有人的崇拜!
a13767424691 + 1 [快捷评语]--2021年,我们爱0爱1
Damnie + 1 [快捷评语]--积极评分,从我做起。感谢分享!
liugu0hai + 1 + 1 吃水不忘打井人
Shark_鹏 + 6 + 1 [快捷评语]--你将受到所有人的崇拜!

查看全部评分

吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   30%

a952057298 发表于 2022-1-22 06:46 | 显示全部楼层
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   5%

饱满向项链 发表于 2022-1-22 23:08 | 显示全部楼层


感谢楼主
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   4%

NhTtVFyi 发表于 2022-1-29 06:38 | 显示全部楼层
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   42%

mSYxEdBpL 发表于 2022-1-31 21:04 | 显示全部楼层


来向大佬学习
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   50%

Naxsh 发表于 2022-1-31 21:04 | 显示全部楼层
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   81.88%

CYTNRFji381 发表于 2022-2-12 02:57 | 显示全部楼层


谢谢分享
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   42.75%

LQO92613 发表于 2022-2-14 04:09 | 显示全部楼层


大佬无敌
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   58%

SuCRI 发表于 2022-2-19 13:10 | 显示全部楼层


感谢大佬的分享
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   16%

BurnlOvKFAPD 发表于 2022-2-19 14:27 | 显示全部楼层


谢谢分享
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则 警告:本站严惩灌水回复,尊重自己从尊重他人开始!

1层
2层
3层
4层
5层
6层
7层
8层
9层
10层

免责声明

吾爱汇编论坛(www.52hb.com)所发布的破解补丁、注册机、逆向教程、逆向文章等,包含但不限于上述内容,仅限用于学习和研究目的,不得用于非法途径或商业行为。否则,一切后果请用户自行承担。本站内容源于网络,版权争议与本站无关。您必须在下载后的24个小时之内,从您的电脑中彻底删除。如果您喜欢某程序,请购买正版,支持正版,获得正版优质服务。如有侵权请邮件或微信与我们联系处理。

站长邮箱:SharkHeng@iCloud.com
站长微信:SharkHeng


QQ|RSS|手机版|小黑屋|帮助|吾爱汇编论坛 ( 京公网安备11011502005403号 , 京ICP备20003498号 )

GMT+8, 2022-5-29 17:03 , Processed in 0.601885 second(s), 74 queries .

Powered by Discuz!

吾爱汇编论坛 www.52hb.com

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