程序多开原始程序置顶

小青龙跳跳

RT,当一个程序被多次打开时多打开的程序关闭只保留一个程序(已解决)

(未解决)原程序若最小化或不在桌面最前则置顶桌面,求大神解答.

尖叫

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
是否为主程序	逻辑型

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

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

判断 (文件是否存在 (“c:\1.txt”) ＝ 假)  ' 判断标志文件是否存在，来判断程序是否为初次启动，以此来判断程序是否为主程序
写到文件 (“c:\1.txt”, 到字节集 (到文本 (_启动窗口.取窗口句柄 ())))  ' 文件不存在，判定为主程序，同时写出窗口句柄
是否为主程序 ＝ 真
句柄 ＝ 到整数 (到文本 (读入文件 (“c:\1.txt”)))  ' 程序启动时判断文件存在了，那么读入句柄
判断 (窗口_是否存在 (到文本 (句柄)) ≠ 0)  ' 判断句柄窗口是否存在，如果存在则还原窗口，结束多开的程序
窗口_还原 (句柄)
结束 ()
' 否则代表程序被异常结束，但是句柄文件未清理，那么删除掉句柄文件，同时，重新判断
删除文件 (“c:\1.txt”)
__启动窗口_创建完毕 ()

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

如果真 (是否为主程序)
删除文件 (“c:\1.txt”)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 是否为主程序, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 句柄, 整数型<br /> <br /> .判断开始 (文件是否存在 (“c:\1.txt”) ＝ 假)  ' 判断标志文件是否存在，来判断程序是否为初次启动，以此来判断程序是否为主程序<br />     写到文件 (“c:\1.txt”, 到字节集 (到文本 (_启动窗口.取窗口句柄 ())))  ' 文件不存在，判定为主程序，同时写出窗口句柄<br />     是否为主程序 ＝ 真<br /> .默认<br />     句柄 ＝ 到整数 (到文本 (读入文件 (“c:\1.txt”)))  ' 程序启动时判断文件存在了，那么读入句柄<br />     .判断开始 (窗口_是否存在 (到文本 (句柄)) ≠ 0)  ' 判断句柄窗口是否存在，如果存在则还原窗口，结束多开的程序<br />         窗口_还原 (句柄)<br />         结束 ()<br />     .默认<br />         ' 否则代表程序被异常结束，但是句柄文件未清理，那么删除掉句柄文件，同时，重新判断<br />         删除文件 (“c:\1.txt”)<br />         __启动窗口_创建完毕 ()<br /> <br />     .判断结束<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> .如果真 (是否为主程序)<br />     删除文件 (“c:\1.txt”)<br /> .如果真结束

刚刚发的那个是允许多开的，这个是禁止多开，并还原主窗口的代码。

尖叫

程序启动后判断1个文件文件不存在则置顶本程序并生成1个文件，然后判断文件如果文件已经存在则不置顶。

小青龙跳跳

aoesir 发表于 2019-1-11 13:21
程序启动后判断1个文件文件不存在则置顶本程序并生成1个文件，然后判断文件如果文件已经存在则不置顶。

能发代码吗？说的我看不明白,判断原程序存不存在吗?

LLJ

写配置项 保存窗口句柄，另一个程序检测到已在运行则，读取窗口句柄，ShowWindow（窗口句柄，5）

补充内容 (2019-1-11 13:30):
ShowWindow，是显示窗口

补充内容 (2019-1-11 13:32):
其实也不用API
.版本 2

_启动窗口.位置 ＝ 0
_启动窗口.调整层次 (#顶层)


补充内容 (2019-1-11 13:39):
看 8楼

LLJ

置顶桌面 也就是把所有窗口最小化

尖叫

小青龙跳跳 发表于 2019-1-11 13:24
能发代码吗？说的我看不明白,判断原程序存不存在吗?

程序逻辑是这样的，我大概写一个，不标准

如果真(文件是否存在("c:\1.txt")=假)
   ‘代表程序还未启动，这是第一次启动，也就是你所说的源程序了
  写到文件("c:\1.txt"，到字节集(""))
  置顶窗口

小青龙跳跳

aoesir 发表于 2019-1-11 13:31
程序逻辑是这样的，我大概写一个，不标准

如果真(文件是否存在("c:\1.txt")=假)

你可能理解错的意思了,我的意思是一个程序启动,若再次启动这个程序原程序如果最小化就置顶桌面,新开的程序关闭.只能保留一个.

LLJ

.版本 2

.子程序 __启动窗口_创建完毕
.局部变量 原窗口, 整数型

原窗口 ＝ 到整数 (读配置项 (“0.ini”, “启动”, “窗口”, ))
.如果 (窗口在吗 (原窗口))
    ' 还原原窗口
    显示窗口 (原窗口, 5)
    销毁 ()
.否则
    写配置项 (“0.ini”, “启动”, “窗口”, 到文本 (取窗口句柄 ()))
.如果结束



补充内容 (2019-1-11 13:39):
.版本 2

.DLL命令 窗口在吗, 逻辑型, "user32.dll", "IsWindow", , 判断窗口句柄是现有窗口？
    .参数 窗口句柄, 整数型


补充内容 (2019-1-11 13:40):
.DLL命令 显示窗口, 逻辑型, "user32.dll", "ShowWindow", ,
    .参数 窗口句柄, 整数型
    .参数 显示方式, 整数型

尖叫

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 是否为主程序, 逻辑型

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

.判断开始 (文件是否存在 (“c:\1.txt”) ＝ 假)  ' 判断标志文件是否存在，来判断程序是否为初次启动，以此来判断程序是否为主程序
    写到文件 (“c:\1.txt”, 到字节集 (“”))  ' 文件不存在，判定为主程序，同时写入标志文件，告诉后面多开的程序，他们是副程序
    窗口_置顶 (_启动窗口.取窗口句柄 ())  ' 设置主程序窗口置顶
    标签1.标题 ＝ “主程序”
    是否为主程序 ＝ 真  ' 用一个变量来标识当前程序为主程序，用于后面的判断
.默认
    标签1.标题 ＝ “副程序”  ' 文件不存在，判定为多开的副程序
    是否为主程序 ＝ 假  ' 变量标识当前程序为副程序
.判断结束


.子程序 __启动窗口_位置被改变

.如果真 (是否为主程序 且 _启动窗口.位置 ＝ 2)  ' 如果当前程序是主程序，且窗口被最小化
    _启动窗口.位置 ＝ 0  ' 则还原窗口 禁止最小化
.如果真结束


.子程序 __启动窗口_将被销毁

.如果真 (是否为主程序)  ' 如果当前程序是主程序，且程序退出
    删除文件 (“c:\1.txt”)  ' 则删除标志文件

.如果真结束