| |
Как вы знаете, существует возможность загружать web-странички непосредственно на Рабочий Стол. Данный пример позволяет определить, включен или выключен режим рабочего стола Active Desktope
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
Private Sub Command1_Click()
MsgBox IE4ActiveDesktop
End Sub
|
|