Je zapnut Active Desktop ?

Postup:
Deklarujte:

Private Declare Function FindWindow& Lib "user32" Alias _
        "FindWindowA" (ByVal lpClassName$, ByVal lpWindowName$)

Private Declare Function FindWindowEx& Lib "user32" Alias _
        "FindWindowExA" (ByVal hWndParent&, ByVal _
        hWndChildAfter&, ByVal lpClassName$, ByVal _
        lpWindowName$)

Public Function IE4ActiveDesktop() As Boolean
    Dim Templong&
    Templong = FindWindow("Progman", vbNullString)
    Templong = FindWindowEx(Templong, 0&, _
            "SHELLDLL_DefView", vbNullString)
    Templong = FindWindowEx(Templong, 0&, _
            "Internet Explorer_Server", vbNullString)
    If Templong > 0 Then
        IE4ActiveDesktop = True
    Else
        IE4ActiveDesktop = False
    End If
End Function

Zp∞t

Autor: The Bozena