Detektion af (Flash)plugin

<!--<SCRIPT LANGUAGE=JAVASCRIPT>
gotShockWave = false
for (i=0; i<navigator.plugins.length; i++) {
  if (navigator.plugins[i].name.indexOf(\"Shockwave\") >= 0) {
    gotShockWave = true
  }
}
</SCRIPT>
-->

Tak skal du ha. Det virker bare ikke i IExplorer, og det skal det.

Lige en kommentar til ovenstående kode:
I IE er navigator.plugins bare en liste af alle de EMBED/OBJECT tags der findes i dokumentet - det vil sige at man ikke kan teste om Flash-plugin\'et er installeret unden at have et EMBED tag til en flash fil

Michael

I IE kunne du gøre noget a la dette for at teste om Flash er installeret:
<SCRIPT language=\"VBScript\">
Dim fso, plugin_exist

Sub checkfile()
  Set fso = CreateObject(\"Scripting.FileSystemObject\")
  plugin_exist = fso.FileExists(\"C:\\Windows\\System\\MacroMed\\Flash\\SWFlash.ocx\")
  If plugin_exist = True Then
      MsgBox \"Flash er installeret\"
  End If       
  Set plugin_exist = Nothing
End Sub

Sub window_unload(file)
  Set fso = Nothing
End Sub
</SCRIPT>

Michael

Det er dog ikke en særlig \"venlig\" måde - hvad den gør er at den tester direkte om flash plugin filen findes på computeren.. (normal placering: C:\\Windows\\System\\MacroMed\\Flash\\SWFlash.ocx)

Det er ikke en for sikker måde, da det fx ikke er sikker at windows biblioteket ligger som C:\\Windows

Michael

Til at omgå problemet med Windows mappens placering kan man bruge:
fso.GetSpecialFolder(1) som returnerer system mappen (altså: c:\\windows\\system)
altså:
plugix_exists fso.FileExists(fso.GetSpecialFolder(1) & \"\\MacroMed\\Flash\\SWFlash.ocx\")

Michael

Hov:
plugin_exist = fso.FileExists(osv. osv.

Michael