Process ID and Handles

[Joey_k29]

I have the processid to a program(the result returned when I shell something). I want to get its handle. How do I accomplish this?? Thank you very much for the help.

Joe

[crispin]

Option Explicit

Public Declare Function GetWindow Lib "user32" _
(ByVal hwnd As Long, ByVal wCmd As Long) As Long

Public Declare Function GetDesktopWindow Lib "user32" () As Long

Public Declare Function GetWindowThreadProcessId Lib "user32" _
(ByVal hwnd As Long, lpdwProcessId As Long) As Long

Public Declare Function BringWindowToTop Lib "user32" _
(ByVal hwnd As Long) As Long

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA"
_
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam
As Any) As Long

Public ProcessID As Long
Public Const WM_CLOSE = &H10
Public Const GW_HWNDFIRST = 0
Public Const GW_HWNDNEXT = 2
Public Const GW_CHILD = 5

Public Function hWndFromProcessID(ProcID As Long) As Long
Dim TempHandle As Long
Dim GWTPIReturn As Long
Dim CurrentProcID As Long
On Error GoTo errHandler
TempHandle = GetDesktopWindow()
TempHandle = GetWindow(TempHandle, GW_CHILD)

Do While TempHandle <> 0
GWTPIReturn = GetWindowThreadProcessId(TempHandle,
CurrentProcID)
If CurrentProcID = ProcID Then
hWndFromProcessID = TempHandle
Exit Do
End If
TempHandle = GetWindow(TempHandle, GW_HWNDNEXT)
Loop

Exit Function
errHandler:
TempHandle = 0
End Function

[Joey_k29]

I actually found code just before you posted. It is the example for GetWindowThreadProcessId in the API-Guide from AllApi.net. Thank you very much for your help as well.

JOe