程序_禁止重复运行

凌哥

更新后还是有问题啊？信息框无法提示，程序不会自动结束。呵呵哒
你们都不测试命令就直接改改发布了？

mzp87108

确实有问题,希望作者修复

go887766

确实有此问题

airen007

airen007 发表于 2016-1-22 19:52
还是不行 会不会是操作系统的缘故  测试系统 WIN10

不开信息框就没事

airen007

萧阳天 发表于 2016-1-14 22:46

还是不行 会不会是操作系统的缘故  测试系统 WIN10

airen007

确实是那样 不但不结束 而且第二次打开 CPU爆增

凌哥

萧阳天 发表于 2016-1-14 22:47
不好意思，同步盘源码同步出错导致编译旧的源码

萧阳天

不好意思，同步盘源码同步出错导致编译旧的源码

萧阳天

1. .版本 2
   
2. 
   
3. .子程序 程序_禁止重复运行, , 公开
   
4. .参数 标识文本, 文本型, 可空, 尽量输复杂一点的文本
   
5. .参数 是否弹出信息框提示, 逻辑型, 可空, 默认为假,不弹出提示;
   
6. .参数 消息框提示文本, 文本型, 可空, 第二个参数设置为假,该参数则无效
   
7. .参数 消息框提示图标, 整数型, 可空, 默认为信息图标，如：#信息图标
   
8. .参数 是否前端显示程序, 逻辑型, 可空, 如果已重复运行,是否将程序在前端显示
   
9. 
   
10. .如果真 (标识文本 ＝ “”)
    
11.     标识文本 ＝ 取运行目录 () ＋ “\” ＋ 取执行文件名 ()  ' 标识文本，如果有重复的，就不能打开事件，实现禁止
    
12.     标识文本 ＝ 子文本替换 (标识文本, “\”, “/”, , , 真)
    
13. .如果真结束
    
14. .如果真 (OpenEventA (2031619, 假, 标识文本) ≠ 0)
    
15.     .如果真 (是否弹出信息框提示)
    
16.         .如果真 (是否为空 (消息框提示文本))
    
17.             消息框提示文本 ＝ “对不起,该进程已打开!”
    
18.         .如果真结束
    
19.         信息框 (消息框提示文本, 消息框提示图标, “友情提醒:”)
    
20.     .如果真结束
    
21.     .如果真 (是否前端显示程序)
    
22.         窗口_强制显示 (进程_名取句柄 (取执行文件名 ()))
    
23.     .如果真结束
    
24.     结束 ()
    
25. .如果真结束
    
26. CreateEvent (0, 假, 假, 标识文本)
    

复制代码