RegistreExiste

Posté par Anonyme le 2/8/2005 8:26:52

Bonjour,

J'ai un problème avec RegistreExiste, voici le code :

CréationClé est un booléen = RegistreEcrit ("HKEY_LOCAL_MACHINE\SOFTWARE\Appli","Licence", "0")
CréationChemin est un booléen = RegistreCréeClé("HKEY_LOCAL_MACHINE\SOFTWARE\
Appli")
VérifRegistre est un booléen = RegistreExiste("HKEY_LOCAL_MACHINE\SOFTWARE\Ap
pli","Licence")

SI VérifRegistre = Faux ALORS
SI CréationChemin = Faux ALORS
Erreur("problème registre")
Ferme
FIN
SI CréationClé = Faux ALORS
Erreur("problème registre")
Ferme
FIN
FIN

Ce code est placé à l'initialisation de la fenetre principale. Mon problème est qu'à chaque fois il recrée la valeur "licence" et donc me la remet à 0 (à 1 la licence est accepté par l'utilisateur final) donc il faut accepter la licence à chaque fois que l'on démarre le soft !!
Il faut dire aussi que j'ai fait plusieurs tests non concluants, je m'en remet à vous tous sur ce forum, en espérant avoir été assez clair !!

Merci

Cordialement,

Mike