its my app running??

[Alex G.]

some one knows how to check if my app. (Example ap1.exe)
is running (because i don't want than it run twice at the
same time in the same machine)

somebody knows like verifying if my application at the
moment this executing itself, since I do not want that
the application runs twice in the same computer at the
same time

[Tom Shelton]

On 2003-11-06, Alex G. <ag******@ga.com.mx> wrote:

some one knows how to check if my app. (Example ap1.exe)
is running (because i don't want than it run twice at the
same time in the same machine)

somebody knows like verifying if my application at the
moment this executing itself, since I do not want that
the application runs twice in the same computer at the
same time

Start your application from a Sub Main, then you can do something like
the following:

Option Strict On
Option Explicit On

Imports System.Threading

....

Public Sub Main()
Dim firstInstance As Boolean
Dim mut As New Mutex(True, "myuniquemutexname", firstInstance)

If firstInstance Then
Try
' start your main form
Application.Run(New MainForm())
Catch
' Handle problems
Finally
' make sure the mutext is released
mut.ReleaseMutex()
End Try
Else
MessageBox.Show("App already running")
End If
End If

Just make sure that "myuniquemutexname" is unique and known to your
program. A mutex is a global kernel object, and so can be referenced by
all applications by using the unique name. If your application is given
ownership of the mutex, then firstInstance will be true - otherwise,
your app is already running :)

--
Tom Shelton
MVP [Visual Basic]

[Crirus]

Nice, just asking myself about this :)

--
Ceers,
Crirus

------------------------------
If work were a good thing, the boss would take it all from you

------------------------------

"Tom Shelton" <to*@mtogden.com> wrote in message
news:ON**************@TK2MSFTNGP12.phx.gbl...

On 2003-11-06, Alex G. <ag******@ga.com.mx> wrote:

some one knows how to check if my app. (Example ap1.exe)
is running (because i don't want than it run twice at the
same time in the same machine)

somebody knows like verifying if my application at the
moment this executing itself, since I do not want that
the application runs twice in the same computer at the
same time

Start your application from a Sub Main, then you can do something like
the following:

Option Strict On
Option Explicit On

Imports System.Threading

...

Public Sub Main()
Dim firstInstance As Boolean
Dim mut As New Mutex(True, "myuniquemutexname", firstInstance)

If firstInstance Then
Try
' start your main form
Application.Run(New MainForm())
Catch
' Handle problems
Finally
' make sure the mutext is released
mut.ReleaseMutex()
End Try
Else
MessageBox.Show("App already running")
End If
End If

Just make sure that "myuniquemutexname" is unique and known to your
program. A mutex is a global kernel object, and so can be referenced by
all applications by using the unique name. If your application is given
ownership of the mutex, then firstInstance will be true - otherwise,
your app is already running :)

--
Tom Shelton
MVP [Visual Basic]

[Shawn D Shelton]

Tom,

Is using the Mutex a more efficient or better way than doing it like this?

I place the following code in the Public Sub New() of the form code

Try
Dim StrProcessName As String
StrProcessName = Diagnostics.Process.GetCurrentProcess.ProcessName
If Diagnostics.Process.GetProcessesByName(StrProcessN ame).Length > 1 Then
'More than one instance was found
AppActivate(StrProcessName)
End
End If
Catch
'do nothing
End Try
thank you!

Shawn Shelton
Tom Shelton wrote:

On 2003-11-06, Alex G. <ag******@ga.com.mx> wrote:

some one knows how to check if my app. (Example ap1.exe)
is running (because i don't want than it run twice at the
same time in the same machine)

somebody knows like verifying if my application at the
moment this executing itself, since I do not want that
the application runs twice in the same computer at the
same time

Start your application from a Sub Main, then you can do something like
the following:

Option Strict On
Option Explicit On

Imports System.Threading

...

Public Sub Main()
Dim firstInstance As Boolean
Dim mut As New Mutex(True, "myuniquemutexname", firstInstance)

If firstInstance Then
Try
' start your main form
Application.Run(New MainForm())
Catch
' Handle problems
Finally
' make sure the mutext is released
mut.ReleaseMutex()
End Try
Else
MessageBox.Show("App already running")
End If
End If

Just make sure that "myuniquemutexname" is unique and known to your
program. A mutex is a global kernel object, and so can be referenced by
all applications by using the unique name. If your application is given
ownership of the mutex, then firstInstance will be true - otherwise,
your app is already running :)

[Tom Shelton]

In article <eh**************@TK2MSFTNGP10.phx.gbl>, Shawn D Shelton wrote:

Tom,

Is using the Mutex a more efficient or better way than doing it like this?

I place the following code in the Public Sub New() of the form code

Try
Dim StrProcessName As String
StrProcessName = Diagnostics.Process.GetCurrentProcess.ProcessName
If Diagnostics.Process.GetProcessesByName(StrProcessN ame).Length > 1 Then
'More than one instance was found
AppActivate(StrProcessName)
End
End If
Catch
'do nothing
End Try
thank you!

Shawn Shelton

I'm not sure that there is anything terribly wrong with your way... I
tend to use a mutex because it used to be a fairly standard way of
accomplishing this task doing raw win32 programming... Also, because
mutex's are global sync objects, you aren't going to run into any issues
with timing.

--
Tom Shelton
MVP [Visual Basic]

[Herfried K. Wagner [MVP]]

* Shawn D Shelton <sh******@isu.edu> scripsit:

Is using the Mutex a more efficient or better way than doing it like this?

I place the following code in the Public Sub New() of the form code

Try
Dim StrProcessName As String
StrProcessName = Diagnostics.Process.GetCurrentProcess.ProcessName
If Diagnostics.Process.GetProcessesByName(StrProcessN ame).Length > 1 Then
'More than one instance was found
AppActivate(StrProcessName)
End
End If
Catch
'do nothing
End Try

This may return wrong results if there are different applications with
the same name running on the machine.

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
<http://www.mvps.org/dotnet>

<http://www.plig.net/nnq/nquote.html>

[Tom Shelton]

In article <bo*************@ID-208219.news.uni-berlin.de>, Herfried K. Wagner [MVP] wrote:

* Shawn D Shelton <sh******@isu.edu> scripsit:

Is using the Mutex a more efficient or better way than doing it like this?

I place the following code in the Public Sub New() of the form code

Try
Dim StrProcessName As String
StrProcessName = Diagnostics.Process.GetCurrentProcess.ProcessName
If Diagnostics.Process.GetProcessesByName(StrProcessN ame).Length > 1 Then
'More than one instance was found
AppActivate(StrProcessName)
End
End If
Catch
'do nothing
End Try

This may return wrong results if there are different applications with
the same name running on the machine.

Ah, didn't think about that... Good catch ;)
--
Tom Shelton
MVP [Visual Basic]