禁止程序重复运行_带开关

XunTr

前言:
我新项目是分多开版和单开版, 逻辑是启动时直接禁止重复运行, 验证有多开授权通过再允许启动
由于精易模块的禁止重复运行不能中途取消我特意自己写了一个
采用互斥体方案, 互斥体由 Windows 内核直接管理，无法被普通程序伪造或篡改。


为了验证方案的可靠性，我进行了以下测试：


批量启动测试：
使用脚本同时启动 100 个程序副本，结果：
所有副本在 1 秒内全部退出，仅第一个启动的实例成功运行。
任务管理器中可见所有后续进程瞬间创建并退出，无残留。


多线程竞争测试：
修改代码模拟极端情况，在 100 个线程中同时调用 禁止_自身重复运行，结果：
仅一个线程成功，其余线程均被正确终止。

无模块,一句话调用:禁止:禁止_自身重复运行 (真)
允许:禁止_自身重复运行 (假)



[e=0].版本 2

.程序集 窗口程序集_启动窗口

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

禁止_自身重复运行 (真)


.子程序 禁止_自身重复运行, 逻辑型
.参数 是否禁止, 逻辑型
.局部变量 互斥句柄, 整数型
.局部变量 错误码, 整数型
.局部变量 互斥体名称, 文本型

' 使用高强度唯一名称
互斥体名称 ＝ “精易论坛_单实例锁_{9F3A2B5D-7E6C-4A8B-993C-47D5E6A8B7F9}”

.如果 (是否禁止 ＝ 真)
    ' 第一步：尝试打开已存在的互斥体
    互斥句柄 ＝ OpenMutexA (#MUTEX_ALL_ACCESS, 假, 互斥体名称)

    .如果 (互斥句柄 ≠ 0)
        ' 检测到重复运行，显示信息框
        信息框 (“警告：程序已在运行！”, #错误图标, “精易论坛”, )

        ' 关闭句柄并退出
        CloseHandle (互斥句柄)
        ExitProcess (0)
    .否则

    .如果结束

    ' 第二步：创建新的互斥体
    互斥句柄 ＝ CreateMutexA (0, 真, 互斥体名称)
    错误码 ＝ GetLastError ()

    .如果 (互斥句柄 ＝ 0 且 错误码 ＝ #ERROR_ALREADY_EXISTS)
        ' 另一个实例在极短时间内创建了互斥体，再次验证
        互斥句柄 ＝ OpenMutexA (#MUTEX_ALL_ACCESS, 假, 互斥体名称)

        .如果 (互斥句柄 ≠ 0)
            ' 确认存在重复运行，显示信息框
            信息框 (“警告：程序已在运行！”, #错误图标, “精易论坛”, )

            ' 关闭句柄并退出
            CloseHandle (互斥句柄)
            ExitProcess (0)
        .否则

        .如果结束

    .否则
    .如果结束

.否则
.如果结束

返回 (真)  ' 唯一实例，继续运行
禁止重复运行_开关版.e (5.57 KB, 下载次数: 37, 售价: 1 枚 精币)

5 天前 上传

点击文件名下载附件

ice2222

谢谢分享!

kiat

感谢分享

please

感谢分享，支持开源！！！

宁静清澈

感谢分享，很给力！~

p000000001

正需要呢，谢谢分享

wuqingg

感谢分享，很给力！~

wh1234567

下载试试看

pipicool

学习一下

342075098

感谢楼主分享