;Autor: registrymechanic22 ;http://www.purebasic.fr/english/viewtopic.php?p=308312#p308312 EnableExplicit Procedure FindThread(PID) Protected te.THREADENTRY32, NumTr=0 Protected h h=CreateToolhelp32Snapshot_(#TH32CS_SNAPTHREAD,0) If h<>#INVALID_HANDLE_VALUE te\dwSize=SizeOf(te) If Thread32First_(h,@te) Repeat If te\dwSize>=OffsetOf(THREADENTRY32\th32OwnerProcessID)+SizeOf(te\th32OwnerProcessID) If te\th32OwnerProcessID=PID ;Debug "Thread - "+Str(te\th32ThreadID) NumTr+1 EndIf EndIf te\dwSize=SizeOf(te) Until Not Thread32Next_(h,@te) EndIf CloseHandle_(h) EndIf ProcedureReturn NumTr EndProcedure MessageRequester("","Anzahl der Threads des Prozesses: "+Str(FindThread(GetCurrentProcessId_())),0) ; IDE Options = PureBasic 5.31 (Windows - x64) ; CursorPosition = 2 ; Folding = - ; EnableUnicode ; EnableXP ; EnableUser ; EnableCompileCount = 0 ; EnableBuildCount = 0