home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 March / Chip_1999-03_cd.bin / sharewar / WinRest / setup.sif < prev    next >
Text File  |  1998-04-17  |  2KB  |  49 lines
  1. //
  2. // Jeffrey Carlyle's Stratoware Windows Restart 98
  3. // Copyright 1998 by Jeffrey Carlyle.
  4. //
  5. // 
  6. // See the ReadMe.txt file for more information.
  7. //
  8. ConfirmInstall("This program will install Jeffrey Carlyle's Stratoware Windows Restart 98. Please read README.TXT for more information. Do you wish to continue?")
  9. GenerateUnSetupInfo("Stratoware Windows Restart 98", "Stratoware.WindowsRestart.98.April")
  10. PromptForDir("Stratoware Windows Restart 98", "Please choose the directory into which you wish to install Windows Restart.", StratoDir, "?ProgramFiles?\Stratoware\wr98free")
  11. SetDefaultDir(?StratoDir?)
  12. //
  13. // Start copying files.
  14. //
  15. ShowStatus("Installing Windows Restart 98")
  16. InstallFile(wr98.ex_, wr98.exe)
  17. InstallFile(wr16.ex_, wr16.exe)
  18. InstallFile(readme.htm)
  19. InstallFile(wr98.hlp)
  20. InstallFile(wr98.cnt)
  21. //
  22. // Start registering files.
  23. //
  24. ShowStatus("Registering Windows Restart 98")
  25. //
  26. GetShortPathName("?DefDir?\wr16.exe", "RetVal")
  27. RunExternal("?RetVal? -regserver", "minimize")
  28. //
  29. ShowStatus("Creating Short Cut")
  30. //
  31. CreateShortcut(?DefDir?\wr98.exe, ?Programs?, "Stratoware Windows Restart", wrmenu)
  32. //
  33. HideStatus()
  34. //
  35. GetShortPathName("?DefDir?\wr98.exe", "RetVal")
  36. AddUnSetupItem ("RunExternal [`?RetVal? unreg`^ `minimize`]")
  37. //
  38. GetShortPathName("?DefDir?\wr16.exe", "RetVal")
  39. AddUnSetupItem ("RunExternal [`?RetVal? -unregserver`^ `minimize`]")
  40. //
  41. GetShortPathName("?DefDir?\wr98.exe", "RetVal")
  42. AddUnSetupItem ("RunExternal [`?RetVal? disable`^ `minimize`]")
  43. //
  44. GetShortPathName("?DefDir?\wr98.exe", "RetVal")
  45. LaunchExternal("?RetVal? fireup", "minimize")
  46. //
  47. Notify("Jeffrey Carlyle's Stratoware Windows Restart has been installed!")
  48. //
  49.