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

1楼

tianhe95 发表于：2009/11/16 10:26:00

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

2楼

狐狸爸爸 发表于：2009/11/16 10:34:00

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

3楼

lxl 发表于：2009/11/16 10:41:00

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

4楼

lxl 发表于：2009/11/16 10:45:00

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

[此贴子已经被作者于2009-11-16 10:46:05编辑过]

5楼

狐狸爸爸 发表于：2009/11/16 10:57:00

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

6楼

tianhe95 发表于：2009/11/16 11:06:00

以下是引用lxl在2009-11-16 10:45:00的发言：
对了不用new也行，打开第2个foxtable才会提示
If Process .GetProcessesByName("FoxTable").Length > 1 Then
MessageBox.Show("已经有foxtable在运行")
End If

[此贴子已经被作者于2009-11-16 10:46:05编辑过]

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

7楼

tianhe95 发表于：2009/11/16 11:14:00

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

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

8楼

狐狸爸爸 发表于：2009/11/16 11:29:00

你在那个事件退出的啊？

9楼

tianhe95 发表于：2009/11/16 11:33:00

以下是引用狐狸爸爸在2009-11-16 11:29:00的发言：

你在那个事件退出的啊？

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

[此贴子已经被作者于2009-11-16 11:37:34编辑过]

10楼

狐狸爸爸 发表于：2009/11/16 11:36:00

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

共17 条记录, 每页显示 10 条, 页签: [1] [2]