---

Forum » » Développement » » Un installeur pour le pack Ultimate

---

Post� : 19-04-2010 13:17

J'ai déjà trouvé des trucs, si tu me laisse un peu de temps. Je dois pouvoir faire ca.

Pour le moment, je cherche à copier l'ensemble d'un répertoire et son contenu vers une destination.
Ensuite faudrait voir si on peut lancer WGET Ã partir le l'installer téléchager ton pack et ensuite le décompresser et l'installer.

Voici le début de l'installer (PAS FINI) :

; $VER: packmorphos_install_MOS 1.0 (19.4.2010)

; Multilangues pour les messages : ya moyen :)
(procedure P_SetMessages
; (if (= @language "français")
; (
(set #AskInstallDir "Merci de sélectionner la partition où vous souhaitez installer le Pack Utilimate MorphOS:.")
(set @error-msg "Installation annulée.")
(set #Final "Installation terminée !")
; )
; (
; (set @error-msg "Installation aborded.")
; (set #Final "Installation complete!")
; )
; )
)

(procedure P_AskInstallDir
(set #InstallDir
(askdir
(prompt #AskInstallDir)
(help #InstallDirHelp)
(default "SYS:")
)
)
)

; Procédure pour tout copier du répertoire PackUtimate vers la destination (SYS:)
(procedure P_CopyFiles

(message "Debut de l'installation")

;(copyfiles
; (source (tackon #source-dir "PackUtimate"))
; (dest #InstallDir)
; (noposition)
; (all)
;)
)


(procedure P_End
(message #Final)
)

(welcome)
(set #source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon)) (expandpath @icon)))

(P_SetMessages)
(P_AskInstallDir)
(P_CopyFiles)
(P_End)
(exit (quiet))

Je continuerais ce soir :)

BeWorld

---

Cet article provient de Meta-MorphOS
https://www.meta-morphos.org/viewtopic.php?topic=510&forum=52