home *** CD-ROM | disk | FTP | other *** search
/ PC go! Special 11 / SPIELE2.ISO / demos / bibel / setup.mst < prev    next >
Encoding:
Text File  |  1995-11-02  |  2.3 KB  |  63 lines
  1. '*************************************************************************
  2. ' Setup script fⁿr die Bibel
  3. ' 20/9/95 Patrick Dowling
  4. '*************************************************************************
  5.  
  6. '$INCLUDE 'setupapi.inc'
  7.  
  8. '*************************************************************************
  9. 'DIALOG IDS
  10. '*************************************************************************
  11.  
  12. '*************************************************************************
  13. 'BITMAP IDS
  14. '*************************************************************************
  15. CONST   LOGO    =       1               ' Only bitmap available in cuistf.dll
  16.  
  17. '*************************************************************************
  18. ' VARIABLES & FUNCTION DECLARATIONS
  19. '*************************************************************************
  20. GLOBAL  CUIDLL$                         ' Custom dialogs
  21. GLOBAL  CD_ROM_PATH$                    ' CD path
  22.  
  23. CONST   GROUP_NAME$     =       "Sunflowers Kids"       ' group name for program manager
  24. CONST   ITEM_NAME$      =       "Kinder entdecken die Bibel-DEMO"             ' item name in group
  25. CONST   EXE_NAME$       =       "play.exe"              ' executable name
  26. CONST   ICON_NAME$      =       "Bibel.ico"             ' icon name
  27.  
  28. '*************************************************************************
  29. ' MAIN PROG
  30. '*************************************************************************
  31.  
  32. ' INIT STUFF
  33.     CUIDLL$ = "mscuistf.dll"
  34.         
  35.     szInf$ = GetSymbolValue("STF_SRCINFPATH")                       
  36.     IF szInf$ = "" THEN                                             
  37.         szInf$ = GetSymbolValue("STF_CWDDIR") + "setup.inf"     
  38.     END IF
  39.     ReadInfFile szInf$      ' Read .inf file
  40.  
  41.     CD_ROM_PATH$ = GetSymbolValue("STF_SRCDIR")
  42.  
  43. '        SetBitmap CUIDLL$, LOGO         ' show bitmap
  44.  
  45. ' DISPLAY WELCOME MESSAGE
  46.  
  47. ' CHECK FOR CORRECT HARDWARE & STUFF
  48.  
  49. ' HARDWARE NOT OK?
  50.  
  51. ' CREATE GROUP & ICON
  52.     CreateProgmanGroup GROUP_NAME$, "", cmoNone
  53.     ShowProgmanGroup GROUP_NAME$, 1, cmoNone
  54.  
  55.     CreateProgmanItem GROUP_NAME$, ITEM_NAME$,CD_ROM_PATH$ + EXE_NAME$, CD_ROM_PATH$ + ICON_NAME$, cmoOverwrite
  56.  
  57. ' CUL8R
  58. QUIT:
  59. ' Tell user all is well & leave
  60.     i% = DoMsgBox("Installation erfolgreich!","Kinder entdecken die Bibel - DEMO",MB_TASKMODAL+MB_OK)        
  61.  
  62.     END
  63.