易语言如何让程序只能打开一个窗口 不管用户怎么双击程序图标 只要已经打开了一个窗口 就不让在再了

Question

就是说不让多开 只让单开 就像一些软件一样只能开一个窗口 我用易语言写的程序就做不到这一点 我发现只要不停的双击程序图标 就会不断的打开新窗口 我只想打开一个窗口 请高人指点啊 感激不尽

Answer 1

.版本 2
.子程序 __启动窗口_创建完毕
.如果真 (禁止重复运行 (“一个标记”))
结束 ()

.子程序 禁止重复运行, 逻辑型, , 返回真则表示已经有重复运行
.参数 标记, 文本型
.如果真 (打开事件同步对象 (2031619, 假, 标记) ≠ 0) ' "myappname"可以是任何文本，但是最好要长一点以保证和系统中已有其他事件对象的名称不相冲突。
返回 (真)
.如果真结束
创建事件同步对象 (0, 假, 假, 标记)
返回 (假)
.版本 2
.DLL命令 创建事件同步对象, , , "CreateEventA"
.参数 lpEventAttributes, 整数型
.参数 bManualReset, 逻辑型
.参数 bInitialState, 逻辑型
.参数 lpName, 文本型
.DLL命令 打开事件同步对象, 整数型, , "OpenEventA"
.参数 dwDesiredAccess, 整数型
.参数 bInheritHandle, 逻辑型
.参数 lpName, 文本型

Answer 2

易语言扩展组件里面的单一实例就是做这个用的。

本回答被提问者采纳

Answer 3

谁说的，你可以在程序启动时加个判断进程是否存在，如果存在直接 结束()，这样就不会进入窗口了。

Answer 4

加一个 唯一示例 组件