展开全部
防止多开设置如下:
1、添加dll命令,有关判断事件对象的。
.DLL命令 创建事件对象, 整数型, "kernel32", "CreateEventA"
.参数 安全特性, 整数型
.参数 重设事件, 逻辑型
.参数 触发状态, 逻辑型
.参数 对象名字, 文本型
.DLL命令 打开事件对象, 整数型, "kernel32", "OpenEventA"
.参数 访问方法, 整数型
.参数 句柄继承, 逻辑型
.参数 对象名字, 文本型
.DLL命令 关闭事件对象, 整数型, "kernel32", "CloseHandle"
.参数 对象句柄, 整数型
2、写个子程序:
.子程序 程序是否已运行, 逻辑型, 公开, 真表示已经运行,假表示还未运行
.参数 标志文本, 文本型, , 可以是任何文本,但是最好要长一点以保证和系统中已有其他事件对象的名称不相冲突。
.如果真 (打开事件对象 (2031619, 假, 标志文本) ≠ 0)
返回 (真)
.如果真结束
事件对象句柄 = 创建事件对象 (0, 假, 假, 标志文本)
返回 (假)
.子程序 关闭事件对象, , 公开, 窗口销毁时调用
关闭事件对象 (事件对象句柄)
3、添加一个变量,程序集的。
.程序集变量 事件对象句柄, 整数型
4、使用时在窗口的“创建完毕”与“将被销毁”事件写入代码:.子程序 __启动窗口_创建完毕
.如果真 (程序是否已运行 (“禁止多次运行”) = 真)
信息框 (“程序已经运行!”, 0, )
销毁 ()
.如果真结束
.子程序 __启动窗口_将被销毁
关闭事件对象 ()
1、添加dll命令,有关判断事件对象的。
.DLL命令 创建事件对象, 整数型, "kernel32", "CreateEventA"
.参数 安全特性, 整数型
.参数 重设事件, 逻辑型
.参数 触发状态, 逻辑型
.参数 对象名字, 文本型
.DLL命令 打开事件对象, 整数型, "kernel32", "OpenEventA"
.参数 访问方法, 整数型
.参数 句柄继承, 逻辑型
.参数 对象名字, 文本型
.DLL命令 关闭事件对象, 整数型, "kernel32", "CloseHandle"
.参数 对象句柄, 整数型
2、写个子程序:
.子程序 程序是否已运行, 逻辑型, 公开, 真表示已经运行,假表示还未运行
.参数 标志文本, 文本型, , 可以是任何文本,但是最好要长一点以保证和系统中已有其他事件对象的名称不相冲突。
.如果真 (打开事件对象 (2031619, 假, 标志文本) ≠ 0)
返回 (真)
.如果真结束
事件对象句柄 = 创建事件对象 (0, 假, 假, 标志文本)
返回 (假)
.子程序 关闭事件对象, , 公开, 窗口销毁时调用
关闭事件对象 (事件对象句柄)
3、添加一个变量,程序集的。
.程序集变量 事件对象句柄, 整数型
4、使用时在窗口的“创建完毕”与“将被销毁”事件写入代码:.子程序 __启动窗口_创建完毕
.如果真 (程序是否已运行 (“禁止多次运行”) = 真)
信息框 (“程序已经运行!”, 0, )
销毁 ()
.如果真结束
.子程序 __启动窗口_将被销毁
关闭事件对象 ()
展开全部
条件:准备一个时钟组件,周期设置为600
.版本 2
.支持库 eAPI
.程序集 窗口程序集1
.程序集变量 进程数量, 整数型
.子程序 _时钟1_周期事件
.局部变量 进程列表, 进程信息, , "0"
.局部变量 ci, 整数型
.局部变量 自进程名, 文本型
时钟1.时钟周期 = 0
进程列表 = 取系统进程列表 ()
自进程名 = 取执行文件名 ()
.计次循环首 (取数组成员数 (进程列表), ci)
.判断开始 (进程列表 [ci].进程名称 = 自进程名)
进程数量 = 进程数量 + 1
.判断开始 (进程数量 > 2)
信息框 (“不允许多开!”, 0, )
结束 ()
.默认
.判断结束
.默认
.判断结束
.计次循环尾 ()
时钟1.时钟周期 = 600
.版本 2
.支持库 eAPI
.程序集 窗口程序集1
.程序集变量 进程数量, 整数型
.子程序 _时钟1_周期事件
.局部变量 进程列表, 进程信息, , "0"
.局部变量 ci, 整数型
.局部变量 自进程名, 文本型
时钟1.时钟周期 = 0
进程列表 = 取系统进程列表 ()
自进程名 = 取执行文件名 ()
.计次循环首 (取数组成员数 (进程列表), ci)
.判断开始 (进程列表 [ci].进程名称 = 自进程名)
进程数量 = 进程数量 + 1
.判断开始 (进程数量 > 2)
信息框 (“不允许多开!”, 0, )
结束 ()
.默认
.判断结束
.默认
.判断结束
.计次循环尾 ()
时钟1.时钟周期 = 600
追问
我说了 不要弹信息框的那种 我会 我是要把已经启动的显示在最前 懂???
我说了 不要弹信息框的那种 我会 我是要把已经启动的显示在最前 懂???
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
如果(进程是否存在(“填写你的进程名”)=真)
结束()
返回()
纯手打!!!
结束()
返回()
纯手打!!!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
如果需要留个邮箱
更多追问追答
追问
xiexin99
@vip.qq.com
追答
接收一下
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询