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

方法比较多,一种就是API方法,用API方法最简单的就是FindWindowA,FindWindowA 0,"你程序的窗口名",如果返回的数值不为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编辑过]

就这样？？不行哦！

代码是可以的..
当你生成了.exe之后..你运行第一次程序..会正常运行..不要关程序..再运行一次..就会提示你已经运行了.

Unload Me 改成 End 好一点吧,否则好象会不断的弹出提示框,关都关不掉.

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