WDForge.org - Forums - WD 9

Index des forums WDForge.org

WD 9

RegistreExiste

Bas

Suivant S'enregistrer pour contribuer

	RegistreExiste	#1
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
Anonyme

Re: RegistreExiste

Animateur WDF

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	#3
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
Anonyme

Haut

S'enregistrer pour contribuer

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.