Bonjour
Je vois votre problème, vous voulez ouvrir un navigateur autre que le navigateur par défaut, j'ai une solution pour vous, comme vous avez déjà la solution
1. Vous devrez mettre le navigateur Mozilla Firefox pas par défaut, si c'est oui alors c'est déjà bon
Voilà un code en version classe dont vous pouvez utiliser
// EDD (12/24) : Création de la nouvelle classe de ClNavigateur
ClNavigateur est une Classe
m_sNavigateur is string
m_sRépertoire is string
FIN
// EDD (12/24) : Création de la nouvelle méthode Validation()
PROCÉDURE Validation()
IF NoSpace(:m_sNavigateur) = "" THEN
Info("Merci de remplir le lien de navigateur.")
RENVOYER False
ELSE IF NoSpace(:m_sRépertoire) = "" THEN
Info("Merci de remplir le lien de répertoire.")
RENVOYER False
ELSE
IF fFichierExiste(:m_sNavigateur) = False THEN
Info("Merci de vérifier le répertoire de navigateur '" + RC + "'" + :m_sNavigateur + "'")
RENVOYER False
ELSE
RENVOYER True
END
END
// EDD (12/24) : Création de la nouvelle méthode Lancement()
PROCÉDURE Lancement()
IF LanceAppli(ChaîneConstruit([
"%1" "%2"
], :m_sNavigateur, :m_sRépertoire)) = False THEN
Erreur(ErreurInfo())
END
// EDD (12/24) : Création de la nouvelle procédure privé dans la nouvelle fenêtre Navigateur()
PROCÉDURE PRIVÉ Navigateur()
LOCAL
cNavigateur is ClNavigateur
cNavigateur:m_sNavigateur = "..." // Répertoire exécutable de la navigateur Mozilla Firefox
cNavigateur:m_sRépertoire = "
https://forum.pcsoft.fr/fr-FR/whatsnew.awp"
IF cNavigateur:Validation() = True THEN
cNavigateur:Lancement()
END
NB : Attention votre Windows devrai avoir une installation de Mozilla Firefox
Cordialement
Mr.RATSIMANDRESY
Niry Aina Eddy