Exemple d'utilisation de la commande ZipCreeExe

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués

Le code suivant permet de créer une archive auto-extractible. L'extraction des fichiers archivés s'effectue dans le répertoire courant. Le fichier "Icone.ICO" est présent sur le répertoire d'exécution de l'application.

// Déclaration et initialisation des variables
CodeErreurOuverture est un entier
CodeErreurExe est un entier

// Ouverture d'une archive
CodeErreurOuverture = zipOuvre ( "MonArchive" , "C:\MesArchives\MonArchive.WDZ" )

SI CodeErreurOuverture = 0 ALORS
    // Création d'une archive auto-extractible
    CodeErreurExe = zipCréeExe ( "MonArchive" , "D:\Sauvegardes\Archive.EXE" , ...
                               zipRepCourant , "Icone.ICO" )

   // Affichage du message d'erreur si l'archive auto-extractible n'a pas été crée
   SI CodeErreurExe <> 0 ALORS
     Erreur ( ZipMsgErreur ( CodeErreurExe ))
   FIN
SINON
    // Affichage du message d'erreur si l'ouverture n'a pas été effectuée
    Erreur ( ZipMsgErreur ( CodeErreurOuverture ))
FIN