FUNCTION _IsClassRegistered(tcClass) LOCAL lnKey #define HKEY_CLASSES_ROOT -2147483648 #define ERROR_SUCCESS 0 && OK DECLARE INTEGER RegOpenKey IN Win32API ; INTEGER nHKey, STRING @cSubKey, INTEGER @nResult DECLARE INTEGER RegCloseKey IN Win32API ; INTEGER nHKey lnKey = 0 llRetVal = (RegOpenKey(HKEY_CLASSES_ROOT, tcClass, @lnKey) = ERROR_SUCCESS) IF llRetVal RegCloseKey(lnKey) ENDIF RETURN llRetValYou could use it:
IF _IsClassRegistered([Word.Application]) LOCAL oWord AS Word.Application LOCAL lcWordVersion *** Get Word version oWord = CREATEOBJECT([Word.Application]) lcWordVersion = oWord.Version oWord.Quit() oWord = NULL ENDIF