*function _IsClassRegistered >>*? _IsClassRegistered("Word.Application") >>lparameters tcClass >>#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 >> >>local lnKey >>lnKey = 0 >>llRetVal = ( RegOpenKey(HKEY_CLASSES_ROOT, tcClass, @lnKey) = ERROR_SUCCESS ) >>if llRetVal >> RegCloseKey(lnKey) >>endif >>CLEAR DLLS >>return llRetValCetin