ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Comment déterminer si un Activex (OCX) est enregistré dans la base de registre.

	Description
Retour à la liste L'auteur Mike Gagnon Canada Membre Simple # 0000000025 enregistré le 14/10/2004 Gagnon Mike Pointe Cla H9R 3K8 de la société Carver Technologies Inc. Fiche personnelle Note des membres pas de note	Contributions > 08 - ActiveX - (OLE) Comment déterminer si un Activex (OCX) est enregistré dans la base de registre. # 0000000834 ajouté le 21/08/2012 21:04:46 et modifié le 23/08/2012 consulté 9662 fois Niveau initié Version(s) Foxpro : VFP 9.0
	Voici comment verifier le fait qu'un OCX est enregistre dans la base de registre. Il faut utiliser le nom de la classe (OleClass) au lieu du nom du fichier OCX.
	Code source :
	? CheckKey("ctTOOLBAR.ctToolBarCtrl.3") RETURN PROCEDURE CheckKey LPARAMETERS zcKey * Registry roots #DEFINE HKEY_CLASSES_ROOT -2147483648 && BITSET(0,31) #DEFINE HKEY_CURRENT_USER -2147483647 && BITSET(0,31)+1 #DEFINE HKEY_LOCAL_MACHINE -2147483646 && BITSET(0,31)+2 #DEFINE HKEY_USERS -2147483645 && BITSET(0,31)+3 SET CLASSLIB TO "C:\Program Files\Microsoft Visual FoxPro 9\ffc\registry" ADDITIVE LOCAL llReturn, loReg llReturn = .F. loReg = CREATEOBJECT("registry") IF loReg.IsKey(zcKey, HKEY_CLASSES_ROOT) llReturn = .T. ENDIF RELEASE loReg && Optionel RETURN llReturn
	Commentaires
	le 22/08/2012, Jean à Grenoble a écrit : Bonjour Mike, quel est l'intérêt de mettre RELEASE loReg alors que c'est une variable LOCAL qui sera détruite lors du RETURN ? Jean à Grenoble le 22/08/2012, Mike Gagnon a écrit : Une viellle habitude de detruire immediatement ce que je n'ai plus besoin.

Comment déterminer si un Activex (OCX) est enregistré dans la base de registre.

Contributions > 08 - ActiveX - (OLE)