Amazing adventures of Froggie in a slough. Help it to find its home, its beloved and beat all enemies.
[symple_youtube id=”KErbzYuBBe4″]
// // // = 2 then
ITSMediaPlayer.detectableWithVB = True
End If
'this next function will detect most plugins
Function detectActiveXControl(activeXControlName)
on error resume next
detectActiveXControl = False
If ITSMediaPlayer.detectableWithVB Then
detectActiveXControl = IsObject(CreateObject(activeXControlName))
End If
End Function
'and the following function handles QuickTime
Function detectQuickTimeActiveXControl()
on error resume next
detectQuickTimeActiveXControl = False
If ITSMediaPlayer.detectableWithVB Then
detectQuickTimeActiveXControl = False
hasQuickTimeChecker = false
Set hasQuickTimeChecker = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1")
If IsObject(hasQuickTimeChecker) Then
If hasQuickTimeChecker.IsQuickTimeAvailable(0) Then
detectQuickTimeActiveXControl = True
End If
End If
End If
End Function
// ]]>
