Printable View
I am writing a shell type program, and am wondering how i can get the window handler of a program, from the process id.
i am using
hprocess = OpenProcess(PROCESS_QUERY_INFORMATION, 1, Shell(app), vbNormalFocus))
to run the program, so ic an tell when it is finished. I also need to be able to minimze/maximize/retore the program but you need the window handler to do that. any help????
This should help,
Any problems, mail me.Code:'#Written by Grant French, MCPUK, Feb 2002
'#http://www.mcpuk.net, [email protected]
Option Explicit
'API Declarations
Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
'Variable Declarations
Private Found_hWnd As Long
Public Function ExecuteAndReturnHWnd(ExecutePath As String) As Long
'List all windows on the system, (send them to our callback function EnumWindowsCallBack)
Call EnumWindows(AddressOf EnumWindowsCallBack, Shell(ExecutePath, vbNormalFocus))
If Not Found_hWnd = 0 Then
'Windows Handle has been found, return it
ExecuteAndReturnHWnd = Found_hWnd
Else
'Windows Handle has not been found, return -1
ExecuteAndReturnHWnd = -1
End If
End Function
Private Function EnumWindowsCallBack(ByVal hwnd As Long, ByVal lParam As Long) As Long
'Declare local variable
Dim lngProcessID
'Get the ProcessID of the returned handle
GetWindowThreadProcessId hwnd, lngProcessID
'If the process id of the returned handle is equal to the processID of
' the window we are looking for then store the window handle in
' Found_hWnd, and stop the enumeration process
If lParam = lngProcessID Then
Found_hWnd = hwnd
EnumWindowsCallBack = False
Else
'Else continue enumerating all windows on the system
EnumWindowsCallBack = True
End If
End Function
'##############
'#Sample Usage#
'##############
Sub main()
'Run notepad and display a message box with its window handle in it
MsgBox ExecuteAndReturnHWnd("notepad.exe")
End Sub
Grant
[email protected]