在beforeopenproject中用了如下事件代码:'---控制一台电脑只能打开一个客户端运行!
Dim sucess As Boolean = False
mu = new System.Threading.Mutex(True, "dsdfhdfghf", sucess)
If not sucess Then
MessageBox.Show("程序已经在运行,不能重复打开!", "提示",MessageBoxButtons.Ok,MessageBoxIcon.Warning,0, Windows.forms.MessageBoxOptions.ServiceNotification)
e.Cancel = True
End If
在afterOPenproject中的升级代码如下：
If ftp.Download("\Update\Update1.Zip",Path & "\Update1.Zip",True) = True Then '小版本升级
UpdatePath = Path
RemoteUpdate = False
If Syscmd.Project.Update(False,False) = True Then '发现新版本时不提示用户,因为前面已提示过
Application.restart '重新启动
'Return '小版本更新不用返回,否则升级完成后不能自动打开程序
End If
End If
小版本升级上面红色代码重启后就会出现上面的"程序已经在运行,不能重复打开!" 出错，导致打开项目终止，关掉错误，再次重新打开项目又可正常使用。
应该如何避免这个问题？
谢谢！
加好友 
发短信
Post By：2018/8/14 9:11:00 [显示全部帖子]
