Comment lancer PowerPoint quelque soit le sytème d`exploitation du PC utilise ?
//Variables
Cle1 est une chaîne //1er cle lu dans la base de registre
Cle2 est une chaîne //2eme cle lu dans la base de registre
valeur est un entier //Taille de la chaine Cle2
//Tableau qui contient les version de PowerPoint.Application
TablPowerPoint est un tableau de 3 entier
TablPowerPoint[1]= 9
TablPowerPoint[2]= 8
TablPowerPoint[3]= 7
//Compteur
i est un entier = 1
//Initialisation de la Cle1 et 2
Cle1=""
Cle2=""
//On recherche dabord la version la plus ancienne de PowerPoint
BOUCLE
SI Cle1="" ET i<4 ALORS
Cle1 = RegistreLit("HKEY_CLASSES_ROOT\PowerPoint.Application." TablPowerPoint[i] "\CLSID","")
i
SINON
SORTIR
FIN
FIN
Cle2 = RegistreLit("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\" Cle1 "\LocalServer32","")
SI Cle2 = "" ALORS
Info("Application non installee")
FIN
//On supprime le paramètre "\Automation"
valeur = Taille(Cle2)
valeur=valeur-11
Cle2 = Gauche(Cle2,valeur)
//Lancement de l`application
DDELance(Cle2)