Visual Basic Forum for Visual Basic Programmers VB

[Gilad_r]

[vb:1:e9d1db90e0]
Private Declare Function IsWindowVisible Lib "user32" _
(ByVal hWnd As Long) As Long

Private Declare Function GetWindow Lib "user32" _
(ByVal hWnd As Long, _
ByVal wCmd As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, _
ByVal nIndex As Long) As Long


Private Const GW_OWNER As Long = 4
Private Const GWL_EXSTYLE As Long = (-20)
Private Const WS_EX_TOOLWINDOW As Long = &H80
Private Const WS_EX_APPWINDOW As Long = &H40000


Public Function IsAltTabWindow(ByVal hWnd As Long) As Boolean

Dim ex As Long
Dim vis As Boolean
Dim app As Boolean
Dim tool As Boolean
Dim owned As Boolean

vis = IsWindowVisible(hWnd)
ex = (GetWindowLong(hWnd, GWL_EXSTYLE))
app = (ex And Not WS_EX_APPWINDOW) <> ex
tool = (ex And Not WS_EX_TOOLWINDOW) <> ex
owned = GetWindow(hWnd, GW_OWNER) <> 0

IsAltTabWindow = vis And (app Or Not (tool Or owned))

End Function
[/vb:1:e9d1db90e0]
_________________
"you should make amends with you" (Incubus)

[P.T.A.M.]

What does this do?
_________________
No one is completely useless. They can at least be an example of what to avoid.

[Gilad_r]

tells you whether the window appears in the Alt-Tab list...
_________________
"you should make amends with you" (Incubus)