;Autor: registrymechanic22

EnableExplicit

Define handle
Define PID

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

handle=FindWindow_("notepad",#Null)
If handle
  GetWindowThreadProcessId_(handle,@PID)
  MessageRequester("","Anzahl der Threads des Prozesses: "+Str(FindThread(PID)),0)
Else
  MessageRequester("","Prozess nicht gefunden.",0)
EndIf