I’m working with Adobe InDesign and would like to enable a button if InDesign is installed. It takes a good while if you try to create the object. Is there anyway to check for the existence of the same object without actually trying to open it?

>When a CREATEOBJECT() is executed to automate MS-Word it raises and error. How can I check before hand if MS-Word (better if I can find out if the version is 2000 or above) exists at all. I would like to disable a menu option before hand based on this fact.
>
>

>LOCAL llOK, loApp, lcHandler, loErr, lcMsg
>llOK = .T.
>TRY
>  loApp = CREATEOBJECT( [Word.Application] )
>CATCH
>  TEXT TO lcMsg TEXTMERGE NOSHOW PRETEXT 3
>    It seems that Word is not installed on the computer.
>    You must have Word installed to continue.
>  ENDTEXT
>  MESSAGEBOX( lcMsg, 64 )
>  llOK = .F.
>ENDTRY
>IF llOK
>  IF INLIST( ALLTRIM( loApp.version ), [9.0], [10.0], [11.0] )
>  ELSE
>    TEXT TO lcMsg TEXTMERGE NOSHOW PRETEXT 3
>      You must have either at least Word 2000 installed
>      to continue.
>    ENDTEXT
>    MESSAGEBOX( lcMsg, 64, [T. K. Plastics] )
>    llOK = .F.
>    loApp.quit()
>  ENDIF
>ENDIF
>
>RETURN llOK
>