FUNCTION IsRegistered
LPARAMETERS cDll, cClass

 LOCAL lRetVal cSaveErr, lError, oDll

 cSaveErr = ON("ERROR")
 cString = cDll + "." + cClass

 ON ERROR lError = .T.
 oDll = CREATEOBJECT(&cString) 
 ON ERROR &cSaveErr

 lRetVal NOT lError


RETURN lRetVal