查看完整版本: 如何检查您的电脑是否打开 ActiveDesktop

如何检查您的电脑是否打开 ActiveDesktop

　　在 IE4 及 IE5 中都有提供使用者选择是否安裝 ActiveDeskTop 的功能，這个我们在 VB 中也可以检测出來的！
首先，在表单声明区中声明以下二个 API Function：
** Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
** Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
接着，继续在表单声明区中加入以下模块：
Public Function ISActiveDesktop() As Boolean
Dim retVal As Long
retVal = FindWindow("Progman", vbNullString)
retVal = FindWindowEx(retVal, 0