home *** CD-ROM | disk | FTP | other *** search
- ;HDPP UnInstaller
-
- (complete 0)
- (welcome "Welcome to the HDPP v2.0 uninstallation utility. This utility\n"
- "is designed to run with little or no interaction from you.")
- (message "Welcome to the HDPP UnInstall program\n\n"
- "This program is automatic and the only input required from you "
- "is the place where HDPP is currently installed.\n"
- "The program will then delete that directory, and delete the "
- "Prefs program from SYS:Prefs. Finally, it will remove the "
- "LoadWB script that was installed and replace it with the "
- "original LoadWB command which came with your Workbench disks.\n\n"
- "HDPP is ©1998-9 Joker Developments Limited.")
-
- (set #destdir
- (askdir
- (prompt "Select the directory which contains the HDPP executable.")
- (help @askdir-help)
- (default "")
- )
- )
-
- (working "Removing font from FONTS:")
- (delete "FONTS:HDPP.font")
- (prompt "Deleting HDPP.font from FONTS:")
- (help @delete-help)
- )
- (working "Removing font from FONTS:")
- (delete "FONTS:HDPP/")
- (prompt "Deleting HDPP/8 from FONTS:")
- (help @delete-help)
- (all)
- )
-
- (working "Removing LoadWB script from C:")
- (delete "C:LoadWB"
- (prompt "Deleting LoadWB script from C:")
- (help "Deletes the LoadWB script so that the original command can be "
- "re-copied into the C: directory.")
- )
-
- (working "Re-installing LoadWB command (the original!)")
- (rename "C:IO.DEV" "C:LoadWB"
- (prompt "Re-installing the ORIGINAL LoadWB command..")
- (help "Without this command, the computer would not boot properly!")
- )
-
- (working "Removing Prefs program from SYS:Prefs/ directory")
- (delete "SYS:Prefs/HDPP_Prefs2.0"
- (prompt "Removing HDPP_Prefs2.0 from SYS:Prefs")
- (help "This deletes the Prefs program from the preferences directory!")
- (infos)
- )
- (set @default-dest #destdir)
-
- (working "Removing main HDPP directory from "#destdir#"...")
- (delete #destdir
- (prompt "Deleting files from"#destdir".")
- (help "This just deletes the HDPP directory altogether!")
- (all)
- )
- (complete 100)
-