主题：请教，怎么才能实现，在一台电脑上只能打开一个相同的项目

放在BeforeOpenProject事件中

Dim sProcesses As System.Diagnostics.Process()

sProcesses = System.Diagnostics.Process.GetProcesses()

For Each pr As System.Diagnostics.Process In sProcesses

    If pr.ProcessName = "foxtable" Then

        count=count+1

    End If

Next

if count>1 then

 messagebox.show("你已经打开了一个项目")

 Syscmd.Project.exit()

end if