Private Sub GetWinInfo(hParent As Long, intOffset As Integer, OutputType As Integer) GetWinInfo 0&, 0, winOutputType.winHandleClassTitle 'Used a user defined type here rather than Enum so that it works on 97 (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
(ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _ (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _ You can refine the output by changing 'winHandleClassTitle' in the line 'GetWinInfo 0&, 0, winOutputType.winHandleClassTitle' to one of the other options of winHandle, winClass, winTitle, winHandleClass, winHandleTitle. Further it is a good example of how to use recursive procedures (procedurse that call themselves) and using FindWindowEx. This code will output a list of window handles, class names and window text to Excel clearly displaying the heirachy. In Win32 API programming obtaining the handle to a window is often key and in order to do this the class of the window and window heirachy is often required. The main message box window and 2 windows of the button class.
For example a simple message box that has a yes and a no button has 3 windows. Windows are not just the windows that most people think of. This code provides window handles, captions, and class names running in the current system and outputs them to the activesheet in Excel. Capture Window Handles, Class Names and Titles
0 kommentar(er)
