home *** CD-ROM | disk | FTP | other *** search
/ CD-X 5 / cdx_05.nrg / gdemos / ds2 / mydlg.mst < prev    next >
Encoding:
Text File  |  1995-09-12  |  2.6 KB  |  100 lines
  1. '$INCLUDE 'setupapi.inc'
  2. '$INCLUDE 'msdetect.inc'
  3.  
  4. GLOBAL DarkSeedDir$
  5. GLOBAL WindowsDir$
  6. GLOBAL WindowsSysDir$
  7. GLOBAL GamerName$
  8. GLOBAL ProdRegNum$
  9. GLOBAL intval%
  10. GLOBAL IniFile$
  11. DECLARE SUB Install
  12. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  13.  
  14.  
  15. INIT:
  16.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  17.     SetBitMap CUIDLL$, 111
  18.     SetTitle "Dark Seed II Demo Setup"
  19.  
  20.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  21.     IF szInf$ = "" THEN
  22.     szInf$ = GetSymbolValue("STF_CWDDIR") + "mydlg.inf"
  23.     END IF
  24.     ReadInfFile szInf$
  25.  
  26.     DarkSeedDir$ = "C:\DSIIDEMO\"
  27.     WindowsDir=GetWindowsDir()
  28.     WindowsSysDir=GetWindowsSysDir()
  29.  
  30.  
  31. GETPATH:
  32.     SetSymbolValue "DS2Dir",DarkSeedDir$
  33.     SetSymbolValue "GamerName","Dark Seed II Player"
  34.     SetSymbolValue "ProdRegNum","0123456789"
  35.     SetSymbolValue "EditFocus", "END"
  36.     OPTCUR$="1"
  37.  
  38. GETPATHL1:
  39.     sz$ = UIStartDlg(CUIDLL$, 1000, "FEditDlgProc", -1,"")
  40.  
  41.     DarkSeedDir$ = GetSymbolValue("DS2Dir")
  42.     IF sz$ = "OKAY" THEN
  43.  
  44.       if ( MID$(DarkSeedDir$,LEN(DarkSeedDir$),1) <> "\" ) then
  45.         intval%=DoMsgBox("Directory path should end with a back slash ('\').","Setup Error", MB_OK)
  46.     UIPop 1
  47.     GOTO GETPATHL1
  48.       endif
  49.     IF IsDirWritable(DarkSeedDir$) = 0 THEN
  50.           intval% = DoMsgBox("Can not create/write to Dark Seed II demo directory.", "Setup Error", MB_OK)
  51.       UIPop 1
  52.       GOTO GETPATHL1
  53.     END IF
  54.     UIPop 1
  55.     elseif sz$ = "EXIT" then
  56.     end
  57.     ELSEif sz$ = "REACTIVATE" THEN
  58.     GOTO GETPATHL1
  59.     END IF
  60.  
  61.     Install
  62.  
  63.     end
  64.  
  65. SUB Install STATIC
  66.  
  67.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  68.     CreateDir DarkSeedDir$, cmoNone
  69.  
  70.     AddSectionFilesToCopyList "DS2", SrcDir$+"darkseed\", DarkSeedDir$
  71.     CopyFilesInCopyList
  72.     AddSectionFilesToCopyList "WinG", SrcDir$+"wing\", WindowsSysDir$
  73.     CopyFilesInCopyList
  74.  
  75.     IniFile$ = DarkSeedDir$ + "darkseed.ini"
  76.     CreateIniKeyValue IniFile$, "DIRECTORY", "CD", SrcDir$+"darkseed\", cmoOverwrite
  77.  
  78.     CreateProgmanGroup "DSII-DEMO",DarkSeedDir$+"dsiidemo.grp",cmoNone
  79.     CreateProgmanItem "DSII-DEMO","Darkseed II-DEMO",DarkSeedDir$ + "ds2_demo.exe","",cmoOverwrite
  80.     ShowProgmanGroup "DSII-DEMO",1,cmoNone
  81.     intval=DoMsgBox("Setup Completed.  Everything seems to be OK.","Dark Seed II Demo Setup",MB_OK)
  82.     end
  83.  
  84. END SUB
  85.  
  86. QUIT:
  87.      end
  88.  
  89. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  90.     IF szDir$ = "" THEN
  91.     MakePath = szFile$
  92.     ELSEIF szFile$ = "" THEN
  93.     MakePath = szDir$
  94.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  95.     MakePath = szDir$ + szFile$
  96.     ELSE
  97.     MakePath = szDir$ + "\" + szFile$
  98.     END IF
  99. END FUNCTION
  100.