Close a window 1

[Gazzza]

Hi

I want to stop users from having more than one session of an application open. I'm a newbie and have access to the code that was written by someone else. How can I check if the app is already running when someone fires up the exe?

If the app is running I just want to display a msgbox and End. As mentioned I'm new at this so I'm unsure if I would use an api call or there might be a way to do it using code to check. I haven't had much exposure to api yet.

Thanks

Garry

 

[hardkor1001110]

check out FindWindow

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

something like this:

"CaptionofProgram" is what you see for the title in the Caption bar -- it must be an exact match.

hWnd = FindWindow(vbNullString, "CaptionofProgram&quot

If hWnd <> 0 Then

Msgbox &quot;You can't do that.&quot;
End

Endif

 

[AdamVBWylde]

An easier way would be...

If App.PrevInstance Then
    MsgBox "Already running"
    end
Else
    MsgBox "Not running"
End If

 

[Gazzza]

Thanks to both of you I'll be able to use both examples for different things

Garry