InstallerFX Examples

---

The rest of the examples are in the example drawer and not in this doc. This is just a small and simple example.

; InstallerFX script

(onerror (CLEANUP))

; Cleanup any temporary mess we created
(procedure CLEANUP

; Nothing to cleanup

(delete "t:installerpic")
(delete "t:installerpic.prefs")

) ; CLEANUP

(set Opt 3)

(complete 0)

(copyfiles

(source "InstallerFX/Pic1.iff")

(dest "t:")
(newname "InstallerPic")

)

(copyfiles
(source "InstallerFX/pic1.prefs")

(dest "t:")
(newname "InstallerPic.prefs")

)

(run "run InstallerFX/InstallerFX t:installerpic")

;Get directory to install test to:

(set destdir

(askdir

(prompt "In which drawer should testfiles be installed?")
(help @askdir-help)
(default ("t:"))

)

)
(copyfiles

(source "InstallerFX/Pic2.iff")

(dest "t:")
(newname "InstallerPic")

)

(copyfiles

(source "InstallerFX/pic2.prefs")

(dest "t:")
(newname "InstallerPic.prefs")

)

(run "run InstallerFX/InstallerFX t:installerpic3")

(complete 10)

(set installfiles

(askoptions

(prompt "Which of the following optional programs/helpfiles should be installed ?")
(help @askoptions-help)
(choices "testfiles")
(default Opt)

)

)

(complete 50)

;Copy program files to destination.

(if (BITAND installfiles 1)
(copyfiles

(source "testfiles")

(dest destdir)
(all)

)

)

(set installfiles

(askoptions

(prompt "Which of the following optional programs/helpfiles should be installed ?")
(help @askoptions-help)
(choices "testfiles")
(default Opt)

)

)

(if (BITAND installfiles 1)

(copyfiles

(source "testfiles")
(dest destdir)

(all)

)
)

(complete 100)

(CLEANUP)

(exit)