home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1996 April / ADVANTAGE.ISO / ms.inf < prev    next >
Encoding:
Text File  |  1995-10-24  |  1.4 KB  |  68 lines
  1. ;; Microsoft Advantage Installation script
  2. ;; Author: Stuart Green
  3. ;; Date: 20/10/95
  4. ;; Last Revision: 26/10/95
  5.  
  6.  
  7. DefineVariables
  8.  
  9. Text [GroupName] := Microsoft Advantage Library
  10. Text [ExeIconName] := Microsoft Advantage
  11. Text [ExeIconFilename] := disk.ico
  12. Text [ExeFileName] := msadvan.exe
  13. Text [ReadMeFilename] := readme.txt
  14. Text [ReadMeIconName] := Read Me
  15. Text [TotalFilesSize] := 
  16. Logical [InstallationSuccessful] := NoCharacter
  17. Logical [DirExists] := NoCharacter
  18.  
  19. EndDefineVariables
  20.  
  21. ;; Start script
  22.  
  23. ;; Install quicktime for windows
  24.  
  25. run [InstallFromDrive]:\qtw\qtinstal.exe
  26.  
  27. ;; Install video for windows
  28.  
  29. run [InstallFromDrive]:\vfw\vsetup.exe
  30.  
  31.  
  32. ;; Set up Program Group and Icon
  33.  
  34. ProgramManagerDDE
  35.     CreateGroup([GroupName])
  36.     ReplaceItem ([ExeIconName])
  37.     AddItem([InstallFromDrive]:\[ExeFilename],[ExeIconName],[InstallFromDrive]:\[ExeIconFilename],,,,[InstallFromDrive]:\)
  38.     ReplaceItem ([ReadMeIconName])
  39.     AddItem(Notepad [InstallFromDrive]:\[ReadMeFilename],[ReadMeIconName],,,,,[InstallFromDrive]:\)
  40.     ShowGroup ([GroupName], 1)
  41. EndProgramManagerDDE
  42.  
  43. [InstallationSuccessful] := YesCharacter
  44.  
  45. Popup Installation Complete.
  46.  
  47.  
  48. SoLong
  49.  
  50. ;;
  51. ;;Procedures
  52. ;;
  53.  
  54. ;;Silence non-fatal dde errors
  55.  
  56. Procedure DDENonFatalErrorTrap
  57. EndProcedure
  58.  
  59.  
  60. ;; Handle aborts
  61.  
  62. Procedure ExitProcedure
  63.  
  64.     If [InstallationSuccessful] = NoCharacter
  65.         Popup [ExeIconName] not correctly loaded. Rerun setup at a later time.
  66.     EndIf
  67. EndProcedure
  68.