home *** CD-ROM | disk | FTP | other *** search
/ Super CD / Super CD.iso / ms-setup / araphone / install.ms_ / install.ms
Encoding:
Text File  |  1994-03-07  |  4.7 KB  |  165 lines
  1. '**************************************************************************
  2. '*                       Phonebook setup.
  3. '**************************************************************************
  4.  
  5. '$INCLUDE 'setupapi.inc'
  6.  
  7. ''Dialog ID's
  8. CONST WELCOME       = 100
  9. CONST ASKQUIT       = 200
  10. CONST DESTPATH      = 300
  11. CONST EXITFAILURE   = 400
  12. CONST EXITQUIT      = 600
  13. CONST EXITSUCCESS   = 700
  14. CONST APPHELP       = 900
  15. CONST BADPATH       = 6400
  16.  
  17. ''Bitmap ID
  18. CONST LOGO = 1
  19.  
  20. GLOBAL DEST$        ''Default destination directory.
  21.  
  22. DECLARE SUB Install
  23. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  24.  
  25.  
  26. INIT:
  27.     CUIDLL$   = "mscuistf.dll"          ''Custom user interface dll
  28.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  29.  
  30.     SetBitmap CUIDLL$, LOGO
  31.     SetTitle "PhoneBook Setup"
  32.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  33.     IF szInf$ = "" THEN
  34.     szInf$ = GetSymbolValue("STF_CWDDIR") + "INSTALL.INF"
  35.     END IF
  36.     ReadInfFile szInf$
  37.     DEST$ = "C:\PB"
  38. '---------------------------------------------------------------------
  39. WELCOME:
  40.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  41.     IF sz$ = "CONTINUE" THEN
  42.     UIPop 1
  43.     ELSE
  44.        GOSUB ASKQUIT
  45.        GOTO WELCOME
  46.     END IF
  47. '-------------------------------------------------------------------
  48. GETPATH:
  49.     SetSymbolValue "EditTextIn", DEST$
  50.     SetSymbolValue "EditFocus", "END"
  51. '-------------------------------------------------------------------
  52. GETPATHL1:
  53.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  54.     DEST$ = GetSymbolValue("EditTextOut")
  55.  
  56.     IF sz$ = "CONTINUE" THEN
  57.     IF IsDirWritable(DEST$) = 0 THEN
  58.         GOSUB BADPATH
  59.         GOTO GETPATHL1
  60.     END IF
  61.     UIPop 1
  62.     ELSEIF sz$ = "REACTIVATE" THEN
  63.     GOTO GETPATHL1
  64.     ELSEIF sz$ = "BACK" THEN
  65.     UIPop 1
  66.     GOTO WELCOME
  67.     ELSE
  68.     GOTO QUIT
  69.     END IF
  70.     Install
  71. '-------------------------------------------------------------------
  72. QUIT:
  73.     ON ERROR GOTO ERRQUIT
  74.  
  75.     IF ERR = 0 THEN
  76.     dlg% = EXITSUCCESS
  77.     ELSEIF ERR = STFQUIT THEN
  78.     dlg% = EXITQUIT
  79.     ELSE
  80.     dlg% = EXITFAILURE
  81.     END IF
  82. '-------------------------------------------------------------------
  83. QUITL1:
  84.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  85.     IF sz$ = "REACTIVATE" THEN
  86.     GOTO QUITL1
  87.     END IF
  88.     UIPop 1
  89.     END
  90.  
  91. '-------------------------------------------------------------------
  92. ERRQUIT:
  93.     i% = DoMsgBox("Setup sources were corrupted, call 555-1212!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  94.     END
  95.  
  96. '-------------------------------------------------------------------
  97. ASKQUIT:
  98.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  99.  
  100.     IF sz$ = "EXIT" THEN
  101.     UIPopAll
  102.     ERROR STFQUIT
  103.     ELSEIF sz$ = "REACTIVATE" THEN
  104.     GOTO ASKQUIT
  105.     ELSE
  106.     UIPop 1
  107.     END IF
  108.     RETURN
  109. '-------------------------------------------------------------------
  110. BADPATH:
  111.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  112.     IF sz$ = "REACTIVATE" THEN
  113.     GOTO BADPATH
  114.     END IF
  115.     UIPop 1
  116.     RETURN
  117. '-------------------------------------------------------------------
  118. '**
  119. '** Purpose:
  120. '**     Builds the copy list and performs all installation operations.
  121. '** Arguments:
  122. '**     none.
  123. '** Returns:
  124. '**     none.
  125. '*************************************************************************
  126. SUB Install STATIC
  127.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  128.     CreateDir DEST$, cmoNone
  129.  
  130.     AddSectionFilesToCopyList "Files", SrcDir$, DEST$
  131.     CopyFilesInCopyList
  132.  
  133.     CreateIniKeyValue "WIN.INI", "Arabic PhoneBook", "Mode", "1", cmoNone
  134.     CreateIniKeyValue "WIN.INI", "Arabic PhoneBook", "MainLastRec", "1", cmoNone
  135.     CreateIniKeyValue "WIN.INI", "Arabic PhoneBook", "MainFile", DEST$+"\"+"Telphone", cmoNone
  136.     CreateIniKeyValue "WIN.INI", "Arabic PhoneBook", "SecFile" , DEST$+"\"+"Telphon2", cmoNone
  137.     CreateProgmanGroup "PhoneBook", "", cmoNone
  138.     ShowProgmanGroup   "PhoneBook", 1, cmoNone
  139.     CreateProgmanItem  "PhoneBook", "PhoneBook", DEST$+"\PHONE.EXE", "", cmoOverwrite
  140.  
  141. END SUB
  142.  
  143. '**
  144. '** Purpose:
  145. '**     Appends a file name to the end of a directory path,
  146. '**     inserting a backslash character as needed.
  147. '** Arguments:
  148. '**     szDir$  - full directory path (with optional ending "\")
  149. '**     szFile$ - filename to append to directory
  150. '** Returns:
  151. '**     Resulting fully qualified path name.
  152. '*************************************************************************
  153. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  154.     IF szDir$ = "" THEN
  155.     MakePath = szFile$
  156.     ELSEIF szFile$ = "" THEN
  157.     MakePath = szDir$
  158.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  159.     MakePath = szDir$ + szFile$
  160.     ELSE
  161.     MakePath = szDir$ + "\" + szFile$
  162.     END IF
  163. END FUNCTION
  164.  
  165.