function getActivX()
    getActivX = ""
    Dim flash_ok, realplayer_ok, adopeAcrobat_ok
    Dim swf,swf3,swf4,swf5, real, real2, pdf,pdf4,pdf5,pdf6
    
    'Flash installiert ???
    On Error Resume Next
        swf = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash")))
    On Error Resume Next
        swf3 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3")))
    On Error Resume Next
        swf4 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4")))
    On Error Resume Next
        swf5 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5")))
        
    flash_ok = (swf or swf3 or swf4 or swf5)
    if flash_ok then getActivX = getActivX & "Shockwave Flash|"
    
    'RealPlayer installiert ???
    On Error Resume Next
        real= (IsObject(CreateObject("rmocx.RealPlayer G2 Control"))) 
    On Error Resume Next
        real2= (IsObject(CreateObject("rmocx.RealPlayer G2 Control.1")))
    realplayer_ok = (real or real2)
    if realplayer_ok then getActivX = getActivX & "RealPlayer|"
    
    'Adobe Director
    On Error Resume Next
        pdf = IsObject(CreateObject("AcroPDF.PDF.1"))
    On Error Resume Next
        pdf4 = IsObject(CreateObject("DF.PdfCtrl.4"))
    On Error Resume Next
        pdf5 = IsObject(CreateObject("PDF.PdfCtrl.5"))
    On Error Resume Next
        pdf6 = IsObject(CreateObject("PDF.PdfCtrl.6"))
    adopeAcrobat_ok = (pdf or pdf4 or pdf5 or pdf6)
    
    if adopeAcrobat_ok then getActivX = getActivX & "Adobe Acrobat|"
    
end function