易语言实现软件窗口多开源码

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 文件路径, 文本型
.局部变量 打开数量, 整数型
.局部变量 i, 整数型

' 获取文件路径和打开数量
文件路径 ＝ 编辑框1.内容
打开数量 ＝ 到整数 (编辑框2.内容)

' 校验输入合法性
.如果真 (打开数量 ＜ 1)
    信息框 (“请输入大于0的数量”, 0, “提示”, )
    返回 ()
.如果真结束

.如果真 (文件是否存在 (文件路径) ＝ 假)
    信息框 (“文件路径不存在”, 0, “错误”, )
    返回 ()
.如果真结束

' 循环打开指定数量的窗口（无延迟即实现同时打开）
.计次循环首 (打开数量, i)
    ' 调用系统接口打开文件，使用默认程序
    ShellExecuteA (0, “open”, 文件路径, “”, “”, 1)
.计次循环尾 ()