精易模块中【程序_禁止重复运行】更改建议

LZ龙豪

程序_禁止重复运行()这个命令在关闭到托盘以后，获取不到句柄，自己尝试了一下，在原来的程序_禁止重复运行()代码中，不使用应用取句柄这种获取方式,而是判断上次正常运行后是否配置中有句柄配置，直接显示出,这个是我自己写的例子，希望能改进把配置在内存中或者哪里最好，配置文件写出读取觉得有点麻烦+.+模块代码↓

  

子程序名	返回值类型	公开	备 注
程序_禁止重复运行_使用			禁止当前程序多开运行,如果使用托盘且状态栏显示为假,请使用程序_禁止重复运行_配置()在本子程序后
参数名	类 型	参考	可空	数组	备 注
标识文本	文本型				尽量输复杂一点的文本！反斜杠字符除外
是否弹出信息框提示	逻辑型				默认为假,不弹出提示;
消息框提示文本	文本型				第二个参数设置为假,该参数则无效
消息框提示图标	整数型				默认为信息图标，如：#信息图标
是否前端显示程序	逻辑型				如果已重复运行,是否将程序在前端显示
挂接事件	子程序指针				本参数不为空时优先执行

变量名	类 型	静态	数组	备 注
局_句柄	整数型
hEvent	整数型

如果真 (标识文本 ＝ “”)
标识文本 ＝ 校验_取md5 (到字节集 (“你懒得输入，我就写死，略略”))  ' 标识文本，如果有重复的，就不能打开事件，实现禁止
hEvent ＝ OpenEventA ( #EVENT_ALL_ACCESS, 假, 标识文本)
如果真 (hEvent ≠ #NULL )
如果真 (是否为空 (挂接事件) ＝ 假)
调用子程序_ (到整数 (挂接事件), , , , , , , , , , , , , , , )
如果真 (是否弹出信息框提示)
如果真 (是否为空 (消息框提示文本))
消息框提示文本 ＝ “对不起,该进程已打开!”
信息框 (消息框提示文本, 消息框提示图标, “友情提醒:”, )
如果真 (是否前端显示程序)
如果 (程序_禁止重复运行_读取 () ≠ 0)
局_句柄 ＝ 程序_禁止重复运行_读取 ()
局_句柄 ＝ 进程_名取句柄 (取执行文件名 ())

如果真 (IsWindowVisible (局_句柄) ＝ 假)
窗口_强制显示 (局_句柄, 假)
如果真 (窗口_是否最小化 (局_句柄))
窗口_还原 (局_句柄)
窗口_激活 (局_句柄)
结束 ()
CreateEvent ( #NULL, 假, 假, 标识文本)

子程序名	返回值类型	公开	备 注
程序_禁止重复运行_配置
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型

写配置项 (取运行目录 () ＋ “\config.ini”, “防止多开”, “上次运行的句柄”, 到文本 (窗口句柄))

子程序名	返回值类型	公开	备 注
程序_禁止重复运行_读取	整数型

返回 (到整数 (读配置项 (取运行目录 () ＋ “\config.ini”, “防止多开”, “上次运行的句柄”, )))

.版本 2<br /> <br /> .子程序 程序_禁止重复运行_使用, , 公开, 禁止当前程序多开运行,如果使用托盘且状态栏显示为假,请使用程序_禁止重复运行_配置()在本子程序后<br /> .参数 标识文本, 文本型, 可空, 尽量输复杂一点的文本！反斜杠字符除外<br /> .参数 是否弹出信息框提示, 逻辑型, 可空, 默认为假,不弹出提示;<br /> .参数 消息框提示文本, 文本型, 可空, 第二个参数设置为假,该参数则无效<br /> .参数 消息框提示图标, 整数型, 可空, 默认为信息图标，如：#信息图标<br /> .参数 是否前端显示程序, 逻辑型, 可空, 如果已重复运行,是否将程序在前端显示<br /> .参数 挂接事件, 子程序指针, 可空, 本参数不为空时优先执行<br /> .局部变量 局_句柄, 整数型<br /> .局部变量 hEvent, 整数型<br /> <br /> .如果真 (标识文本 ＝ “”)<br />     标识文本 ＝ 校验_取md5 (到字节集 (“你懒得输入，我就写死，略略”))  ' 标识文本，如果有重复的，就不能打开事件，实现禁止<br /> .如果真结束<br /> hEvent ＝ OpenEventA (#EVENT_ALL_ACCESS, 假, 标识文本)<br /> .如果真 (hEvent ≠ #NULL)<br />     .如果真 (是否为空 (挂接事件) ＝ 假)<br />         调用子程序_ (到整数 (挂接事件), , , , , , , , , , , , , , , )<br />     .如果真结束<br />     .如果真 (是否弹出信息框提示)<br />         .如果真 (是否为空 (消息框提示文本))<br />             消息框提示文本 ＝ “对不起,该进程已打开!”<br />         .如果真结束<br />         信息框 (消息框提示文本, 消息框提示图标, “友情提醒:”, )<br />     .如果真结束<br />     .如果真 (是否前端显示程序)<br />         .如果 (程序_禁止重复运行_读取 () ≠ 0)<br />             局_句柄 ＝ 程序_禁止重复运行_读取 ()<br />         .否则<br />             局_句柄 ＝ 进程_名取句柄 (取执行文件名 ())<br />         .如果结束<br /> <br />         .如果真 (IsWindowVisible (局_句柄) ＝ 假)<br />             窗口_强制显示 (局_句柄, 假)<br />         .如果真结束<br />         .如果真 (窗口_是否最小化 (局_句柄))<br />             窗口_还原 (局_句柄)<br />         .如果真结束<br />         窗口_激活 (局_句柄)<br />     .如果真结束<br />     结束 ()<br /> .如果真结束<br /> CreateEvent (#NULL, 假, 假, 标识文本)<br /> <br /> .子程序 程序_禁止重复运行_配置, , 公开<br /> .参数 窗口句柄, 整数型<br /> <br /> 写配置项 (取运行目录 () ＋ “\config.ini”, “防止多开”, “上次运行的句柄”, 到文本 (窗口句柄))<br /> <br /> .子程序 程序_禁止重复运行_读取, 整数型<br /> <br /> 返回 (到整数 (读配置项 (取运行目录 () ＋ “\config.ini”, “防止多开”, “上次运行的句柄”, )))

使用例子↓

  

程序_禁止重复运行_使用 (“禁止重复运行”, 假, , , 真)
程序_禁止重复运行_配置 (_启动窗口.取窗口句柄 ())

.版本 2<br /> <br /> 程序_禁止重复运行_使用 (“禁止重复运行”, 假, , , 真)<br /> 程序_禁止重复运行_配置 (_启动窗口.取窗口句柄 ())

五花牛

来学习一下！

lyf910

学习学习

kpdm9z

为什么搞这么复杂 呢，直接注册一个互斥量不行吗。

北城美男子

凌哥 发表于 2023-5-8 23:04
花里胡哨
[e=1].版本 2

L_校验_取md5_文本这个是什么模块

凌哥

花里胡哨

  

子程序名	返回值类型	公开	备 注
L_程序_禁止重复运行	逻辑型		程序已运行返回真 未运行返回假；参数3:[是否结束]为真则直接结束当前程序
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型				重复运行后需要激活的窗口句柄，如：窗口1.取窗口句柄 ()；留空则不激活
是否结束	逻辑型				检测到重复运行后是否结束当前程序，默认为真
唯一标识	文本型				用作识别重复运行的唯一标示，默认为当前文件路径(内部自动转换成MD5)
全局有效	逻辑型				默认为真，在整个操作系统环境中生效(可以跨用户账户, 支持与系统服务交互)

变量名	类 型	静态	数组	备 注
局_SECURITY_DESCRIPTOR	整数型
局_SECURITY_ATTRIBUTES	整数型
局_标识	文本型
局_文件对象句柄	整数型
局_内存地址	整数型
局_窗口句柄	整数型

如果 (唯一标识 ＝ “”)
局_标识 ＝ L_校验_取md5_文本 (L_程序_取自文件路径 (), , , 真)
局_标识 ＝ L_校验_取md5_文本 (唯一标识, , , 真)
如果真 (是否为空 (全局有效))
全局有效 ＝ 真
如果真 (全局有效 ＝ 真)
局_标识 ＝ “Global\” ＋ 局_标识

局_文件对象句柄 ＝ L_内存文件映射_打开 (局_标识)  ' 打开文件映射对象
如果真 (局_文件对象句柄 ≠ 0)
局_内存地址 ＝ L_内存文件映射_映射到内存 (局_文件对象句柄, 0, 0, )  ' 将文件映射对象映射到本进程内存空间，返回指针
如果真 (局_内存地址 ≠ 0)
局_窗口句柄 ＝ L_指针_到整数型 (局_内存地址)
L_内存文件映射_解除映射 (局_内存地址)
如果真 (局_窗口句柄 ≠ 0)
如果真 (L_窗口_句柄是否有效 (局_窗口句柄))
L_窗口_激活 (局_窗口句柄)



如果真 (是否结束 ＝ 真 或 是否为空 (是否结束))
L_进程_结束 (, , , )
返回 (真)

如果真 (全局有效 ＝ 真)
局_SECURITY_DESCRIPTOR ＝ L_内存分配_申请内存 (24, )
L_InitializeSecurityDescriptor (局_SECURITY_DESCRIPTOR, 1)
L_SetSecurityDescriptorDacl (局_SECURITY_DESCRIPTOR, 真, 0, 假)
局_SECURITY_ATTRIBUTES ＝ L_内存分配_申请内存 (12, )
L_指针_写整数型 (局_SECURITY_ATTRIBUTES, 12)
L_指针_写整数型1 (局_SECURITY_ATTRIBUTES, 4, 局_SECURITY_DESCRIPTOR)
L_指针_写整数型1 (局_SECURITY_ATTRIBUTES, 8, 1)

局_文件对象句柄 ＝ L_内存文件映射_创建自内存 (局_标识, 4, 局_SECURITY_ATTRIBUTES)  ' 创建4字节的内存文件映射对象
如果真 (局_文件对象句柄 ≠ 0)
局_内存地址 ＝ L_内存文件映射_映射到内存 (局_文件对象句柄, 0, 0, )  ' 将文件映射对象映射到本进程内存空间，返回指针
如果真 (局_内存地址 ≠ 0)
L_指针_写整数型 (局_内存地址, 窗口句柄)
L_内存文件映射_解除映射 (局_内存地址)

如果真 (全局有效 ＝ 真)
L_内存分配_释放内存 (局_SECURITY_ATTRIBUTES)
L_内存分配_释放内存 (局_SECURITY_DESCRIPTOR)
返回 (假)

.版本 2<br /> <br /> .子程序 L_程序_禁止重复运行, 逻辑型, 公开, 程序已运行返回真 未运行返回假；参数3:[是否结束]为真则直接结束当前程序<br /> .参数 窗口句柄, 整数型, 可空, 重复运行后需要激活的窗口句柄，如：窗口1.取窗口句柄 ()；留空则不激活<br /> .参数 是否结束, 逻辑型, 可空, 检测到重复运行后是否结束当前程序，默认为真<br /> .参数 唯一标识, 文本型, 可空, 用作识别重复运行的唯一标示，默认为当前文件路径(内部自动转换成MD5)<br /> .参数 全局有效, 逻辑型, 可空, 默认为真，在整个操作系统环境中生效(可以跨用户账户, 支持与系统服务交互)<br /> .局部变量 局_SECURITY_DESCRIPTOR, 整数型<br /> .局部变量 局_SECURITY_ATTRIBUTES, 整数型<br /> .局部变量 局_标识, 文本型<br /> .局部变量 局_文件对象句柄, 整数型<br /> .局部变量 局_内存地址, 整数型<br /> .局部变量 局_窗口句柄, 整数型<br /> <br /> .如果 (唯一标识 ＝ “”)<br />     局_标识 ＝ L_校验_取md5_文本 (L_程序_取自文件路径 (), , , 真)<br /> .否则<br />     局_标识 ＝ L_校验_取md5_文本 (唯一标识, , , 真)<br /> .如果结束<br /> .如果真 (是否为空 (全局有效))<br />     全局有效 ＝ 真<br /> .如果真结束<br /> .如果真 (全局有效 ＝ 真)<br />     局_标识 ＝ “Global\” ＋ 局_标识<br /> .如果真结束<br /> <br /> 局_文件对象句柄 ＝ L_内存文件映射_打开 (局_标识)  ' 打开文件映射对象<br /> .如果真 (局_文件对象句柄 ≠ 0)<br /> <br />     局_内存地址 ＝ L_内存文件映射_映射到内存 (局_文件对象句柄, 0, 0, )  ' 将文件映射对象映射到本进程内存空间，返回指针<br />     .如果真 (局_内存地址 ≠ 0)<br />         局_窗口句柄 ＝ L_指针_到整数型 (局_内存地址)<br />         L_内存文件映射_解除映射 (局_内存地址)<br /> <br />         .如果真 (局_窗口句柄 ≠ 0)<br />             .如果真 (L_窗口_句柄是否有效 (局_窗口句柄))<br />                 L_窗口_激活 (局_窗口句柄)<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br /> <br />     .如果真 (是否结束 ＝ 真 或 是否为空 (是否结束))<br />         L_进程_结束 (, , , )<br />     .如果真结束<br />     返回 (真)<br /> .如果真结束<br /> <br /> .如果真 (全局有效 ＝ 真)<br />     局_SECURITY_DESCRIPTOR ＝ L_内存分配_申请内存 (24, )<br />     L_InitializeSecurityDescriptor (局_SECURITY_DESCRIPTOR, 1)<br />     L_SetSecurityDescriptorDacl (局_SECURITY_DESCRIPTOR, 真, 0, 假)<br /> <br />     局_SECURITY_ATTRIBUTES ＝ L_内存分配_申请内存 (12, )<br />     L_指针_写整数型 (局_SECURITY_ATTRIBUTES, 12)<br />     L_指针_写整数型1 (局_SECURITY_ATTRIBUTES, 4, 局_SECURITY_DESCRIPTOR)<br />     L_指针_写整数型1 (局_SECURITY_ATTRIBUTES, 8, 1)<br /> .如果真结束<br /> <br /> 局_文件对象句柄 ＝ L_内存文件映射_创建自内存 (局_标识, 4, 局_SECURITY_ATTRIBUTES)  ' 创建4字节的内存文件映射对象<br /> .如果真 (局_文件对象句柄 ≠ 0)<br />     局_内存地址 ＝ L_内存文件映射_映射到内存 (局_文件对象句柄, 0, 0, )  ' 将文件映射对象映射到本进程内存空间，返回指针<br />     .如果真 (局_内存地址 ≠ 0)<br />         L_指针_写整数型 (局_内存地址, 窗口句柄)<br />         L_内存文件映射_解除映射 (局_内存地址)<br />     .如果真结束<br /> <br /> .如果真结束<br /> .如果真 (全局有效 ＝ 真)<br />     L_内存分配_释放内存 (局_SECURITY_ATTRIBUTES)<br />     L_内存分配_释放内存 (局_SECURITY_DESCRIPTOR)<br /> .如果真结束<br /> 返回 (假)

a3960382663

.版本 2

.数据类型 结构
    .成员 成员_1, 整数型
    .成员 成员_2, 整数型
    .成员 成员_3, 整数型
.版本 2

.子程序 禁止双开, , 公开, 在启动窗口创建完毕后调用此命令
.参数 标志文本, 文本型, , 如果有多个程序用到禁止重复运行功能,建意给每个程序定个不同的标志.任意文本
.局部变量 变量_1, 整数型
.局部变量 变量_2, 结构


变量_1 ＝ CreateMutexA (变量_2, 真, 标志文本)
.如果真 (WaitForSingleObject (变量_1, 100) ＝ 258)
    ReleaseMutex (变量_1)
    CloseHandle (变量_1)
    信息框 (“ 你已经开了一个”, 0, , )
    结束 ()
.如果真结束

LZ龙豪

看起来就厉害 发表于 2023-5-1 09:21
刚好 我也尝试l了一下！可以获取到

我这边是状态栏不显示,窗口可视为假,系统win10家庭版64位,精易编程助手也找不到窗口句柄,适用于找不到的系统吧。应该是个BUG，哈哈

LZ龙豪

a3960382663 发表于 2023-5-1 09:47
可以获取到

我这边是状态栏不显示,窗口可视为假,系统win10家庭版64位,精易编程助手也找不到窗口句柄,适用于找不到的系统吧。应该是个BUG，哈哈

805400753

支持开源