API Problem -> Process anhalten

[rfidler (Gast)]

Hallo Leute

Möchte gerne ein paar fremde Programme anhalten und bei Bedarf wieder 
fortsetzen.
Das ganze möchte ich wie folgt realisieren:

FindHandle = FindWindow(vbNullString, "TestProgramm")
If FindHandle <> "0" Then
GetWindowThreadProcessId FindHandle, PID
Phandle = OpenProcess(PROCESS_ALL_ACCESS, False, PID)
If Phandle = 0 Then
MsgBox "Kann Process nicht öffnen", vbCritical, "So klappts nicht"
Exit Sub
End If
'Hier sollte ich mir das Hthread Prädikat einverleiben
SuspendThread Hthread
end if

Ihr seht schon ich habe ein Problem:
Wie komme ich an HThread rann?

[Arc N. (arc)]

Fertiges Utility
http://www.beyondlogic.org/consulting/processutil/processutil.htm
sonst kann man sich die Threads des Prozesses z.B. so besorgen
http://msdn2.microsoft.com/en-us/library/ms686852(VS.85).aspx
(Risiken und Nebenwirkungen bekannt?)