Procedure PRJSetRegistKeyForIE()

//Liste des valeurs pour la clé selon la version de IE
nValueIE7 is int = 7000//Internet Explorer 7 (Valeur en Hexa: "0x1B58")
nValueIE8 is int = 8000//Internet Explorer 8 (standards-based !DOCTYPE) (Valeur en Hexa: "0x1F40")
nValueIE8_1 is int = 8888//Internet Explorer 8 (regardless of the !DOCTYPE) (Valeur en Hexa: "0x22B8")
nValueIE9 is int = 9000//Internet Explorer 9 (standards-based !DOCTYPE) (Valeur en Hexa: "0x2328")
nValueIE9_1 is int = 9999//Internet Explorer 9 (regardless of the !DOCTYPE) (Valeur en Hexa: "0x270F")
nValueIE10 is int = 10000//Internet Explorer 10 (standards-based !DOCTYPE) (Valeur en Hexa: "0x2710")
nValueIE10_1 is int = 10001//Internet Explorer 10 (regardless of the !DOCTYPE) (Valeur en Hexa: "0x2711")
nValueIE11 is int = 11000//Internet Explorer 11 (standards-based !DOCTYPE) (Valeur en Hexa: "0x2AF8")
nValueIE11_1 is int = 11001//Internet Explorer 11 (regardless of the !DOCTYPE) (Valeur en Hexa: "0x2AF9")
nValueMostRecent is int = 0//Pour toujours utiliser la version la plus récente de IE (Valeur en Hexa: "0x0000")
/////////////////////////////////
//pour plus d'info sur comment utilise les codes de version pour le lien suivant
//http://msdn.microsoft.com/en-us/library/ee330730%28v=vs.85%29.aspx#browser_emulation
/////////////////////////////////


//Pour tous les utilisateurs de la machine, mais nécessite les droits d'admin pour écrire dans cette clé
sKEY_LOCALMACHINE_64BITS is string = "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node"
sKEY_LOCALMACHINE_IE_EMULE6432 is string = "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION"
sKEY_LOCALMACHINE_IE_EMULE is string = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION"

//Pour l'utilisateur en cours, mais ne nécessite pas les droits d'admin pour écrire dans cette clé
sKEY_CURRENTUSER_64BITS is string = "HKEY_CURRENT_USER\SOFTWARE\Wow6432Node"
sKEY_CURRENTUSER_IE_EMULE6432 is string = "HKEY_CURRENT_USER\SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION"
sKEY_CURRENTUSER_IE_EMULE is string = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION"

sExeName is string = fExtractPath(ExeInfo(exeName), fFileName + fExtension)

//Ecrire dans la clé principal
IF NOT RegistryExist(sKEY_CURRENTUSER_IE_EMULE) THEN
RegistryCreateKey(sKEY_CURRENTUSER_IE_EMULE)
END
RegistrySetValue(sKEY_CURRENTUSER_IE_EMULE, sExeName, nValueMostRecent, RegistryTypeInt)

//Voir si la machine est en 64 Bits, si oui créé la clé pour les applications 32 bits qui roule sur 64 Bits.
IF RegistreExiste(sKEY_LOCALMACHINE_64BITS) THEN
IF NOT RegistryExist(sKEY_CURRENTUSER_IE_EMULE6432) THEN
RegistryCreateKey(sKEY_CURRENTUSER_IE_EMULE6432)
END
RegistrySetValue(sKEY_CURRENTUSER_IE_EMULE6432, sExeName, nValueMostRecent, RegistryTypeInt)
END