|
RegistreExiste |
|
Anonyme
|
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
Contribution le : 02/08/2005 08:26
|
|
|
Re: RegistreExiste |
|
Animateur WDF ![](http://old.wdforge.org/uploads/rank3f7d78368d45f.gif)
Inscrit: 17/05/2004 14:21
Post(s): 382
|
Essayez plutôt quelque chose du genre :
SI PAS RegistreExiste("HKEY_LOCAL_MACHINE\SOFTWARE\Appli") ALORS
SI PAS RegistreCréeClé("HKEY_LOCAL_MACHINE\SOFTWARE\Appli") ALORS
Erreur("Erreur ...")
RETOUR
FIN
FIN
SI PAS RegistreExiste("HKEY_LOCAL_MACHINE\SOFTWARE\Appli","Licence") ALORS
SI PAS RegistreCréeClé("HKEY_LOCAL_MACHINE\SOFTWARE\Appli","Licence") ALORS
Erreur("Erreur ....")
RETOUR
FIN
FIN
SI PAS RegistreEcrit("HKEY_LOCAL_MACHINE\SOFTWARE\Appli","Licence",NumLicence) ALORS
ErreurInfo(errMessage)
FIN
Contribution le : 02/08/2005 09:00
|
_________________
Mbsl
|
|
Re: RegistreExiste |
|
Anonyme
|
Merci, ça m'a aidé et j'ai trouvé !
En premier j'avais pas testé l'existence de la clé en premier avant la valeur.
En second, je comprend pas pourquoi il me trouver pas la valeur licence sans que je vérifie l'existence de la clé (!!) car c'est pas indiqué dans l'aide !
Voici le code rectifié, si ça peut aider quelqu'un par la suite :
SI PAS RegistreExiste("HKEY_LOCAL_MACHINE\...") ALORS SI RegistreCréeClé("HKEY_LOCAL_MACHINE\...") = Faux ALORS Erreur("xoxox") Ferme FIN SI PAS RegistreExiste("HKEY_LOCAL_MACHINE\...","Licence") ALORS SI RegistreEcrit ("HKEY_LOCAL_MACHINE\...","Licence", "0") = Faux ALORS Erreur("xoxox") Ferme FIN FIN FIN
Contribution le : 02/08/2005 09:20
|
|
Vous ne pouvez pas débuter de nouveaux sujets.
Vous pouvez voir les sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.