如何防止程序多次运行

[zymfy]

如何防止程序多次运行?

[genny]

帮你顶

[lx1920]

http://www.syncfusion.com/FAQ/WinForms/FAQ_c40c.asp#q550q

[lx1920]

Public Shared Function RunningInstance() As Process

Dim current As Process = Process.GetCurrentProcess()

Dim processes As Process() = Process.GetProcessesByName(current.ProcessName)



'Loop through the running processes in with the same name

Dim process As Process

For Each process In processes

'Ignore the current process

If process.Id <> current.Id Then

'Make sure that the process is running from the exe file.

If [Assembly].GetExecutingAssembly().Location.Replace("/", "\") = current.MainModule.FileName Then

'Return the other process instance.

Return process

End If

End If

Next process

'No other instance was found, return null.

Return Nothing

End Function 'RunningInstance

[Latitude]

在本版就有呀：
http://expert.csdn.net/Expert/topic/1645/1645639.xml?temp=.6115381
　　　Dim pProcess() As Process
pProcess = Process.GetProcesses()
Dim i As Integer
Dim count As Integer = 0
For i = 0 To pProcess.Length() - 1
'检查是否已经启动过
If (pProcess(i).ProcessName = "WindowsApplication1") Then
count += 1
End If
Next
If count > 1 Then
End '关闭要启动的这个程序
End If

---
by Henry