以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  一个电脑只开一个相同应用  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185962)
--  作者：瑞峰
--  发布时间：2023/3/28 15:46:00
--  一个电脑只开一个相同应用
如何实现 一个电脑只开一个相同应用
现在可以打开N个。
--  作者：有点蓝
--  发布时间：2023/3/28 16:01:00
--  
参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=96880
--  作者：瑞峰
--  发布时间：2023/3/28 19:58:00
--  
BeforeOpenProject事件
 
static mu As System.Threading.Mutex
Dim sucess As Boolean = False
mu = new System.Threading.Mutex(True, "aaabbbccc", sucess)
If not sucess Then
    MessageBox.Show("系统已经在运行,请退出后重新登录!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
End If

"aaabbbccc" 是程序名字吧。

如果把 程序 置于最前面呢
--  作者：有点蓝
--  发布时间：2023/3/28 20:32:00
--  
"aaabbbccc" 不是程序名字，随便输入一个字符串即可。