// Extraction de SetupFTP.dat
ExtraitFicUtil(NOM_ARC,NOM_SETUPFTP,gclInst:m_stInstChoix:szRepTravail)
// On crée l'exe autoextractible d'installation
nRes = zipCrée("Z",ComplèteRep(gclInst:m_stInstChoix:szRepInst)+NOM_INSTALL+EXT_ZIP)
nRes = zipAjouteFichier("Z",sCheminINI,zipAucun)
nRes = zipAjouteFichier("Z",ComplèteRep(gclInst:m_stInstChoix:szRepTravail)+NOM_SETUPFTP,zipAucun)
nRes = zipChangeChemin("Z",NOM_SETUPFTP,NOM_INSTALL+EXT_EXE)
nRes = zipCréeExe("Z",ComplèteRep(gclInst:m_stInstChoix:szRepInst)+NOM_INSTALL+"\"+NOM_INSTALL+EXT_EXE)
nRes = zipFerme("Z")
fSupprime(ComplèteRep(gclInst:m_stInstChoix:szRepInst)+NOM_INSTALL+EXT_ZIP)
fSupprime(sCheminINI)
EcritUndo(CMD_EFF_FIC+ComplèteRep(gclInst:m_stInstChoix:szRepInst)+NOM_INSTALL+"\"+NOM_INSTALL+EXT_EXE)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=21&topic_id=6418&post_id=25328