;Autor: Sicro ;http://www.purebasic.fr/german/viewtopic.php?p=297522#p297522 EnableExplicit Procedure ScanRunningProcesses() Protected Snapshot, Snapshot2, ProcessFound Protected Process.PROCESSENTRY32, Module.MODULEENTRY32 Process\dwSize = SizeOf(PROCESSENTRY32) Module\dwSize = SizeOf(MODULEENTRY32) Snapshot = CreateToolhelp32Snapshot_(#TH32CS_SNAPPROCESS, 0) If Snapshot ProcessFound = Process32First_(Snapshot, Process) While ProcessFound Snapshot2 = CreateToolhelp32Snapshot_(#TH32CS_SNAPMODULE,Process\th32ProcessID) If Snapshot2 If Module32First_(Snapshot2, @Module) Debug PeekS(@Module\szExePath[0]) EndIf CloseHandle_(Snapshot2) EndIf ProcessFound = Process32Next_(Snapshot, Process) Wend CloseHandle_(Snapshot) EndIf EndProcedure ScanRunningProcesses() ; IDE Options = PureBasic 5.31 (Windows - x64) ; CursorPosition = 2 ; Folding = - ; EnableUnicode ; EnableXP ; EnableUser ; EnableCompileCount = 0 ; EnableBuildCount = 0