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