Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.217.228.35] |
|
Сообщ.
#1
,
|
|
|
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) IE4ActiveDesktop = IIf(Templong > 0, True, False) End Function Private Sub Form_Load() Me.Caption = IE4ActiveDesktop End Sub |