************************************************** FUNCTION IsCOMObject ********************* *** Function: Checks to see if a COM object *** or ActiveX control exists *** Assume: Uses wwAPI *** Pass: lcProgId - Prog Id of the Class *** lcClassId - (Optional) If passed in *** by reference gets ClassId *** lcClassDescript - (Optional) by ref *** Return: .T. or .F. ***************************************************** LPARAMETER lcProgId,lcClassId, lcClassDescript IF EMPTY(lcProgId) RETURN .F. ENDIF loAPI = CREATE("wwAPI") *** Retrieve ClassId and Server Name lcClassId = ; loAPI.ReadRegistryString(HKEY_CLASSES_ROOT,; lcProgId + "\CLSID",; "") IF ISNULL(lcClassId) lcClassId = "" lcClassDescription = "" RETURN .F. ENDIF lcClassDescript = ; loAPI.ReadRegistryString(HKEY_CLASSES_ROOT,; lcProgId,"") IF ISNULL(lcClassDescript) lcClassDescript = "" ENDIF RETURN .T.You need can download a registry class used above from