home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 October / VPR9710A.ISO / PLUGIN / INTERVU / install.exe / FindStuff.ins < prev    next >
Text File  |  1997-05-19  |  2KB  |  46 lines
  1. //
  2. // FindStuff.ins -- Find various things we need
  3. //
  4. SetProgramMode("ObtainInfo");
  5. //
  6. // Here's where we define where we get stuff...
  7. //
  8. LoadScript("LocateWebSites.ins","25");
  9. WindowsPath=GetStringRegValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion","SystemRoot");
  10. Win95Style="TRUE";
  11. IfEqual(WindowsPath,"")
  12. {
  13.     // Must be WinNT...
  14.     WindowsPath=GetStringRegValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","SystemRoot");
  15.     WindowsVersion=GetStringRegValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","CurrentVersion");
  16.     IfNotEqual(WindowsVersion,"4.0")
  17.     {
  18.         Win95Style="FALSE";
  19.     }
  20. }
  21. SystemPath=WindowsPath+"\System\";
  22. OccacheDir=WindowsPath+"\Occache\";
  23. IfEqual(Win95Style,"TRUE");
  24. {
  25.     ProgramFolder=GetStringRegValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Programs");
  26.     IVFolder=ProgramFolder+"\InterVU";
  27.     Desktop=GetStringRegValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop");
  28. }
  29. SetProgress("50");
  30. WindowsPath=WindowsPath+"\";
  31. HomeDir=GetStringRegValue("HKEY_LOCAL_MACHINE\SOFTWARE\InterVU\VUTopia\1.0","Path Name");
  32. IfEqual(HomeDir,"")
  33. {
  34.     HomeDir="C:\Program Files";
  35.     ChooseDir=PromptYesNo("InterVU files will be installed in C:\Program Files\InterVU by default.\nClick Yes to continue, otherwise click No to choose a different parent folder.");
  36.     IfEqual(ChooseDir,"No");
  37.     {
  38.         HomeDir=GetDirPath("Select existing folder",HomeDir);
  39.     }
  40.     HomeDir=HomeDir+"\InterVU";
  41.     SetStringRegValue("HKEY_LOCAL_MACHINE\SOFTWARE\InterVU\VUTopia\1.0","Path Name",HomeDir);
  42. }
  43. HomeDir=HomeDir+"\";
  44. InstDir=HomeDir+"Multimedia Manager\";
  45. Browser=DefaultBrowser();
  46. SetProgress("100");