按钮_启动选中.禁止 ＝ 真
计次循环首 (超级列表框1.
取表项数 (), i
)
如果真 (超级列表框1.
取当前状态图片 (i － 1
) ＝ 1
)添加运行状态 (i － 1,
“启动模拟器”)程序_延时 (10,
)编辑框_屏幕.
加入文本 (“正在启动第” ＋
到文本 (i
) ＋
“个模拟器...........” ＋
#换行符 )程序_延时 (10,
)ls.
启动模拟器 (i, ,
)程序_延时 (10,
)编辑框_屏幕.
加入文本 (“第” ＋
到文本 (i
) ＋
“个模拟器,启动完成!” ＋
#换行符 )程序_延时 (10,
)程序_延时 (2000,
)
计次循环尾 ()刷新超级列表框 ()绑定窗口 ()按钮_启动选中.禁止 ＝ 假
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 模拟器信息数组 | 模拟器信息 | | 0 |
| i | 整数型 | | |
| 列表框索引 | 整数型 | | |
超级列表框1.
全部删除 ()ls.
置模拟器目录 (“D:\ChangZhi\dnplayer2\”)ls.
取全部模拟器EX (模拟器信息数组, , ,
)计次循环首 (取数组成员数 (模拟器信息数组
), i
)如果真 (模拟器信息数组
[i
].索引 ＝ 0
)到循环尾 ()列表框索引 ＝ 超级列表框1.插入表项 (, , , , , )超级列表框1.
置标题 (列表框索引, 0,
到文本 (i － 1
))
超级列表框1.
置标题 (列表框索引, 1, 模拟器信息数组
[i
].标题
)超级列表框1.
置标题 (列表框索引, 2,
到文本 (模拟器信息数组
[i
].顶层句柄
))
超级列表框1.
置标题 (列表框索引, 3,
到文本 (模拟器信息数组
[i
].绑定句柄
))
计次循环尾 ()
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| i | 整数型 | | |
| 运行中模拟器 | 文本型 | | 0 |
| 模拟器信息数组 | 模拟器信息 | | 0 |
| reg | 整数型 | | |
计次循环首 (超级列表框1.
取表项数 (), i
)如果真 (超级列表框1.
取当前状态图片 (i － 1
) ＝ 1
且 超级列表框1.
取标题 (i － 1, 3
) ≠
“0”)大漠多线程
[i
].dm.
创建 ()程序_延时 (10,
)reg ＝ 大漠多线程
[i
].dm.
注册 ( #注册码, #附加码 )程序_延时 (10,
)判断 (reg ＝ 1
)大漠多线程
[i
].绑定窗口 ＝
到整数 (超级列表框1.
取标题 (i － 1, 3
))
程序_延时 (10,
)如果真 (大漠多线程
[i
].dm.
后台_绑定 (大漠多线程
[i
].绑定窗口,
“dx.graphic.opengl”,
“windows”,
“windows”, 0
) ≠ 0
) 大漠多线程
[i
].dm.
基本_设置全局路径 (取运行目录 () ＋
“\img”)程序_延时 (10,
)大漠多线程
[i
].dm.
文字_设置字库 (0,
取运行目录 () ＋
“\000.txt”)程序_延时 (10,
)大漠多线程
[i
].线程句柄 ＝
线程_启动 (&初始模式, i,
)程序_延时 (10,
)
信息框 (“错误信息-->代码为：” ＋
到文本 (reg
), 0, ,
)
程序_延时 (2000,
)计次循环尾 ()