Win32 process list/check for running process

[DruggedBunny Participant]

This is just a couple of functions for reading the list of currently-running processes on Windows as a string array, and for checking if a given process name is running (eg. “notepad.exe”).

Only tested on Windows 7 64-bit, built as a 64-bit executable via MSVC.

Would be interested to hear if it succeeds or fails on 32-bit Windows, or when built as a 32-bit executable!

[EDIT: Quick fix for stoopid.]

Monkey

#Import "<std>" #Import "<win32>" ' Some simple Win32 types/structs #Import "<windows.h>" ' Win32 headers #Import "<tlhelp32.h>" ' Toolhelp32 library containing the process iteration functions Using std.. Using win32.. Const MAX_PATH:Int = 260 Const TH32CS_SNAPHEAPLIST:Int = $1 Const TH32CS_SNAPPROCESS:Int = $2 Const TH32CS_SNAPTHREAD:Int = $4 Const TH32CS_SNAPMODULE:Int = $8 Const TH32CS_SNAPALL:Int = (TH32CS_SNAPHEAPLIST | TH32CS_SNAPPROCESS | TH32CS_SNAPTHREAD | TH32CS_SNAPMODULE) Const TH32CS_INHERIT:Int = $80000000 Extern Alias LPPROCESSENTRY32:PROCESSENTRY32 Ptr Struct PROCESSENTRY32 Field dwSize:DWORD Field cntUsage:DWORD Field th32ProcessID:DWORD Field th32DefaultHeapID:ULong Ptr Field th32ModuleID:DWORD Field cntThreads:DWORD Field th32ParentProcessID:DWORD Field pcPriClassBase:Long Field dwFlags:DWORD Field szExeFile:WCHAR [] ' Should be WCHAR [MAX_PATH], Win32 seems to allocate the area, though, per libc.sizeof()... End Function CreateToolhelp32Snapshot: HANDLE (dwFlags:DWORD, th32ProcessID:DWORD) Function CloseHandle: Bool (hObject:HANDLE) Function Process32First: Bool (hSnapshot:HANDLE, lppe:LPPROCESSENTRY32) Function Process32Next: Bool (hSnapshot:HANDLE, lppe:LPPROCESSENTRY32) Public Function ProcessRunning:Bool (process:String) process = process.ToLower () Local processes:String [] = GetProcessList () For Local proc:String = Eachin processes If proc.ToLower () = process Then Return True Next Return False End Function GetProcessList:String [] (sorted:Bool = True) Local snap:HANDLE = CreateToolhelp32Snapshot (TH32CS_SNAPPROCESS, 0) If snap Local processes:Stack <String> = New Stack <String> Local proc:PROCESSENTRY32 = New PROCESSENTRY32 proc.dwSize = libc.sizeof (proc) ' Ouchie! Pointer to process entry structure... Local pe32ptr:LPPROCESSENTRY32 = Cast <LPPROCESSENTRY32> (Varptr proc) Local exe:String If Process32First (snap, pe32ptr) For Local loop:Int = 0 Until MAX_PATH Local w_char:WCHAR = proc.szExeFile[loop] If w_char exe = exe + String.FromChar (w_char) Else Exit Endif Next processes.Add (exe) While Process32Next (snap, pe32ptr) exe = "" For Local loop:Int = 0 Until MAX_PATH Local w_char:WCHAR = proc.szExeFile[loop] If w_char exe = exe + String.FromChar (w_char) Else Exit Endif Next processes.Add (exe) Wend Endif CloseHandle (snap) If sorted Then processes.Sort ( ' Modified from Stack module's Sort method... ' Compares lower-case versions of process names, otherwise ' the list is made up of sorted capitalised names first, then ' sorted non-capitalised names (so A-Z followed by a-z)... Lambda:Int (x:String, y:String) Return x.ToLower () <=> y.ToLower () End) Return processes.ToArray () Endif Return Null End ' Demo... Function Main:Void () Local process:String ' Get list of processes: Local processes:String [] = GetProcessList () ' Pass False for default order returned by Windows Print "Running processes:" Print "" For process = Eachin processes Print process Next Print "" ' Check a few specific processes: process = "Ted2.exe" If ProcessRunning (process) Print "Process " + process + " is running" Else Print "Process " + process + " is not running" Endif process = "notepad.exe" If ProcessRunning (process) Print "Process " + process + " is running" Else Print "Process " + process + " is not running" Endif process = "explorer.exe" If ProcessRunning (process) Print "Process " + process + " is running" Else Print "Process " + process + " is not running" Endif End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179

#Import "<std>" #Import "<win32>" ' Some simple Win32 types/structs #Import "<windows.h>" ' Win32 headers #Import "<tlhelp32.h>" ' Toolhelp32 library containing the process iteration functions   Using std.. Using win32..   Const MAX_PATH:Int = 260   Const TH32CS_SNAPHEAPLIST:Int = $1 Const TH32CS_SNAPPROCESS:Int = $2 Const TH32CS_SNAPTHREAD:Int = $4 Const TH32CS_SNAPMODULE:Int = $8 Const TH32CS_SNAPALL:Int = (TH32CS_SNAPHEAPLIST | TH32CS_SNAPPROCESS | TH32CS_SNAPTHREAD | TH32CS_SNAPMODULE) Const TH32CS_INHERIT:Int = $80000000   Extern   Alias LPPROCESSENTRY32:PROCESSENTRY32 Ptr   Struct PROCESSENTRY32 Field dwSize:DWORD Field cntUsage:DWORD Field th32ProcessID:DWORD Field th32DefaultHeapID:ULong Ptr Field th32ModuleID:DWORD Field cntThreads:DWORD Field th32ParentProcessID:DWORD Field pcPriClassBase:Long Field dwFlags:DWORD Field szExeFile:WCHAR [] ' Should be WCHAR [MAX_PATH], Win32 seems to allocate the area, though, per libc.sizeof()... End   Function CreateToolhelp32Snapshot: HANDLE (dwFlags:DWORD, th32ProcessID:DWORD) Function CloseHandle: Bool (hObject:HANDLE) Function Process32First: Bool (hSnapshot:HANDLE, lppe:LPPROCESSENTRY32) Function Process32Next: Bool (hSnapshot:HANDLE, lppe:LPPROCESSENTRY32)   Public   Function ProcessRunning:Bool (process:String)   process = process.ToLower () Local processes:String [] = GetProcessList () For Local proc:String = Eachin processes If proc.ToLower () = process Then Return True Next Return False End   Function GetProcessList:String [] (sorted:Bool = True)   Local snap:HANDLE = CreateToolhelp32Snapshot (TH32CS_SNAPPROCESS, 0)   If snap Local processes:Stack <String> = New Stack <String> Local proc:PROCESSENTRY32 = New PROCESSENTRY32 proc.dwSize = libc.sizeof (proc)   ' Ouchie! Pointer to process entry structure... Local pe32ptr:LPPROCESSENTRY32 = Cast <LPPROCESSENTRY32> (Varptr proc)   Local exe:String   If Process32First (snap, pe32ptr)   For Local loop:Int = 0 Until MAX_PATH   Local w_char:WCHAR = proc.szExeFile[loop]   If w_char exe = exe + String.FromChar (w_char) Else Exit Endif   Next   processes.Add (exe) While Process32Next (snap, pe32ptr) exe = "" For Local loop:Int = 0 Until MAX_PATH Local w_char:WCHAR = proc.szExeFile[loop] If w_char exe = exe + String.FromChar (w_char) Else Exit Endif Next processes.Add (exe) Wend   Endif CloseHandle (snap) If sorted Then processes.Sort ( ' Modified from Stack module's Sort method... ' Compares lower-case versions of process names, otherwise ' the list is made up of sorted capitalised names first, then ' sorted non-capitalised names (so A-Z followed by a-z)... Lambda:Int (x:String, y:String) Return x.ToLower () <=> y.ToLower () End) Return processes.ToArray () Endif   Return Null End   ' Demo...   Function Main:Void ()   Local process:String   ' Get list of processes: Local processes:String [] = GetProcessList () ' Pass False for default order returned by Windows Print "Running processes:" Print "" For process = Eachin processes Print process Next Print "" ' Check a few specific processes: process = "Ted2.exe" If ProcessRunning (process) Print "Process " + process + " is running" Else Print "Process " + process + " is not running" Endif process = "notepad.exe" If ProcessRunning (process) Print "Process " + process + " is running" Else Print "Process " + process + " is not running" Endif process = "explorer.exe" If ProcessRunning (process) Print "Process " + process + " is running" Else Print "Process " + process + " is not running" Endif End

[Author]

Posts