主题：[求助]怎样判断是否已经有程序正在运行

打开狐表前，怎样判断是否已经有FoxTable程序正在运行

for each p as  System.Diagnostics.Process in Process.GetProcesses
    output.show(p.Processname)
next

Dim Proc As New Process
If  proc.GetProcessesByName("FoxTable").Length > 1 Then
    MessageBox.Show("已经有foxtable在运行")
End If

对了 不用new也行，打开第2个foxtable才会提示
If  Process .GetProcessesByName("FoxTable").Length > 1 Then
    MessageBox.Show("已经有foxtable在运行")
End If 

呵呵，还是lxl版主的代码好。

谢谢lxl版主，能满足要求了

又有问题了，当强制退出程序时，Syscmd.Project.Exit(False)，会出现以下错误
 

此主题相关图片如下：强制退出错误.jpg

你在那个事件退出的啊？

BeforeConnectOuterDataSource 和 BeforeCloseProject
而且退出的时候还是会执行项目事件中的设置

BeforeCloseProject本来就是准备退出项目了，再用Syscmd.Project.Exit(False)是多余的。