Comment lancer Word 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 Word.Application
TablWord est un tableau de 3 entier
TablWord[1]= 9
TablWord[2]= 8
TablWord[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 word
BOUCLE
SI Cle1="" ET i<4 ALORS
Cle1 = RegistreLit( "HKEY_CLASSES_ROOT\Word.Application." + TablWord[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)