禁止重复运行怎么呼叫出隐藏在托盘的程序

ytaini5210

  

程序_禁止重复运行 (“96096”, 真, “程序已运行，不要重复打开。”, , 真, )

程序_禁止重复运行 (“96096”, 真, “程序已运行，不要重复打开。”, , 真, )

请问这个禁止重复运行，如何把隐藏在托盘的程序显示出来呢？
现在只能把没隐藏的，在最上方显示出来。

ASSHOLE

example - 3.e (958.26 KB, 下载次数: 16)

2024-3-22 01:04 上传

点击文件名下载附件

1752328925

窗口的位置改一下 好像是3吧，你自己看下

ytaini5210

1752328925 发表于 2024-3-22 00:27
窗口的位置改一下 好像是3吧，你自己看下

不行哦。

笨来无一悟

用进程通讯 在结束的上面 给原来的窗口发一个信息就可以了 要把模块里面的这个命令抠出来改一下 直接引用精易模块实现不了

ASSHOLE

  

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

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

如果真 (标识文本 ＝ “”)
标识文本 ＝ 校验_取md5 (到字节集 (“你懒得输入，我就写死，略略”), , )  ' 标识文本，如果有重复的，就不能打开事件，实现禁止
hEvent ＝ OpenEventA (2031619, 假, 标识文本)  ' #EVENT_ALL_ACCESS
如果真 (hEvent ≠ #NULL )
如果真 (是否为空 (挂接事件) ＝ 假)
调用子程序_ (到整数 (挂接事件), , , , , , , , , , , , , , , )
如果真 (是否弹出信息框提示)
如果真 (是否为空 (消息框提示文本))
消息框提示文本 ＝ “对不起,该进程已打开!”
信息框 (消息框提示文本, 消息框提示图标, “友情提醒:”)
如果真 (是否前端显示程序)
进程_取同名ID (取执行文件名 (), pids, 真)
pid_cur ＝ 进程_取自进程ID ()
计次循环首 (取数组成员数 (pids), i)
如果真 (pids [i] ≠ pid_cur)
局_句柄 ＝ 进程_ID取窗口句柄EX (pids [i])
如果真 (局_句柄 ≠ 0)
如果真 (IsWindowVisible (局_句柄) ＝ 假)
窗口_强制显示 (局_句柄, 假)
如果真 (窗口_是否最小化 (局_句柄))
窗口_还原 (局_句柄)
窗口_激活 (局_句柄)
跳出循环 ()


计次循环尾 ()
结束 ()
CreateEvent ( #NULL, 假, 假, 标识文本)

.版本 2<br /> <br /> .子程序 程序_禁止重复运行_EX, , 公开, 禁止当前程序多开运行<br /> .参数 标识文本, 文本型, 可空, 尽量输复杂一点的文本！反斜杠字符除外<br /> .参数 是否弹出信息框提示, 逻辑型, 可空, 默认为假,不弹出提示;<br /> .参数 消息框提示文本, 文本型, 可空, 第二个参数设置为假,该参数则无效<br /> .参数 消息框提示图标, 整数型, 可空, 默认为信息图标，如：#信息图标<br /> .参数 是否前端显示程序, 逻辑型, 可空, 如果已重复运行,是否将程序在前端显示<br /> .参数 挂接事件, 子程序指针, 可空, 本参数不为空时优先执行<br /> .局部变量 局_句柄, 整数型<br /> .局部变量 hEvent, 整数型<br /> .局部变量 pids, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 pid_cur, 整数型<br /> <br /> .如果真 (标识文本 ＝ “”)<br />     标识文本 ＝ 校验_取md5 (到字节集 (“你懒得输入，我就写死，略略”), , )  ' 标识文本，如果有重复的，就不能打开事件，实现禁止<br /> .如果真结束<br /> hEvent ＝ OpenEventA (2031619, 假, 标识文本)  ' #EVENT_ALL_ACCESS<br /> .如果真 (hEvent ≠ #NULL)<br />     .如果真 (是否为空 (挂接事件) ＝ 假)<br />         调用子程序_ (到整数 (挂接事件), , , , , , , , , , , , , , , )<br />     .如果真结束<br />     .如果真 (是否弹出信息框提示)<br />         .如果真 (是否为空 (消息框提示文本))<br />             消息框提示文本 ＝ “对不起,该进程已打开!”<br />         .如果真结束<br />         信息框 (消息框提示文本, 消息框提示图标, “友情提醒:”)<br />     .如果真结束<br />     .如果真 (是否前端显示程序)<br />         进程_取同名ID (取执行文件名 (), pids, 真)<br />         pid_cur ＝ 进程_取自进程ID ()<br />         .计次循环首 (取数组成员数 (pids), i)<br />             .如果真 (pids <i> ≠ pid_cur)<br />                 局_句柄 ＝ 进程_ID取窗口句柄EX (pids <i>)<br />                 .如果真 (局_句柄 ≠ 0)<br />                     .如果真 (IsWindowVisible (局_句柄) ＝ 假)<br />                         窗口_强制显示 (局_句柄, 假)<br />                     .如果真结束<br />                     .如果真 (窗口_是否最小化 (局_句柄))<br />                         窗口_还原 (局_句柄)<br />                     .如果真结束<br />                     窗口_激活 (局_句柄)<br />                     跳出循环 ()<br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br />         .计次循环尾 ()<br /> <br />     .如果真结束<br />     结束 ()<br /> .如果真结束<br /> CreateEvent (#NULL, 假, 假, 标识文本)

ytaini5210

ASSHOLE 发表于 2024-3-22 01:04

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

程序_禁止重复运行_EX ()

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> 程序_禁止重复运行_EX ()

我把你这个子程序放在启动窗口这里，打开软件就运行这个子程序对吧？
然后把下面的子程序复制到最下方。

虽然无法重复运行了，但是还是无法唤出托盘的程序。

ASSHOLE

ytaini5210 发表于 2024-3-22 01:38
.版本 2

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

用我这个 程序_禁止重复运行_EX 代替你的原代码中的 程序_禁止重复运行

ytaini5210

ASSHOLE 发表于 2024-3-22 01:41
用我这个 程序_禁止重复运行_EX 代替你的原代码中的 程序_禁止重复运行

已经替换掉了。。但是还是无法唤起托盘的。

ytaini5210

ASSHOLE 发表于 2024-3-22 01:41
用我这个 程序_禁止重复运行_EX 代替你的原代码中的 程序_禁止重复运行