home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1996 June / BUYER_696.iso / business / anytime / specific.in_ / specific.bin
Encoding:
Text File  |  1995-05-10  |  4.2 KB  |  166 lines
  1. ''--------------------------------------------------------------------
  2. '' AnyTime for Windows specific install functions
  3. '' Copyright (c) 1993 Individual Software, Inc.
  4. ''--------------------------------------------------------------------
  5.  
  6.  
  7. '' Variable for network installs - "0" = Standalone Version, "1" = Network Version
  8.  
  9.     CONST NETINSTALL% = 1
  10.  
  11. '' Variable for Demo Install  "1" = Demo Install    
  12.     CONST DEMO% = 1
  13.  
  14. '' Set Stamp Constants
  15.  
  16.     CONST IDC_STAMP = 2000      ''EUB - See doc for details
  17.  
  18. '' Set Version number - straight integers, no decimals
  19.  
  20.     CONST NewATWVerVal& = 3000
  21.  
  22.  
  23. '' Set up product-specific titles, etc.
  24. SUB SetProductTitles STATIC
  25.     SetTitle "AnyTime for Windows"      ''Setup Window Title
  26.     ATWAPP$ = "AnyTime for Windows"     ''Text under the icon
  27. END SUB
  28.  
  29.  
  30. FUNCTION InfFile() STATIC AS STRING
  31.     InfFile = "ATW.INF"
  32. END FUNCTION
  33.  
  34.  
  35. FUNCTION MakeInstDir(D$) STATIC AS STRING
  36.  
  37.     S$  = D$ + ":\ANYWIN"
  38.     MakeInstDir = S$
  39.  
  40. END FUNCTION
  41.  
  42.  
  43.     SUB AddInfSectionNames(BASE$, BASEINST$) STATIC
  44.     '' These are the base files we can install
  45. ''--AddListItem BASE$, "Base Files"
  46.     AddListItem BASE$, "Files"
  47.     SetSymbolValue BASEINST$, GetSymbolValue(BASE$)
  48.  
  49. END SUB
  50.  
  51.  
  52. SUB RecalcPath STATIC
  53.     CursorSave% = ShowWaitCursor()
  54.     RecalcOptFiles BASEFILES
  55.     RestoreCursor CursorSave%
  56. END SUB
  57.  
  58.  
  59. SUB AddOptFiles STATIC
  60.     AddOptFilesToCopyList BASEFILES
  61. END SUB
  62.  
  63.  
  64. SUB AddOptFilesToCopyList (ftype%) STATIC
  65.  
  66.     IF GetListItem(CHECKSTATES$, ftype%) = "ON" THEN
  67.         SrcDir$ = GetSymbolValue("STF_SRCDIR")
  68.         IF ftype% = BASEFILES THEN
  69.             ''Base files
  70.             l% = GetListLength(BASEINST$)
  71.             FOR i% = 1 TO l% STEP 1
  72.                 AddSectionFilesToCopyList GetListItem(BASEINST$, i%), SrcDir$, DEST$
  73.             NEXT i%
  74.  
  75. ''-----     AddSectionFilesToCopyList "AnyTime", SrcDir$, DEST$
  76.         END IF
  77.         SrcDir$ = ""
  78.     END IF
  79.  
  80. END SUB
  81.  
  82.  
  83. SUB SetDriveStatus STATIC
  84.     FITS% = 0
  85.     drive$ = MID$(DEST$, 1, 1)
  86.  
  87.     cost& = 3200000
  88.     free& = GetFreeSpaceForDrive(drive$)
  89.  
  90. ''    i% = DoMsgBox("Total hard disk space required as reported by cost variable = "+str$(cost&), ATWAPP$, MB_OK)
  91.  
  92.  
  93.     IF cost& > free& THEN
  94.         FITS% = 1
  95.     END IF
  96.  
  97.     ReplaceListItem DRIVETEXT$, 1, drive$ + ":"
  98.     ReplaceListItem DRIVETEXT$, 2, STR$(cost& / 1024) + " K"
  99.     ReplaceListItem DRIVETEXT$, 3, STR$(free& / 1024) + " K"
  100.  
  101. END SUB
  102.  
  103.  
  104. '' Add billboard dialogs for this app
  105. SUB AddBillboards STATIC
  106.     AddToBillboardList CUIDLL$, BBD1, "FModelessDlgProc", 100
  107. '   AddToBillboardList CUIDLL$, BBD6, "FModelessDlgProc", 100
  108. END SUB
  109.  
  110.  
  111.   CONST IDC_STAMP2 = &H59      ''EUB - See doc for details
  112.   CONST RT_STRING2 = 6         ''EUB
  113.  
  114. SUB ConfigureApps STATIC
  115.  
  116.     '' This is so Uninstall can find where we're installed
  117.     CreateIniKeyValue WININI$, "AnyTime for Windows", "Directory", DEST$, cmoOverwrite
  118.  
  119.     '' connect ourselves to the Extensions list so File Manager
  120.     '' and others can launch us with a file
  121.     CreateIniKeyValue WININI$, "Extensions", "atw", MakePath(DEST$,"anytime.exe ^.atw"), cmoOverwrite
  122.  
  123.     '' This is the name of the group we'll install into
  124.     GROUP$ = "AnyTime for Windows"
  125.  
  126.     '' Configure base applications
  127.     IF GetListItem(CHECKSTATES$, BASEFILES) = "ON" THEN
  128.  
  129. MakeGroup:
  130.         '' Create a group for us...
  131.         CreateProgmanGroup GROUP$, "", cmoBackup
  132.  
  133.  
  134.         '' Setup ATW Program
  135.         CreateProgmanItem GROUP$, ATWAPP$, MakePath(DEST$,"ANYTIME.EXE"),"" , cmoOverwrite
  136.         IF GROUP$ <> "STARTUP" THEN
  137.             CreateProgmanItem GROUP$, "Read Me", "write.exe " + MakePath(DEST$, "readme.wri"), "", cmoOverwrite
  138.         END IF
  139.     END IF
  140.  
  141.  
  142.     ''Stamp the ATWABOUT.DLL file
  143.     IF len(STAMP$) > 0 THEN
  144.         StampResource "Files", "ATW About", DEST$, RT_STRING2, IDC_STAMP2, STAMP$, STAMPLEN
  145.     END IF
  146.  
  147.  
  148.     IF DEMO% = 1 THEN
  149.        INSTALLSTAMP$ = MakePath(DEST$,"ATWRES.DLL")
  150.        DISKSTAMP$ = MakePath(CDDRV$,"ATWRES.DLL")
  151.  
  152.        dkw% = StampCurrentTimeDate(INSTALLSTAMP$,10)
  153.     END IF
  154.  
  155.  
  156. END SUB
  157.  
  158.  
  159.  
  160. '' Remove all files and directories...
  161.  
  162. SUB DoUninstall STATIC
  163.  
  164. END SUB
  165.  
  166.