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
(if (= x 1) (welcome))
(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)