// Procédure qui permet d'initialiser l'activeX dynamiquement
// L'ActiveX est-il installé ?
SI PAS RegistreExiste("HKEY_CLASSES_ROOT\Shell.Explorer") ALORS
	Erreur("Cette application nécessite Internet Explorer 4 minimum")
	FinProgramme()	
FIN
// Chargement de l'ActiveX
ACTACROBAT="Shell.Explorer"
// Vérification de la présence de l'objet Shell.Explorer
objTest est un objet OLE dynamique = ACTACROBAT
SI objTest = Null ALORS
	libérer objTest
	Erreur("Le navigateur du poste n'est pas internet explorer, vous ne pouvez pas afficher les documents PDF")
FIN
libérer objTest
// Chargement du fichier
ACTACROBAT>>navigate(F_NomfichPdf)
Multitâche(-1)
Sablier(Vrai)
ACTACROBAT>>refresh()
Sablier(Faux)