易语言怎么避免重复运行?高手请进,菜鸟就免了。

已举报 回答
易语言怎么避免重复运行?高手请进,菜鸟就免了。
问在线客服
扫码问在线客服
  • 回答数

    6

  • 浏览数

    9,175

6个回答 默认排序
  • 默认排序
  • 按时间排序

已采纳
给你DLL会用么
------------------------
.版本 2

.DLL命令 创建事件同步对象, , , CreateEventA
.参数 lpEventAttributes, 整数型
.参数 bManualReset, 逻辑型
.参数 bInitialState, 逻辑型
.参数 lpName, 文本型

.DLL命令 打开事件同步对象, 整数型, , OpenEventA
.参数 dwDesiredAccess, 整数型
.参数 bInheritHandle, 逻辑型
.参数 lpName, 文本型
----------------------------------------------
.版本 2

.子程序 __启动窗口_创建完毕

.如果真 (打开事件同步对象 (2031619, 假, “myappname”) ≠ 0) ' myappname可以是任何文本,但是最好要长一点以保证和系统中已有其他事件对象的名称不相冲突。
信息框 (“不能重复运行本程序!”, 0, )
销毁 ()
返回 ()
.如果真结束

创建事件同步对象 (0, 假, 假, “myappname”)
取消 评论
使用单一实例
取消 评论
收回当年的话- -当时真不知道,不过也请评论的口下留情
取消 评论
判断进程是否存在。你帮程序的进程名改下就行、
判断进程是否存在、存在就提示程序已运行。未存在则运行
取消 评论
插入dll命令:
.版本 2

.DLL命令 创建事件同步对象, , , CreateEventA
.参数 lpEventAttributes, 整数型
.参数 bManualReset, 逻辑型
.参数 bInitialState, 逻辑型
.参数 lpName, 文本型

.DLL命令 打开事件同步对象, 整数型, , OpenEventA
.参数 dwDesiredAccess, 整数型
.参数 bInheritHandle, 逻辑型
.参数 lpName, 文本型
----------------------------------------------
接下来的是窗口程序集代码

.版本 2

.子程序 __启动窗口_创建完毕

.如果真 (打开事件同步对象 (2031619, 假, “myappname”) ≠ 0) ' myappname可以是任何文本,但是最好要长一点以保证和系统中已有其他事件对象的名称不相冲突。
信息框 (“不能重复运行本程序!”, 0, )
销毁 ()
返回 ()
.如果真结束

创建事件同步对象 (0, 假, 假, “myappname”)
取消 评论
易语言 有自带这个模块例程的·
取消 评论
ZOL问答 > 键鼠套装 > 其他分类 > 易语言怎么避免重复运行?高手请进,菜鸟就免了。

相关产品

举报

感谢您为社区的和谐贡献力量请选择举报类型

举报成功

经过核实后将会做出处理
感谢您为社区和谐做出贡献

扫码参与新品0元试用
晒单、顶楼豪礼等你拿

扫一扫,关注我们
提示

确定要取消此次报名,退出该活动?