home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p036 / 15.ddi / WCCONFIG.MS_ / WCCONFIG.bin
Encoding:
Text File  |  1992-07-01  |  1.5 KB  |  56 lines
  1. '**************************************************************************
  2. '*             MicroStation Windows Connection Configuration
  3. '**************************************************************************
  4.  
  5. '$DEFINE DEBUG  ''Define for script development/debugging
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8. '$INCLUDE 'msdetect.inc'
  9.  
  10. GLOBAL    CUIDLL$, USTNCFG$, USTNBAT$, CFGDAT$, USCONFIG$, REVIEWFLAG%
  11.  
  12. '$INCLUDE 'wcsetup.inc'
  13.  
  14. ''Bitmap ID
  15. CONST NEXUSLOGO = 1
  16.  
  17.  
  18. INIT:
  19.     CUIDLL$ = "wcsetup.dll"            ''Custom user interface dll
  20.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  21.  
  22.     SetBitmap CUIDLL$, NEXUSLOGO
  23.     SetTitle "MicroStation Windows Connection Setup"
  24.     
  25.     USTNDIR$ = GetIniKeyString (GetWindowsDir()+"ustation.ini", "Windows Connection", "uStnDir")
  26.     IF USTNDIR$ = "" then
  27.         i% = DoMsgBox("Unable to locate MicroStation directory.", "Setup Error", MB_OK+MB_TASKMODAL+MB_ICONSTOP)
  28.     ERR = 1
  29.     goto QUIT
  30.     ELSEIF IsValidUstnDir (USTNDIR$) = 0 THEN
  31.     i% = DoMsgBox(USTNDIR$ + " is not a valid MicroStation or Review directory.", "Setup Error", MB_TASKMODAL+MB_OK+MB_ICONSTOP)
  32.     ERR = 1
  33.     goto QUIT
  34.     ENDIF    
  35.  
  36.     i% = CfgWinC (USTNDIR$)
  37.  
  38. QUIT:
  39.     IF ERR = 0 THEN
  40.         dlg% = EXITSUCCESS
  41.     ELSEIF ERR = STFQUIT THEN
  42.         dlg% = EXITQUIT
  43.     ELSE
  44.         dlg% = EXITFAILURE
  45.     END IF
  46. QUITL1:
  47.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  48.     IF sz$ = "REACTIVATE" THEN
  49.         GOTO QUITL1
  50.     END IF
  51.     UIPop 1
  52.  
  53.     END
  54.  
  55.  
  56.