How to check if a process is already running? 2

[dashen]

Hi guys,

I am at a loss, but can anyone point me in the right direction or provide a snippet for VB6, which would allow me to check if the executable is already running, and if so kill the process being called? Thanks in advanced.

 

[WZUP]

If App.PrevInstance = True then
.........
end if

 

[dashen]

I can't use any .NET Solutions either because not all users have .NET features.

 

[HughLerwill]

Please check Vb6 Help for app.PrevInstance

regards Hugh

 

[dashen]

Thanks WZUP!!!!

 

[johnwm]

Try VBHelp - look for App.Previnstance

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first.
'If we're supposed to work in Hex, why have we only got A fingers?'
Drive a Steam Roller

 

[johnwm]

Wow - what a lot of quick typists!

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first.
'If we're supposed to work in Hex, why have we only got A fingers?'
Drive a Steam Roller

 

[BobRodes]

Here's an API solution from Hypetia that I use regularly:

Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32.dll" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Const PROCESS_QUERY_INFORMATION = &H400

Private Function IsProcessRunning(pid As Long) As Boolean
Dim hProcess As Long
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)
CloseHandle hProcess
IsProcessRunning = hProcess
End Function

You can use the above function to kill a process as well:

Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long
Private Const PROCESS_TERMINATE = 1
Private Function KillProcess(pid As Long) As Boolean
Dim hProcess As Long
Do
    hProcess = OpenProcess(PROCESS_TERMINATE, 0, pid)
    KillProcess = TerminateProcess(hProcess, 0)
    CloseHandle hProcess
Loop While IsProcessRunning(pid)
End Function

IsProcessRunning will tell you if a process is running. KillProcess will attempt to terminate a process, check to see if it's still running, and then attempt to terminate it again until successful. (Of course, if it's never successful.......)

HTH

Bob