(set #demouser "Bitte denken Sie daran, daß CDCat Shareware ist. Wenn Sie es kennengelernt haben und regelmäßig benutzen, sollten Sie sich bei mir für 30 DM registrieren lassen. Nur durch Ihre Unterstützung wird die Weiterentwicklung von CDCat sichergestellt.")
(set #keyfileuser "Nochmals vielen Dank für Ihre Registration. Bitte geben Sie das Keyfile, das Ihren Namen und Ihre Adresse enthält, nicht weiter. Nur durch Ihre Unterstützung wird die Weiterentwicklung von CDCat sichergestellt.")
(exit (cat ("Installation abgeschlossen!\n\"%s\" finden Sie nun in Ihrer Schublade (oder Partition)\n\"%s\".\n\n" @app-name @default-dest) #schlusstext) (quiet))
(exit (cat ("Update-Installation abgeschlossen!\n\n\Die neue Version \"%s\" finden Sie nun in Ihrer Schublade (oder Partition)\n\"%s\".\n\n" @app-name @default-dest) #schlusstext) (quiet))
(prompt "Bitte wählen Sie den Installations-Modus")
(help @askchoice-help)
(choices "Neuinstallation" "Update (über alte Version)" "Deinstallation" #installkey)
(default 0)
)
)
(if (= #mode 0)
( (set #dest (askdir (prompt "Bitte Zielverzeichnis wählen.\n(Ein Verzeichnis 'CDCat' wird dort erstellt.)")
(help "Sie müssen hier das Verzeichnis wählen, in dem die 'AFiloFaxPro'-Schublade erstellt werden soll.\n\nIn diese Schublade werden dann AFiloFaxPro und alle dazugehörigen Dateien kopiert.")
(default @default-dest)
)
)
(set #cdcatdrawer (tackon #dest "CDCat"))
(set @default-dest #dest)
(if (exists #cdcatdrawer)
(if (= 1 (askbool
(prompt "\nCDCat wurde bereits in dieses Verzeichnis installiert.\n\nSoll in den Installationsmodus "Update" gewechselt oder die alte Schublade umbenannt werden?")
(choices "Als Update installieren" "Altes Dir umbenennen")