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.   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pte Claire Quebec - Canada
de la société MCRG Software
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é 4935 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0

Description

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.

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3