Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Advanced
Apr 23, 1999

Is the Active Desktop Active?

Sometimes you want to know if the desktop is in Active Desktop mode-for example, to set an HTML wallpaper. I couldn't find a function to accomplish this, but this hack works on all Windows 95/98 and NT4 desktops that I've tested it on:
 
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
Don Bradner
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date