Function DetectMediaPlayer7

	On Error Resume Next

	Dim blnMP7 : blnWMP7 = False
	
	blnMP7 = IsObject(CreateObject("WMPlayer.OCX"))
	DetectMediaPlayer7 = blnMP7

End Function