Detect is specific program is running

BlitzMax Forums/BlitzMax Programming/Detect is specific program is running

RifRaf

(Posted 2010) [#1]

Is there an api call to check to see if a specific program is running or not?

What i would like to do is have a program that runs in the background and restarts a my game server if for any reason is gets shut down.

xlsior

(Posted 2010) [#2]

Here's some code that can return the entire list of processes currently running on windows (and optionally kill specific ones)

Perhaps you can use it as a starting point?

'
' By Sweenie
'

Extern "win32"
	Function EnumWindows(Callbackptr:Byte Ptr,lParam)
	Function GetWindowText(hWnd,lpString:Byte Ptr,nMaxCount) = "GetWindowTextA@12"
'	Function GetWindowThreadProcessId(hwnd, processId)
	Function OpenProcess% (access, handleinherit, processid)
	Function TerminateProcess% (processhandle, exitcode)
	Function CloseHandle% (Objects)
	Function GetWindowThreadProcessId(hWnd:Int,ID:Byte Ptr) = "GetWindowThreadProcessId@8"
	Function GetClassName(hWnd:Int,clString:Byte Ptr,nMaxCount:Int) = "GetClassNameA@12" 
	
End Extern

Const PROCESS_TERMINATE = $1
Const PROCESS_CREATE_THREAD = $2
Const PROCESS_VM_OPERATION = $8
Const PROCESS_VM_READ = $10
Const PROCESS_VM_WRITE = $20
Const PROCESS_DUP_HANDLE = $40
Const PROCESS_CREATE_PROCESS = $80
Const PROCESS_SET_QUOTA = $100
Const PROCESS_SET_INFORMATION = $200
Const PROCESS_QUERY_INFORMATION = $400
Const SYNCHRONIZE = 1048576
Const STANDARD_RIGHTS_REQUIRED = 983040
Const PROCESS_ALL_ACCESS = 983040
Global CharBuffer:Byte[255]
'Global TestBuffer:Byte[255]

'The callback function
Function EnumWindowsProc(hwnd,lParam)
	Local PID:Int
	GetWindowText(hwnd,CharBuffer,255)
	PID=GetWindowThreadProcessid(hwnd,Null)
'	PID=GetWindowThreadProcessid(hwnd,TestBuffer)
'	Print testbuffer[0]+"."+testbuffer[1]+"."+testbuffer[2]+"."+testbuffer[3]+"."+testbuffer[4]+"."+testbuffer[5]+"."+testbuffer[6]
	If String.FromCString(CharBuffer)<>"" Then
		' Skip empty process names (threads?)
		Print "PID: "+PID+"~t hWnd: "+hwnd+" ~t"+String.FromCString(CharBuffer)
	End If 
	If Instr(String.FromCString(CharBuffer),"Calculator") Then 
'		Print PID
'		DebugLog KillProcess(PID) '; Change To process ID you want To kill.
'		Notify PID

	End If 

	'Return True if you want to fetch the next window, return False to tell EnumWindows to stop.
	Return True
End Function

EnumWindows(EnumWindowsProc,0)

Function KillProcess (pid)
    phandle = OpenProcess (PROCESS_TERMINATE, False, pid)
    If phandle <> 0
        If TerminateProcess (phandle, 1)
            result = 1
        EndIf
        CloseHandle (phandle)
    EndIf
    Return result
End Function

RifRaf

(Posted 2010) [#3]

Perhaps you can use it as a starting point?

sure can, thank you

BlitzSupport

(Posted 2010) [#4]

There's also this:

Process Tree

It uses MaxGUI for the demo but the process-listing code should be fairly standalone.