ONLINE HELP
 WINDEVWEBDEV AND WINDEV MOBILE

Help / WLanguage / WLanguage functions / Standard functions / Archive functions
  • Creating a self-extracting archive
  • Creating a self-extracting archive
zipCreateExe (Example)
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
Minimum version required
  • Version 9
This page is also available for…
Comments
Click [Add] to post a comment

Last update: 05/26/2022

Send a report | Local help