|
|
|
|
- Creating a self-extracting archive
- Creating a self-extracting archive
Creating a self-extracting archive The following code is used to create a self-extracting archive. The archived files are extracted from the current directory. The "Icon.ICO" file is found in the runtime directory of the 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
Creating a self-extracting archive The following code is used to create an archive containing a file, then a self-extracting archive.
// Déclaration et initialisation des variables CodeErreurOuverture est un entier CodeErreurExe est un entier  // Création de l'archive nResCréation est un entier = zipCrée("MonArchive","C:\Temp\MonArchive.WDZ") SI nResCréation = 0 ALORS // Ajout d'un fichier dans une archive nResAjoutFichier est un entier = zipAjouteFichier("MonArchive", ... ComplèteRep(fRepExe) + "Test.txt", zipDisque) FIN  zipFerme("MonArchive") CodeErreurOuverture = zipOuvre("MonArchive", "C:\Temp\MonArchive.WDZ")  SI CodeErreurOuverture = 0 ALORS // Création d'une archive auto-extractible CodeErreurExe = zipCréeExe("MonArchive", "C:\Temp\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
This page is also available for…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|