home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p036 / 15.ddi / WCSETUP.IN_ / WCSETUP.bin
Encoding:
Text File  |  1992-07-01  |  4.5 KB  |  150 lines
  1. CONST MB_OKCANCEL        = 1
  2. CONST MB_ABORTRETRYIGNORE   = 2
  3. CONST MB_YESNOCANCEL        = 3
  4. CONST MB_YESNO            = 4
  5. CONST MB_RETRYCANCEL        = 5
  6.  
  7. CONST MB_ICONQUESTION        = 32
  8. CONST MB_ICONEXCLAMATION    = 48
  9. CONST MB_ICONASTERISK        = 64
  10.  
  11. CONST IDOK            = 1
  12. CONST IDCANCEL            = 2
  13. CONST IDABORT            = 3
  14. CONST IDRETRY            = 4
  15. CONST IDIGNORE            = 5
  16. CONST IDYES            = 6
  17. CONST IDNO            = 7
  18.  
  19. ''Dialog ID's
  20. CONST WELCOME                     =100
  21. CONST ASKQUIT                     =200
  22. CONST DESTPATH                    =300
  23. CONST EXITFAILURE                 =400
  24. CONST EXITQUIT                    =600
  25. CONST EXITSUCCESS                 =700
  26. CONST OPTIONS                     =800
  27. CONST APPHELP                     =900
  28. CONST TOOBIG                       =6300
  29. CONST BADPATH                    =6400
  30. CONST ASKCONFIGSYS                =1100
  31. CONST CONFIGURMS                  =1200
  32. CONST ASKUSCONFIG1                =1300
  33. CONST ASKUSCONFIG2                =1400
  34. CONST IDC_USTNBUG                 =1203
  35. CONST SELCOMPONENT                =1600
  36. CONST OPTIONHELP                  =1700
  37. CONST WCCONFIG                    =1000
  38. CONST MORENEXUS                   =1800
  39.  
  40. DECLARE SUB SetupPIF LIB "wcsetup.dll" (szPif$, szCmd$, szDir$)
  41. DECLARE SUB CreateNewConfigSys LIB "wcsetup.dll" (szDvr$, szCmd$)
  42. DECLARE FUNCTION PresetMicroStationConfig LIB "wcsetup.dll" (szUstnRootDir$, revFlag%) AS INTEGER
  43. DECLARE FUNCTION PostsetMicroStationConfig LIB "wcsetup.dll" (szUstnRootDir$, revFlag%) AS INTEGER
  44. DECLARE FUNCTION SetupUstnwinBat LIB "wcsetup.dll" (szUstnRootDir$, revFlag%) AS INTEGER
  45.  
  46. DECLARE FUNCTION CfgWinC (szUstnDir$) AS INTEGER
  47. '**************************************************************************
  48. FUNCTION CfgWinC (szUstnDir$) STATIC AS INTEGER
  49.  
  50.     USTN$    = szUstnDir$+ "\"
  51.     USTNDATA$    = USTN$ + "DATA\"
  52.     
  53. CFGMSL1:
  54.     sz$ = UIStartDlg(CUIDLL$, CONFIGURMS, "FInfo0DlgProc", 0, "")
  55.     IF sz$ = "REACTIVATE" THEN
  56.         GOTO CFGMSL1
  57.     ELSEIF sz$ = "CANCEL" THEN 
  58.     UIPop 1
  59.     CfgWinC = 1
  60.     GOTO ENDCFGWINC
  61.     ENDIF
  62.     UIPop 1
  63.  
  64. CHECKCFG:    
  65.     i% = DoesFileExist (USTN$+USTNBAT$, femExists) + DoesFileExist (USTNDATA$+USTNCFG$, femExists) + DoesFileExist (USTNDATA$+CFGDAT$, femExists)
  66.     
  67.     if i% <> 3 then
  68. ASKUSC1L1:
  69.     sz$ = UIStartDlg(CUIDLL$, ASKUSCONFIG1, "FInfo0DlgProc", 0, "")
  70.     IF sz$ = "REACTIVATE" THEN
  71.         GOTO ASKUSC1L1
  72.     END IF
  73.     UIPop 1
  74.  
  75.     if sz$ = "CONTINUE" then 
  76.         Shell USTN$+USCONFIG$
  77.         goto CHECKCFG
  78.     else
  79.         CfgWinC = 1
  80.         goto ENDCFGWINC
  81.     endif
  82.     endif
  83.  
  84.     
  85.     CopyFile USTN$+USTNBAT$, USTN$+"ustation.old", cmoOverwrite, 0
  86.     CopyFile USTNDATA$+USTNCFG$, USTNDATA$+"ustation.old", cmoOverwrite, 0
  87.     CopyFile USTNDATA$+CFGDAT$, USTNDATA$+"configur.old", cmoOverwrite, 0
  88.  
  89.     i% = PresetMicroStationConfig (szUstnDir$, REVIEWFLAG%)
  90.  
  91. ASKUSC2L1:
  92.     sz$ = UIStartDlg(CUIDLL$, ASKUSCONFIG2, "FInfo0DlgProc", 0, "")
  93.     IF sz$ = "REACTIVATE" THEN
  94.     GOTO ASKUSC2L1
  95.     END IF
  96.     UIPop 1
  97.  
  98.     IF sz$ = "BACK" THEN 
  99.     Shell USTN$+USCONFIG$
  100.     ENDIF
  101.  
  102.     i% = PostsetMicroStationConfig (szUstnDir$, REVIEWFLAG%)
  103.  
  104.     CopyFile USTN$+USTNBAT$, USTN$+"ustnwin.bat", cmoOverwrite, 0
  105.     CopyFile USTNDATA$+CFGDAT$, USTNDATA$+"confwin.dat", cmoOverwrite, 0
  106.     i% = SetupUstnwinBat (szUstnDir$, 0)
  107.  
  108.     CopyFile USTN$+"ustation.old", USTN$+USTNBAT$, cmoOverwrite, 0
  109.     CopyFile USTNDATA$+"ustation.old", USTNDATA$+USTNCFG$, cmoOverwrite, 0
  110.     CopyFile USTNDATA$+"configur.old", USTNDATA$+CFGDAT$, cmoOverwrite, 0
  111.  
  112. CFGDONE:
  113.     sz$ = UIStartDlg(CUIDLL$, WCCONFIG, "FInfo0DlgProc", 0, "")
  114.     IF sz$ = "REACTIVATE" THEN
  115.         GOTO CFGDONE
  116.     ENDIF
  117.     UIPop 1
  118.     CfgWinC = 0
  119.  
  120. ENDCFGWINC:    
  121.  
  122. END FUNCTION
  123.  
  124.  
  125.  
  126. DECLARE FUNCTION IsValidUstnDir (szUstnDir$) AS INTEGER
  127. '**************************************************************************
  128. FUNCTION IsValidUstnDir (szUstnDir$) STATIC AS INTEGER
  129.  
  130.     IF DoesFileExist(szUstnDir$+"\MGDS.EXE",femExists) + DoesFileExist(szUstnDir$+"\USCONFIG.EXE", femExists) THEN
  131.     USTNCFG$ = "ustation.cfg"
  132.     USTNBAT$ = "ustation.bat"
  133.     CFGDAT$ = "configur.dat"
  134.     USCONFIG$ = "usconfig.exe"
  135.     REVIEWFLAG% = 0
  136.     IsValidUstnDir = 1
  137.     ELSEIF DoesFileExist(szUstnDir$+"\MSREVIEW.EXE",femExists) + DoesFileExist(szUstnDir$+"\RVCONFIG.EXE", femExists) THEN
  138.     USTNCFG$ = "msreview.cfg"
  139.     USTNBAT$ = "review.bat"
  140.     CFGDAT$ = "configur.dat"
  141.     USCONFIG$ = "rvconfig.exe"
  142.     REVIEWFLAG% = 1
  143.     IsValidUstnDir = 1
  144.     ELSE
  145.     IsValidUstnDir = 0
  146.     ENDIF
  147.  
  148. END FUNCTION
  149.  
  150.