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

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

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

取消只看楼主

b13690976754

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

楼主

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

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

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

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

2007-03-16 21:16

b13690976754

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

第 2 楼

得分: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

b13690976754

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

第 3 楼

得分:0

以下是引用purana在2007-3-17 13:01:38的发言：
代码是可以的..
当你生成了.exe之后..你运行第一次程序..会正常运行..不要关程序..再运行一次..就会提示你已经运行了.

单单一个简单程序就可以如果加到一个程序的LOAD 里面就没有用了

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

2007-03-20 21:38

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-124712-1-1.html