怎么做到生成的EXE文件不能多开？ - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 怎么做到生成的EXE文件不能多开？

标题：怎么做到生成的EXE文件不能多开？

只看楼主

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9
结帖率：100%

楼主

问题点数：0 回复次数：6

怎么做到生成的EXE文件不能多开？

一般生成的可执行文件你开几个就开几个怎么做到只能打开一个如果多开就显示当前打开的

搜索更多相关主题的帖子: EXE　文件　

2007-03-16 21:16

121038

等　级：新手上路
威　望：2
帖　子：414
专家分：0
注　册：2005-8-3

第 2 楼

得分:0

方法比较多,一种就是API方法,用API方法最简单的就是FindWindowA,FindWindowA 0,"你程序的窗口名",如果返回的数值不为0就说明正在运行

2007-03-16 21:46

Joforn

等　级：贵宾
威　望：23
帖　子：1242
专家分：122
注　册：2007-1-2

第 3 楼

得分:0

Private Sub Form_Load()
If App.PrevInstance Then
MsgBox "对不起，你已经打开了一个" & App.EXEName & "程序，本程序不能重复运行！", vbCritical, Me.Caption
Unload Me
End If
End Sub

[此贴子已经被作者于2007-3-16 22:22:17编辑过]

VB QQ群：47715789

2007-03-16 22:18

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

第 4 楼

得分:0

以下是引用Joforn在2007-3-16 22:18:08的发言：
Private Sub Form_Load()
If App.PrevInstance Then
MsgBox "对不起，你已经打开了一个" & App.EXEName & "程序，本程序不能重复运行！", vbCritical, Me.Caption
Unload Me
End If
End Sub

就这样？？不行哦！

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-03-17 11:48

purana