Click here to Skip to main content
12,953,379 members (48,309 online)
Click here to Skip to main content
Add your own
alternative version

Stats

80.5K views
33 bookmarked
Posted 12 Oct 2003

Single Instance of Application

, 12 Oct 2003
Rate this:
Please Sign up or sign in to vote.
Shows a very generic way to find out if another instance of the application is already running and activate the running instance's main window by bringing it to the foreground.

Introduction

Brief preamble: Some time ago I was looking for a way to find out if another instance of the application is already running. A trivial task as you may say and I would agree with you instantly as long as you are familiar with Win32 API. I looked around on various sites including this one and found a few interesting articles, including an article talking at length how to set up a well-known object to pass command line parameters to an existing instance (a good DDE replacement), which is nice but not exactly what I was looking for. I needed something quick and dirty and so here it goes.

Public NotInheritable Class Win32Helper 
<System.Runtime.InteropServices.DllImport("user32.dll", _ 
EntryPoint:="SetForegroundWindow", _
CallingConvention:= Runtime.InteropServices.CallingConvention.StdCall, _
CharSet:=Runtime.InteropServices.CharSet.Unicode, SetLastError:=True)> _
Public Shared Function _ 
     SetForegroundWindow(ByVal handle As IntPtr) As Boolean
' Leave function empty
End Function

<System.Runtime.InteropServices.DllImport("user32.dll", _ 
EntryPoint:="ShowWindow", _
CallingConvention:=Runtime.InteropServices.CallingConvention.StdCall, _
CharSet:=Runtime.InteropServices.CharSet.Unicode, SetLastError:=True)> _
Public Shared Function ShowWindow(ByVal handle As IntPtr, _ 
                             ByVal nCmd As Int32) As Boolean
' Leave function empty 
End Function

End Class ' End Win32Helper 

Public Shared Function GetRunningInstance(ByVal _ 
                   processName As String) As Process
    Dim proclist() As Process = _ 
       Process.GetProcessesByName(processName)
    For Each p As Process In proclist
        If p.Id <> Process.GetCurrentProcess().Id Then
            Return p
        End If
    Next
    Return Nothing
End Function

'The main entry point for the application
Public Shared Sub Main()
    Dim pInstance As Process = _ 
      Win32Helper.GetRunningInstance(Process.GetCurrentProcess().ProcessName)
    If Not pInstance Is Nothing Then
        Dim handle As IntPtr = pInstance.MainWindowHandle
        If Not IntPtr.Zero.Equals(handle) Then
            Win32Helper.ShowWindow(handle, 1)
            Win32Helper.SetForegroundWindow(handle)
        End If
        Application.ExitThread()
    Else
        Dim context As ApplicationContext = _ 
           New ApplicationContext(New MainFrame) 
        Application.Run(context)
    End If
End Sub

Few last comments: I had to resort to a no-so-graceful approach (as compared to using remoting) as needed to activate a main window of the running instance if one was found. Mutexes wouldn't help either.

For those on a look out for any trace plagiarism I should perhaps add, this is my adaptation of already well known methods. This is just my humble contribution for others who may find this all somewhat useful.

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

Share

About the Author

petervn
United States United States
No Biography provided

You may also be interested in...

Pro

Comments and Discussions

 
GeneralMain() function Pin
Anu.....S/W Developer11-Nov-08 23:18
memberAnu.....S/W Developer11-Nov-08 23:18 
General4+ years later, exactly what I needed. Thx! (n/t) Pin
Gary Noter10-Dec-07 10:50
memberGary Noter10-Dec-07 10:50 
GeneralDoes not activate main window Pin
Deepak Sakpal14-Feb-07 22:58
memberDeepak Sakpal14-Feb-07 22:58 
GeneralRe: Does not activate main window Pin
petervn2-May-07 17:19
memberpetervn2-May-07 17:19 
GeneralExcellent Code Pin
Kestrel25-Oct-06 9:29
memberKestrel25-Oct-06 9:29 
GeneralThanks Pin
Mr. Beasimer20-Jul-06 12:10
memberMr. Beasimer20-Jul-06 12:10 
GeneralRe: Thanks Pin
LBeasimer18-Sep-06 7:23
memberLBeasimer18-Sep-06 7:23 
Generalrestore from minimized state Pin
jkakermott12-Apr-06 11:09
memberjkakermott12-Apr-06 11:09 
GeneralVery good code! Pin
Giakkomino4-Mar-06 5:56
memberGiakkomino4-Mar-06 5:56 
GeneralNeeds Process Performance Counter Pin
jtencate7-Feb-06 8:47
memberjtencate7-Feb-06 8:47 
GeneralSingle Instance Code Pin
Fade (Amit BS)7-May-05 3:24
memberFade (Amit BS)7-May-05 3:24 
QuestionHow can Start .exe program depending the Principal Process Pin
Vitoto4-May-05 10:24
memberVitoto4-May-05 10:24 
GeneralValue of article Pin
Rede14-Oct-03 1:46
memberRede14-Oct-03 1:46 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

Permalink | Advertise | Privacy | Terms of Use | Mobile
Web02 | 2.8.170525.1 | Last Updated 13 Oct 2003
Article Copyright 2003 by petervn
Everything else Copyright © CodeProject, 1999-2017
Layout: fixed | fluid