关于程序_禁止重复运行的一点建议

钥匙key

  

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

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

如果真 (标识文本 ＝ “”)
标识文本 ＝ 校验_取md5 (到字节集 (“你懒得输入，我就写死，略略”))  ' 标识文本，如果有重复的，就不能打开事件，实现禁止
hEvent ＝ OpenEventA ( #EVENT_ALL_ACCESS, 假, 标识文本)
如果真 (hEvent ≠ #NULL )
如果真 (是否弹出信息框提示)
如果真 (是否为空 (消息框提示文本))
消息框提示文本 ＝ “对不起,该进程已打开!”
信息框 (消息框提示文本, 消息框提示图标, “友情提醒:”)
如果真 (是否前端显示程序)
局_句柄 ＝ 进程_名取句柄 (取执行文件名 ())
如果真 (IsWindowVisible (局_句柄) ＝ 假)
窗口_强制显示 (局_句柄, 假)
如果真 (窗口_是否最小化 (局_句柄))
窗口_还原 (局_句柄)
窗口_激活 (局_句柄)
' 窗口_置顶 (局_句柄, 真)
结束 ()
CreateEvent ( #NULL, 假, 假, 标识文本)

.版本 2<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 />         .如果真 (IsWindowVisible (局_句柄) ＝ 假)<br />             窗口_强制显示 (局_句柄, 假)<br />         .如果真结束<br />         .如果真 (窗口_是否最小化 (局_句柄))<br />             窗口_还原 (局_句柄)<br />         .如果真结束<br />         窗口_激活 (局_句柄)<br />         ' 窗口_置顶 (局_句柄, 真)<br />     .如果真结束<br />     结束 ()<br /> .如果真结束<br /> CreateEvent (#NULL, 假, 假, 标识文本)

如上所示，建议将窗口_置顶 (局_句柄, 真)修改为窗口_激活 (局_句柄)

使用窗口_置顶 (局_句柄, 真)，局限性太大，需使用其他方法检测是否置顶，来取消置顶。


若不取消置顶，对使用者而言不友好；
直接代码置顶，重复检测工作，对开发者而言也不友好。

asd87565408123

111111111111111111111

clezxcv

clezxcv 发表于 2022-12-19 21:06
程序放到托盘了，怎么在点桌面图标的时候，还原已运行的程序的窗口呢 ...

窗口.可视=假

clezxcv

程序放到托盘了，怎么在点桌面图标的时候，还原已运行的程序的窗口呢

ludosa

同感，如果程序在运行了，可以置顶一次，或激活一次 让它到前面来 ，别人知道程序 已经在运行不能多次运行就行了，没必要老是置顶。
我把置顶改成激活了

.版本 2

.子程序 禁止重复运行, , 公开, 禁止当前程序多开运行
.参数 标识文本, 文本型, 可空, 尽量输复杂一点的文本！反斜杠字符除外
.参数 是否弹出信息框提示, 逻辑型, 可空, 默认为假,不弹出提示;
.参数 消息框提示文本, 文本型, 可空, 第二个参数设置为假,该参数则无效
.参数 消息框提示图标, 整数型, 可空, 默认为信息图标，如：#信息图标
.参数 是否前端显示程序, 逻辑型, 可空, 如果已重复运行,是否将程序在前端显示
.局部变量 局_句柄, 整数型
.局部变量 hEvent, 整数型

.如果真 (标识文本 ＝ “”)
    标识文本 ＝ 校验_取md5 (到字节集 (“你懒得输入，我就写死，略略”))  ' 标识文本，如果有重复的，就不能打开事件，实现禁止
.如果真结束
hEvent ＝ OpenEventA (#EVENT_ALL_ACCESS, 假, 标识文本)
.如果真 (hEvent ≠ #NULL)
    .如果真 (是否弹出信息框提示)
        .如果真 (是否为空 (消息框提示文本))
            消息框提示文本 ＝ “对不起,该进程已打开!”
        .如果真结束
        信息框 (消息框提示文本, 消息框提示图标, “友情提醒:”)
    .如果真结束
    .如果真 (是否前端显示程序)
        局_句柄 ＝ 进程_名取句柄 (取执行文件名 ())
        .如果真 (IsWindowVisible (局_句柄) ＝ 假)
            窗口_强制显示 (局_句柄, 假)
        .如果真结束
        .如果真 (窗口_是否最小化 (局_句柄))
            窗口_还原 (局_句柄)
        .如果真结束
        窗口_激活 (局_句柄)
    .如果真结束
    结束 ()
.如果真结束
CreateEvent (#NULL, 假, 假, 标识文本)

qq1056123185

对，这个“窗口_置顶”，会使目标窗口遮挡住其它的窗口，
有一次写程序，就是因为这个问题，困扰了我很久，
明明没设置窗口置顶，
每次运行，都会被莫名的被置顶，
反复排查，才知道是这个原因。