|
发表于 2024-10-31 13:44:45
|
显示全部楼层
浙江省杭州市
.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 jcid, 整数型
.子程序 _按钮1_被单击
.局部变量 临时文本, 文本型
编辑框1.内容 = “”
临时文本 = 调用dll_动态 (取运行目录 () + “\dll文件_1.dll”, “外部dll程序”, “”)
.如果 (临时文本 = “”)
编辑框1.内容 = “”
.否则
编辑框1.内容 = 临时文本
.如果结束
.子程序 _按钮2_被单击
' 调用dll_动态 (取运行目录 () + “\dll文件_1.dll”, “外部dll程序”, “”)
销毁 ()
.子程序 _按钮3_被单击
.局部变量 临时文本, 文本型
编辑框2.内容 = “”
临时文本 = 调用dll_动态 (取运行目录 () + “\dll文件_2.dll”, “外部dll程序”, “”)
.如果 (临时文本 = “”)
编辑框2.内容 = “”
.否则
编辑框2.内容 = 临时文本
.如果结束
.子程序 _按钮4_被单击
.局部变量 临时文本, 文本型
编辑框3.内容 = “”
临时文本 = 调用dll_动态 (取运行目录 () + “\dll文件_3.dll”, “外部dll程序”, “”)
.如果 (临时文本 = “”)
编辑框3.内容 = “”
.否则
编辑框3.内容 = 临时文本
.如果结束
.子程序 __启动窗口_将被销毁
进程_结束 (jcid)
.子程序 __启动窗口_创建完毕
jcid = 进程_取自进程ID ()
调试输出 (jcid)
|
|