home *** CD-ROM | disk | FTP | other *** search
/ The Best of Windows 95.com 1996 December / WIN95_DEC_1996_1.ISO / commsmisc / demo30.exe / DISK1.EXE / CA30.MS_ / CA30.MS
Text File  |  1996-08-23  |  18KB  |  626 lines

  1. '**************************************************************************
  2. '*                       MSSetup Toolkit Setup for CallAudit
  3. '**************************************************************************
  4.  
  5. '$DEFINE DEBUG  ''Define for script development/debugging
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8. '$INCLUDE 'msdetect.inc'
  9.  
  10. ''Dialog ID's
  11. CONST WELCOME       = 100
  12. CONST ASKQUIT       = 200
  13. CONST DESTPATH      = 300
  14. CONST EXITFAILURE   = 400
  15. CONST EXITQUIT      = 600
  16. CONST EXITSUCCESS   = 700
  17. CONST OPTIONS       = 800
  18. CONST APPHELP       = 900
  19. CONST BADPATH       = 6400
  20. CONST GETNAME       = 7500
  21. CONST CONFIRMNAME   = 7300
  22. CONST REGCARD       = 7801
  23. CONST CONFIRMPREV   = 7802
  24. CONST AREACODEDLG   = 1000
  25. CONST CIDOPTIONSDLG = 1100
  26. CONST ASKUNINSTALL  = 2000
  27. CONST EXITUNINSTALL = 2100
  28. CONST CLOSECOMMSW   = 2200
  29. CONST SOUND_OPTIONS = 2300
  30. CONST COPY_INSTALL  = 2400
  31.  
  32.  
  33.  
  34. ''Parameters to maximize setup window area
  35. CONST WS_VISIBLE=&H10000000
  36. CONST WS_BORDER =&H00800000
  37. CONST WS_CLIPCHILDREN =&H02000000
  38. CONST GWL_STYLE =-16
  39. CONST SW_SHOWMAXIMIZED=3
  40.  
  41. DECLARE FUNCTION ShowWindow  LIB "user.exe" (hWnd%,iShow%) AS INTEGER
  42. DECLARE FUNCTION SetWindowLong LIB "user.exe" (hWnd%, offset%, style&) AS LONG     ''this declaration must all be on one line
  43.  
  44.  
  45. ''Bitmap ID
  46. CONST LOGO = 1
  47.  
  48. GLOBAL DEST$        ''Default destination directory.
  49. GLOBAL DestDrive$   ''Default destination drive
  50. GLOBAL OPTCUR$      ''Option selection from option dialog.
  51. GLOBAL UserName$    ''User name for registration.
  52. GLOBAL UserOrg$     ''User company for registration.
  53. GLOBAL CALAUDITINI$ ''CallAudit INI file name
  54. GLOBAL CALAUDITOLDINI$ ''Old CallAudit INI file name
  55.  
  56.  
  57. DECLARE SUB Install
  58. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  59.  
  60. INIT:
  61. '
  62. ' Make setup window maximized
  63. '
  64. hWnd%=HwndFrame()
  65. i1&=SetWindowLong(hWnd%,GWL_STYLE,WS_VISIBLE+WS_BORDER+WS_CLIPCHILDREN)
  66. j1%=ShowWindow(hWnd%,SW_SHOWMAXIMIZED)
  67.  
  68.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  69.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  70.  
  71.     SetBitmap CUIDLL$, LOGO
  72.     SetTitle "CallAudit Installation and Setup"
  73.  
  74.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  75.     IF szInf$ = "" THEN
  76.         szInf$ = GetSymbolValue("STF_CWDDIR") + "CA30.INF"
  77.     END IF
  78.     ReadInfFile szInf$
  79.  
  80.     OPTCUR$ = "1"
  81.     DEST$ = "C:\CalAudit"
  82.     CALAUDITINI$ = GetWindowsDir+"CalAud32.ini"
  83.     CALAUDITOLDINI$ = GetWindowsDir+"CalAudit.ini"
  84.  
  85. '$IFDEF DEBUG
  86.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  87.     WinDrive$ = MID$(GetWindowsDir, 1, 1)
  88.     IF IsDriveValid(WinDrive$) = 0 THEN
  89.         i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  90.         GOTO QUIT
  91.     END IF
  92. '$ENDIF ''DEBUG
  93.  
  94.  
  95. '
  96. ' Put up welcome dialog
  97. '
  98. WELCOME:
  99.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  100.     IF sz$ = "CONTINUE" THEN
  101.         UIPop 1
  102.     ELSE
  103.         GOSUB ASKQUIT
  104.         GOTO WELCOME
  105.     END IF
  106.  
  107.  
  108. '
  109. ' Put up comm software alert dialog
  110. '
  111. CHECKCOMM:
  112.     sz$ = UIStartDlg(CUIDLL$, CLOSECOMMSW, "FInfoDlgProc", APPHELP, HELPPROC$)
  113.     IF sz$ = "CONTINUE" THEN
  114.         UIPop 1
  115.     ELSE
  116.         UIPopAll
  117.         ERROR STFQUIT
  118.     END IF
  119.  
  120.  
  121. '
  122. ' Check if name and company exists from previous installation
  123. '
  124. CHECKNAMEORG:
  125.     'First check if new CallAudit ini file exists
  126.     IF DoesFileExist(CALAUDITINI$, femExists) = 1 THEN
  127.         ' Get the current values from the ini file
  128.         UserName$ = GetIniKeyString(CALAUDITINI$, "OwnerShip", "registeredOwner")
  129.         UserOrg$ = GetIniKeyString(CALAUDITINI$, "OwnerShip", "registeredOwnerCompany")
  130.         GOTO CONFIRMOLD
  131.     ELSE
  132.     'Check if old file exists
  133.         IF DoesFileExist(CALAUDITOLDINI$, femExists) = 1 THEN
  134.             ' Get the current values from the ini file
  135.             UserName$ = GetIniKeyString(CALAUDITOLDINI$, "OwnerShip", "registeredOwner")
  136.             UserOrg$ = GetIniKeyString(CALAUDITOLDINI$, "OwnerShip", "registeredOwnerCompany")
  137.             GOTO CONFIRMOLD
  138.         ELSE
  139.             GOTO GETNAME
  140.         END IF
  141.     END IF
  142.  
  143.  
  144. '
  145. ' Confirm name and company just entered
  146. '
  147. CONFIRMOLD:
  148.     SetSymbolValue "ConfirmTextIn", ""
  149.     AddListItem "ConfirmTextIn", "Name: " + UserName$
  150.     AddListItem "ConfirmTextIn", "Company: " + UserOrg$
  151. CONFIRMOLD1:
  152.     sz$ = UIStartDlg(CUIDLL$, CONFIRMPREV, "FConfirmDlgProc", APPHELP, HELPPROC$)
  153.     IF sz$ = "CONTINUE" THEN
  154.         UIPop 1
  155.         GOTO GETPATH
  156.     ELSE
  157.         UIPop 1
  158.         GOTO GETNAME
  159.     END IF
  160.  
  161.  
  162. '
  163. ' Get name and company for registration
  164. '
  165. GETNAME:
  166.     sz$ = UIStartDlg(CUIDLL$, GETNAME, "FNameOrgDlgProc", APPHELP, HELPPROC$)
  167.     IF sz$ = "CONTINUE" THEN
  168.         UserName$ = GetSymbolValue("NameOut")
  169.         UserOrg$ = GetSymbolValue("OrgOut")
  170.         UIPop 1
  171.     ELSE
  172.         GOSUB ASKQUIT
  173.     END IF
  174.  
  175.  
  176. '
  177. ' Confirm name and company just entered
  178. '
  179. CONFIRM:
  180.     SetSymbolValue "ConfirmTextIn", ""
  181.     AddListItem "ConfirmTextIn", "Name: " + UserName$
  182.     AddListItem "ConfirmTextIn", "Company: " + UserOrg$
  183. CONFIRM1:
  184.     sz$ = UIStartDlg(CUIDLL$, CONFIRMNAME, "FConfirmDlgProc", APPHELP, HELPPROC$)
  185.     IF sz$ = "CONTINUE" THEN
  186.         UIPop 1
  187.     ELSE
  188.         UIPop 1
  189.         GOTO GETNAME
  190.     END IF
  191.  
  192.  
  193. '
  194. ' Get drive and path for software destination
  195. '
  196. GETPATH:
  197.     ' First check if CALL AUDIT ini file and destination path exists
  198.     IF DoesFileExist(CALAUDITINI$, femExists) = 1 THEN
  199.         IF ( DoesIniSectionExist(CALAUDITINI$, "Location") = 1 ) THEN
  200.             IF ( DoesIniKeyExist(CALAUDITINI$, "Location", "ProgramLocation") = 1 ) THEN
  201.                 ' Get the current values from the ini file
  202.                 DEST$ = GetIniKeyString(CALAUDITINI$, "Location", "ProgramLocation")
  203.             ENDIF
  204.         END IF
  205.     ELSE
  206.     ' Check for old file
  207.         IF DoesFileExist(CALAUDITOLDINI$, femExists) = 1 THEN
  208.             IF ( DoesIniSectionExist(CALAUDITOLDINI$, "Location") = 1 ) THEN
  209.                 IF ( DoesIniKeyExist(CALAUDITOLDINI$, "Location", "ProgramLocation") = 1 ) THEN
  210.                     ' Get the current values from the ini file
  211.                     DEST$ = GetIniKeyString(CALAUDITOLDINI$, "Location", "ProgramLocation")
  212.                 ENDIF
  213.             END IF
  214.            END IF
  215.     END IF
  216.     
  217.     SetSymbolValue "EditTextIn", DEST$
  218.     SetSymbolValue "EditFocus", "END"
  219. GETPATHL1:
  220.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  221.     DEST$ = GetSymbolValue("EditTextOut")
  222.  
  223.  
  224. '
  225. '   Get destination drive for later use in copying files
  226. '
  227.     DestDrive$ = MID$(DEST$,1,1)
  228.     IF IsDriveValid(DestDrive$) = 0 THEN
  229.         i% = DoMsgBox("Destination drive ('"+DestDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  230.         GOTO GETPATH
  231.     END IF
  232.  
  233. '
  234. '   Add : character to make it a full path
  235. '
  236.     DestDrive$ = DestDrive$ + ":"
  237.  
  238.     IF sz$ = "CONTINUE" THEN
  239.         IF IsDirWritable(DEST$) = 0 THEN
  240.             GOSUB BADPATH
  241.             GOTO GETPATHL1
  242.         END IF
  243.         UIPop 1
  244.     ELSEIF sz$ = "REACTIVATE" THEN
  245.         GOTO GETPATHL1
  246.     ELSEIF sz$ = "BACK" THEN
  247.         UIPop 1
  248.         GOTO CONFIRM
  249.     ELSE
  250.         GOSUB ASKQUIT
  251.         GOTO GETPATH
  252.     END IF
  253.  
  254.  
  255.     Install
  256.  
  257.  
  258. '
  259. ' Get local area code
  260. '
  261. GETAREACODE:
  262.  
  263.     LOCALAREACODE$ = "540"
  264.     
  265. ' First check if CALL AUDIT ini file and destination path exists
  266.     IF DoesFileExist(CALAUDITINI$, femExists) = 1 THEN
  267.         IF (DoesIniSectionExist(CALAUDITINI$, "Defaults") = 1) THEN
  268.             IF (DoesIniKeyExist(CALAUDITINI$, "Defaults", "localAreaCode") = 1) THEN
  269.                 ' Get the current value from the ini file
  270.                 LOCALAREACODE$ = GetIniKeyString(CALAUDITINI$, "Defaults", "localAreaCode")
  271.             ENDIF
  272.         END IF
  273.     END IF
  274.     
  275.     SetSymbolValue "EditTextIn", LOCALAREACODE$
  276.     
  277.     sz$ = UIStartDlg(CUIDLL$, AREACODEDLG, "FEditDlgProc", 0, "")
  278.     LOCALAREACODE$ = GetSymbolValue("EditTextOut")
  279.  
  280.     CreateIniKeyValue CALAUDITINI$, "Defaults", "localAreaCode", LOCALAREACODE$, cmoOverwrite
  281.     UIPop 1
  282.  
  283.  
  284. '
  285. ' Get Caller ID option
  286. '
  287. GETCIDOPTION:
  288.  
  289.     CIDOPTION$ = "1"
  290.                    
  291. ' First check if CALL AUDIT ini file and destination path exists
  292.     IF DoesFileExist(CALAUDITINI$, femExists) = 1 THEN
  293.         IF (DoesIniSectionExist(CALAUDITINI$, "ModemParms") = 1) THEN
  294.             IF (DoesIniKeyExist(CALAUDITINI$, "ModemParms", "CallerIdOption") = 1) THEN
  295.                 ' Get the current value from the ini file
  296.                 TEMPOPTION$ = GetIniKeyString(CALAUDITINI$, "ModemParms", "CallerIdOption")
  297.                 
  298.                 IF  TEMPOPTION$ = "0" THEN
  299.                     CIDOPTION$ = "1"
  300.                 END IF
  301.                 
  302.                 IF  TEMPOPTION$ = "1" THEN
  303.                     CIDOPTION$ = "2"
  304.                 END IF
  305.                 
  306.             END IF
  307.         END IF
  308.     END IF
  309.     
  310.     SetSymbolValue "RadioDefault", CIDOPTION$
  311.  
  312.     sz$ = UIStartDlg(CUIDLL$, CIDOPTIONSDLG, "FRadioDlgProc", 0, "")
  313.     TEMPOPTION$ = GetSymbolValue("ButtonChecked")
  314.     
  315.     IF  TEMPOPTION$ = "1" THEN
  316.         CIDOPTION$ = "0"
  317.     END IF
  318.  
  319.     IF  TEMPOPTION$ = "2" THEN
  320.         CIDOPTION$ = "1"
  321.     END IF
  322.  
  323.     CreateIniKeyValue CALAUDITINI$, "ModemParms", "CallerIdOption", CIDOPTION$, cmoOverwrite
  324.     UIPop 1
  325.     
  326.  
  327. '
  328. ' Get Sound option
  329. '
  330. GETSOUNDOPTION:
  331.  
  332.     SOUNDOPTION$ = "1"
  333.                    
  334. ' First check if CALL AUDIT ini file and destination path exists
  335.     IF DoesFileExist(CALAUDITINI$, femExists) = 1 THEN
  336.         IF (DoesIniSectionExist(CALAUDITINI$, "Defaults") = 1) THEN
  337.             IF (DoesIniKeyExist(CALAUDITINI$, "Defaults", "PlaySystemSounds") = 1) THEN
  338.                 ' Get the current value from the ini file
  339.                 TEMPOPTION$ = GetIniKeyString(CALAUDITINI$, "Defaults", "PlaySystemSounds")
  340.                 
  341.                 IF  TEMPOPTION$ = "1" THEN
  342.                     SOUNDOPTION$ = "1"
  343.                 END IF
  344.                 
  345.                 IF  TEMPOPTION$ = "0" THEN
  346.                     SOUNDOPTION$ = "2"
  347.                 END IF
  348.                 
  349.             END IF
  350.         END IF
  351.     END IF
  352.     
  353.     SetSymbolValue "RadioDefault", SOUNDOPTION$
  354.  
  355.     sz$ = UIStartDlg(CUIDLL$, SOUND_OPTIONS, "FRadioDlgProc", 0, "")
  356.     TEMPOPTION$ = GetSymbolValue("ButtonChecked")
  357.     
  358.     IF  TEMPOPTION$ = "1" THEN
  359.         SOUNDOPTION$ = "1"
  360.     END IF
  361.  
  362.     IF  TEMPOPTION$ = "2" THEN
  363.         SOUNDOPTION$ = "0"
  364.     END IF
  365.  
  366.     CreateIniKeyValue CALAUDITINI$, "Defaults", "PlaySystemSounds", SOUNDOPTION$, cmoOverwrite
  367.     UIPop 1
  368.     
  369.     
  370.  
  371. QUIT:
  372.     ON ERROR GOTO ERRQUIT
  373.  
  374.     IF ERR = 0 THEN
  375.         dlg% = EXITSUCCESS
  376.     ELSEIF ERR = STFQUIT THEN
  377.         dlg% = EXITQUIT
  378.     ELSE
  379.         dlg% = EXITFAILURE
  380.     END IF
  381. QUITL1:
  382.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  383.     IF sz$ = "REACTIVATE" THEN
  384.         GOTO QUITL1
  385.     END IF
  386.     UIPop 1
  387.  
  388.     END
  389.  
  390. ERRQUIT:
  391.     i% = DoMsgBox("Setup sources were corrupted, call 555-1212!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  392.     END
  393.  
  394.  
  395. BADPATH:
  396.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  397.     IF sz$ = "REACTIVATE" THEN
  398.         GOTO BADPATH
  399.     END IF
  400.     UIPop 1
  401.     RETURN
  402.  
  403.  
  404. ASKQUIT:
  405.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  406.  
  407.     IF sz$ = "EXIT" THEN
  408.         UIPopAll
  409.         ERROR STFQUIT
  410.     ELSEIF sz$ = "REACTIVATE" THEN
  411.         GOTO ASKQUIT
  412.     ELSE
  413.         UIPop 1
  414.     END IF
  415.     RETURN
  416.  
  417.  
  418. '*************************************************************************
  419. '**
  420. '** Purpose:
  421. '**     Builds the copy list and performs all installation operations.
  422. '** Arguments:
  423. '**     none.
  424. '** Returns:
  425. '**     none.
  426. '*************************************************************************
  427.  
  428. SUB Install STATIC
  429.  
  430.     sz$ = UIStartDlg("mscuistf.dll", REGCARD, "FModelessDlgProc", APPHELP, HELPPROC$)
  431.  
  432. '
  433. ' Create program directories
  434. '
  435.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  436.     CreateDir DEST$, cmoNone
  437.  
  438. '
  439. ' Create program directories
  440. '
  441.     CreateDir DEST$ + "\sounds\audiotag" , cmoNone
  442.     CreateDir DEST$ + "\notepad", cmoNone
  443.  
  444.  
  445.     OpenLogFile MakePath(DEST$, "LOGFILE.OUT"), 0
  446.     WriteToLogFile ""
  447.     WriteToLogFile "  User chose as destination directory: '" + DEST$ + "'"
  448.     WriteToLogFile "  User chose option: '" + OPTCUR$ + "'"
  449.     WriteToLogFile ""
  450.     WriteToLogFile "May have had to create the directory: " + DEST$
  451.     WriteToLogFile ""
  452.  
  453. '
  454. ' Delete any existing old database file
  455. '
  456.     DBOLDFILE$ = DEST$ + "\CALAUD32.OLD"
  457.  
  458.     IF DoesFileExist(DBOLDFILE$, femExists) = 1 THEN
  459.        RemoveFile DBOLDFILE$, cmoForce
  460.     END IF
  461.  
  462.  
  463. ' Program files
  464.     AddSectionFilesToCopyList "Program",  SrcDir$, DEST$
  465.     AddSectionFilesToCopyList "Sounds", SrcDir$, MakePath(DEST$,"sounds")
  466.     AddSectionFilesToCopyList "Uninstal", SrcDir$, GetWindowsDir()
  467.  
  468. '    AddSectionFilesToCopyList "AudioTag", SrcDir$, MakePath(DEST$,"sounds\audiotag")
  469. ' Windows\System files
  470.     AddSectionFilesToCopyList "System", SrcDir$, GetWindowsSysDir()
  471. ' Windows files
  472.     AddSectionFilesToCopyList "Windows", SrcDir$, GetWindowsDir()
  473.  
  474.     CopyFilesInCopyList
  475.  
  476. ' Take down the "Send in the registration card" dialog
  477.     UIPop 1
  478.  
  479.  
  480.  
  481. '
  482. ' Create a CallAudit INI file if one doesn't already exist
  483. '
  484.     IF ( DoesFileExist(CALAUDITINI$, femExists) = 0 ) THEN
  485.         CopyFile GetWindowsDir+"CALAUD32.XXX", CALAUDITINI$, cmoNone, 0
  486.     END IF
  487.  
  488.  
  489. '
  490. ' Add user name and org to Call Audit .ini file
  491. '
  492.     IF ( DoesIniSectionExist(CALAUDITINI$, "OwnerShip") = 1 ) THEN
  493.         CreateIniKeyValue CALAUDITINI$, "OwnerShip", "registeredOwner", UserName$, cmoOverwrite
  494.         CreateIniKeyValue CALAUDITINI$, "OwnerShip", "registeredOwnerCompany", UserOrg$, cmoOverwrite
  495.     END IF
  496.  
  497.     IF ( DoesIniSectionExist(CALAUDITINI$, "Location") = 1 ) THEN
  498.         CreateIniKeyValue CALAUDITINI$, "Location", "ProgramLocation", DEST$, cmoOverwrite
  499.         CreateIniKeyValue CALAUDITINI$, "Location", "DatabaseLocation", DEST$, cmoOverwrite
  500.     END IF
  501.  
  502.  
  503.  
  504. '
  505. ' Update the DbConvrt INI file if one already exists
  506. '
  507.     DBCONVRTINI$ = GetWindowsDir + "DBCNVT32.INI"
  508.  
  509.     IF DoesFileExist(DBCONVRTINI$, femExists) = 1 THEN
  510.        CreateIniKeyValue DBCONVRTINI$, "Defaults", "RunDatabaseConversion", "1", cmoOverwrite
  511.     END IF
  512.  
  513.  
  514. '
  515. ' Remove work files
  516. '
  517.     RemoveFile GetWindowsDir()+"CALAUD32.XXX", cmoForce
  518.  
  519.  
  520. '    WriteToLogFile ""
  521. '    WriteToLogFile ""
  522. '    WriteToLogFile "Analyzing AUTOEXEC.BAT & CONFIG.SYS files"
  523. '    WriteToLogFile ""
  524.  
  525. ' Get window version information
  526. '    winMajor% = GetWindowsMajorVersion()
  527. '    winMinor% = GetWindowsMinorVersion()
  528.  
  529. '   WriteToLogFile "   winMajor = " + STR$(winMajor%)
  530. '   WriteToLogFile "   winMinor = " + STR$(winMinor%)
  531.  
  532. '    update% = 0
  533. '    IF winMajor% < 4 THEN
  534. '        IF winMinor% < 11 THEN
  535. '            update% = 1
  536. '        END IF
  537. '    END IF
  538.  
  539. '    IF update% = 0 THEN
  540. '        WriteToLogFile "No Update of AUTOEXEC.BAT or CONFIG.SYS required"
  541. '    ELSE
  542. '       WriteToLogFile "Possible Update of AUTOEXEC.BAT or CONFIG.SYS required"
  543. '    END IF
  544.  
  545.  
  546. ' Check if Autoexec.bat needs to have share.exe added or updated
  547.  
  548. '    foundShare% = 0
  549. '    OPEN "C:\AUTOEXEC.BAT" FOR INPUT AS #1
  550. '    WriteToLogFile ""
  551. '    WriteToLogFile ""
  552. '    WriteToLogFile ""
  553. '    WriteToLogFile "Opened AUTOEXEC.BAT"
  554.  
  555. '    WHILE not EOF (1)
  556. '        LINE INPUT #1, nextline$
  557. '        WriteToLogFile nextline$
  558.  
  559.         ' Concert to upper case
  560. '        oneline$ = UCASE$(nextline$)
  561.  
  562. '        foundShare% = INSTR(oneline$, "SHARE.EXE")
  563.  
  564. '        IF foundShare% > 0 THEN
  565. '            WriteToLogFile "                    FOUND SHARE.EXE!!!"
  566.  
  567. '            lockStart% = INSTR(oneline$, "/L")
  568. '            lockString$ = MID$(oneline$, lockStart%)
  569.  
  570.  
  571. '            WriteToLogFile "                    Lock Parameter = " + lockString$
  572.  
  573. '        END IF
  574.  
  575. '    WEND
  576.  
  577. '    CLOSE #1
  578. '    WriteToLogFile ""
  579. '    WriteToLogFile "Closed AUTOEXEC.BAT"
  580. '    WriteToLogFile ""
  581. '    WriteToLogFile ""
  582. '    WriteToLogFile ""
  583.  
  584.  
  585.  
  586. '
  587. ' Create program groups
  588. '
  589.     CreateProgmanGroup "CallAudit", "", cmoNone
  590.     ShowProgmanGroup  "CallAudit", 1, cmoNone
  591.     CreateProgmanItem "CallAudit", "CallAudit32", MakePath(DEST$, "calaud32.exe"), "", cmoOverwrite
  592.     CreateProgmanItem "CallAudit", "CallAudit32 Help", MakePath(DEST$, "calaud32.hlp"), "", cmoOverwrite
  593.     CreateProgmanItem "CallAudit", "Release Notes", MakePath(DEST$, "RelNotes.txt"), "", cmoOverwrite
  594.  
  595.     CreateProgmanItem "CallAudit", "CallAudit32 Uninstall", MakePath(GetWindowsDir, "CalAudUn.exe"), "", cmoOverwrite
  596.  
  597.     CloseLogFile
  598.  
  599. END SUB
  600.  
  601.  
  602. '*************************************************************************
  603. '**
  604. '** Purpose:
  605. '**     Appends a file name to the end of a directory path,
  606. '**     inserting a backslash character as needed.
  607. '** Arguments:
  608. '**     szDir$  - full directory path (with optional ending "\")
  609. '**     szFile$ - filename to append to directory
  610. '** Returns:
  611. '**     Resulting fully qualified path name.
  612. '*************************************************************************
  613.  
  614. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  615.     IF szDir$ = "" THEN
  616.         MakePath = szFile$
  617.     ELSEIF szFile$ = "" THEN
  618.         MakePath = szDir$
  619.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  620.         MakePath = szDir$ + szFile$
  621.     ELSE
  622.         MakePath = szDir$ + "\" + szFile$
  623.     END IF
  624. END FUNCTION
  625.  
  626.