home *** CD-ROM | disk | FTP | other *** search
/ BBC English Multimedia / Hachette-BBCEnglishMultimedia-LearnEnglish-FrenchVersion-Win31.iso / setup.mst < prev    next >
Text File  |  1995-11-19  |  1KB  |  29 lines
  1. DECLARE FUNCTION GetDriveLetter LIB "mscuistf.dll" (sz$) As INTEGER
  2.  
  3. '$DEFINE DEBUG  ''Define for script development/debugging
  4.  
  5. '$INCLUDE 'setupapi.inc'
  6. '$INCLUDE 'msdetect.inc'
  7.  
  8. INIT:
  9.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  10.  
  11.     SetBitmap CUIDLL$, 1
  12.     SetTitle "Installation BBC English Multimedia"
  13.  
  14. szDrive$="C:\"
  15.     j% = GetDriveLetter(szDrive$)
  16.   '  i% = DoMsgBox(szDrive$, "Debug Msg !!!", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  17.  
  18.     CreateProgmanGroup "BBC English Multimedia", "", cmoNone
  19.     CreateProgmanItem "BBC English Multimedia", "Video for Windows Setup", szDrive$+"vfw_11e\setup.exe", "", cmoOverwrite
  20.     CreateProgmanItem "BBC English Multimedia", "BBC English Multimedia", szDrive$+"testprog.exe", "", cmoOverwrite
  21.     ShowProgmanGroup  "BBC English Multimedia", 1, cmoNone
  22.     i% = DoMsgBox("Installation terminΘe.", "Installation BBC English Multimedia", MB_OK+MB_TASKMODALD)
  23.  
  24.     END
  25.  
  26. QUIT:
  27.     i% = DoMsgBox("Installation incomplΦte.", "Installation BBC English Multimedia", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  28.     END
  29.