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
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=2575&post_id=10906