vb.net:
Private Function IsRunning(ByVal projname As String) As Boolean
Dim CurrentProcess As Process = Process.GetCurrentProcess()
Dim processes As Process() = Process.GetProcessesByName("AAA")
Dim p As Process
For Each p In processes
If p.Id <> CurrentProcess.Id Then
If CurrentProcess.MainModule.FileName = Reflection.Assembly.GetExecutingAssembly().Location.Replace("/", "\") Then
'MsgBox("系统已打开", MsgBoxStyle.Information, "提示")
'Me.Close()
Return True
End If
End If
Next
Return False
End Function
c#:
private Boolean IsRunning(string projname)
{
Process CurrentProcess &#