On Mar 5, 2007, at 7:09 PM, Michael Diehr wrote:
> However, it appears that you can test whether Enable Flash is ON or
> OFF by checking the component version ('flsh' 'mhlr' 'appl') will
> return 0 if disabled.
>
> Does anyone care to cook up sample code for this in REALbasic? I'm a
> little rusty with declares under carbon/quicktime.
Declare Function OpenDefaultComponent lib "Carbon" _
(componentType as OSType, componentSubType as OSType) as Integer
Declare Function GetComponentVersion Lib "Carbon" (component as
integer) as Integer
dim comp as integer
dim m as new MemoryBlock(4)
comp = OpenDefaultComponent("mhlr","flsh")
m.long(0) = GetComponentVersion(comp)
MsgBox str(m.short(0)) + "." + str(m.short(2))
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>
