sRepSystem est une chaîne
bRes est un booléen
sRepSystem = SysEnvironnement("windir")
sRepSystem = ExtraitChaîne(sRepSystem, 2, "=")
sRepSystem = sRepSystem + "\System32\"
fCopieFichier(fRepExe()+"\atxWDForge.Dll",sRepSystem,frConfirmer+frJauge)
fRepEnCours(sRepSystem)
bRes = DDELance("REGSVR32.EXE atxWDForge.Dll",DDEActif,Vrai,sRepSystem)
SI bRes ALORS
Info("ActiveX enregistré avec succès")
RETOUR
FIN
Erreur("Un problème est survenu pendant l'enregistrement de l'activeX !",ErreurInfo())
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=1489&post_id=6113