Help, windows opened

Help,

Could you please give me some peice of code that
will tell me all the windows opened at a certain
time

Thanks in advance,

[amitabh]

Have you tried "EnumWindows". It is used to enumerate all top level windows. I have never used it so I don't have the code, but I think it would be pretty easy.

could you tell me the enumwindows code

[amitabh]

Put this code in a form

Public Function ListWindows() As Long

Dim rc As Long
Dim lParam As Long

'We're not concerned with a custom message at this time
lParam = 0

'call the api
ListWindows = EnumWindows(AddressOf EnumWindowsProc, lParam)

End Function

Private Sub Command1_Click()
Call ListWindows
End Sub


Put this code in a standard basic module(not in form or in class module)

Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean

Debug.Print hwnd

'while this value is true it will keep on searching for open windows till it reaches
'the last window
EnumWindowsProc = True

End Function


But this will return you a large number of handle's. If you need only those on the desktop, try "EnumDesktopWindows" instead.

[Jop]

Download my window class: http://www.geocities.com/despotez/WH/

it has an example to get all the open windows too.