不给易语言程序双开的代码？

.版本 2
.支持库 eAPI

.子程序 __启动窗口_创建完毕
.局部变量 系统进程, 进程信息, , "0"
.局部变量 程序名称, 文本型
.局部变量 计次, 整数型
.局部变量 x, 字节型

x ＝ 0
系统进程 ＝ 取系统进程列表 ()
程序名称 ＝ 取执行文件名 ()
输出调试文本 (程序名称)
.计次循环首 (取数组成员数 (系统进程), 计次)
.如果真 (程序名称 ＝ 系统进程 [计次].进程名称)
x ＝ x ＋ 1
.如果真结束

.计次循环尾 ()
.如果 (x ＞ 1) ' 程序运行后，进程数已经为1，必须大于1，才能说明有2个进程
_启动窗口.获取焦点 ()
msgbox("该程序已经运行,无法再次运行!")
结束 ()
.否则

.如果结束