home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 October / VPR9710A.ISO / PLUGIN / INTERVU / install.exe / InitGetItAll.ins < prev    next >
Text File  |  1997-06-06  |  2KB  |  55 lines
  1. // Install
  2. // Get It All
  3. //Doing this will install and run the InterVU Fast Track software to improve your computer's
  4. // network multimedia performance.  You will also be asked if you'd like to install
  5. // additional multimedia capabilities as well.
  6. Prompt("You're about to Get Smart and get on the InterVU Fast Track.\nClick OK to begin.");
  7. LoadScript("NetscapeChecks.ins","2");
  8. //
  9. // Find out where stuff is...
  10. //
  11. LoadScript("FindStuff.ins","3");
  12. //
  13. // Create Plugin, InterVU Directories
  14. //
  15. LoadScript("CreateDirs.ins","2");
  16. //
  17. // Start installing files:
  18. // Install the Installer:
  19. //
  20. SetProgramMode("CopyFromDisk");
  21. CopyExpand("Setup.exe",InstDir+"Setup.exe");
  22. // Copy the scripts
  23. CopyExpand("CreateDirs.ins",InstDir+"CreateDirs.ins");
  24. CopyExpand("FindStuff.ins",InstDir+"FindStuff.ins");
  25. CopyExpand("LocateWebSites.ins",InstDir+"LocateWebSites.ins");
  26. CopyExpand("NetscapeChecks.ins",InstDir+"NetscapeChecks.ins");
  27. CopyExpand("UpdateScripts.ins",InstDir+"UpdateScripts.ins");
  28. SetProgress("10");
  29. SetProgramMode("UpdateComputer");
  30. SetStringRegValue("HKEY_LOCAL_MACHINE\SOFTWARE\InterVU\VUTopia\1.0","Updater Installed","YES");
  31. SetStringRegValue("HKEY_LOCAL_MACHINE\SOFTWARE\InterVU\VUTopia\1.0","Updater Filespec",InstDir+"Setup.exe");
  32. VersionString="19970607" 
  33. SetStringRegValue("HKEY_LOCAL_MACHINE\SOFTWARE\InterVU\VUTopia\1.0\Versions","INSTALLER32",VersionString);
  34. IfEqual(Win95Style,"TRUE")
  35. {
  36.     // Add shortcut link.
  37.     CreateShortcut(InstDir+"Setup.exe", "", IVFolder+"\Multimedia Manager.lnk","Multimedia Manager");
  38.     CreateShortcut(InstDir+"Setup.exe", "", Desktop+"\Multimedia Manager.lnk","Multimedia Manager");
  39. }
  40. IfEqual(Win95Style,"FALSE")
  41. {
  42.     // WinNT 3.51.  Ugh...
  43. }
  44. SetProgress("12");
  45. ChangeDirectory(InstDir);
  46. LoadScript("UpdateScripts.ins","8");
  47. LoadScript("DoGetItAllMain.ins","80");
  48. SetProgress("100");
  49. RunBrowser=PromptYesNo("Would you like to open a copy of your default Web browser?");
  50. IfEqual(RunBrowser,"Yes")
  51. {
  52.    RunProgram(Browser+" http://www.intervu.net/help/win32/congrats.html","Yes");
  53. }
  54. Exit();
  55.