home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1996 August / AAHRDEMO.ISO / software / docs / hduninst.ms_ / hduninst.bin
Encoding:
Text File  |  1996-03-14  |  3.2 KB  |  158 lines
  1. '$INCLUDE 'setupapi.inc'
  2. '$INCLUDE 'msdetect.inc'
  3.  
  4. ''Dialog ID's
  5. CONST CONTINUEDLG                = 701
  6. CONST ASKEXIT                    = 702
  7. CONST EXITQUIT                 = 703
  8. CONST EXITSUCCESS              = 704
  9. CONST HD_NOTINSTALLED         = 705
  10. CONST EXITFAILURE                = 706
  11.  
  12. ''Bitmap ID
  13. CONST LOGO  = 3
  14.  
  15. GLOBAL CUIDLL$
  16. GLOBAL success%
  17.  
  18. DECLARE SUB Install
  19. DECLARE FUNCTION CheckForPanel LIB "MSCUISTF.DLL" AS INTEGER
  20. DECLARE SUB InitStatus LIB "MSCUISTF.DLL"
  21. DECLARE FUNCTION CancelStatus LIB "MSCUISTF.DLL" (path$) AS INTEGER
  22. DECLARE SUB DestroyStatus LIB "MSCUISTF.DLL"
  23.  
  24. ON ERROR GOTO ERROREXIT
  25.  
  26. INIT:
  27.     CUIDLL$ = "mscuistf.dll"
  28.     success%=1
  29.  
  30.     '' GET DEFAULT DIRECTORY NAMES FOR WORDPERFECT
  31.     SRCDIR$ = GetSymbolValue("STF_SRCDIR")
  32.     SetTitle "HotDocs Uninstall Utility"
  33.  
  34.     ' Default destination paths
  35.     hdstat=DoesFileExist(GetWindowsDir()+"HOTDOCS.INI",cmpNone)
  36.     IF hdstat = 0 THEN
  37.         GOTO HD_NOTINSTALLED
  38.     ENDIF
  39.     SetBitmap CUIDLL$, LOGO
  40.  
  41.     IF CheckForPanel = 0 THEN
  42.         UIPopAll
  43.         GOTO ERROREXIT
  44.     END IF
  45.  
  46. CONTINUE:
  47.      sz$ = UIStartDlg(CUIDLL$, CONTINUEDLG, "FQuitDlgProc", 0, "")
  48.      IF sz$ = "EXIT" THEN
  49.         UIPopAll
  50.         GOSUB ASKEXIT
  51.         GOTO CONTINUE
  52.      ELSEIF sz$="REACTIVATE" THEN
  53.         GOTO CONTINUE
  54.      ELSE
  55.         UIPop 1
  56.      END IF
  57.  
  58.     Install
  59.  
  60.     IF success% THEN
  61.         GOTO EXITSUCCESS
  62.     ELSE
  63.         GOTO ERROREXIT
  64.     ENDIF
  65.  
  66.  
  67.  
  68. ASKEXIT:
  69.      sz$ = UIStartDlg(CUIDLL$, ASKEXIT, "FQuitDlgProc", 0, "")
  70.      IF sz$ = "EXIT" THEN
  71.         UIPopAll
  72.         GOTO EXITQUIT
  73.      ELSEIF sz$="REACTIVATE" THEN
  74.         GOTO ASKEXIT
  75.      ELSE
  76.         UIPop 1
  77.      END IF
  78.      RETURN
  79.  
  80. HD_NOTINSTALLED:
  81.         sz$ = UIStartDlg(CUIDLL$, HD_NOTINSTALLED,"FInfo0DlgProc",0,"")
  82.         UIPop 1
  83.         GOTO QUIT
  84.  
  85. EXITSUCCESS:
  86.     sz$ = UIStartDlg(CUIDLL$,EXITSUCCESS,"FInfoDlgProc",0,"")
  87.     IF sz$ = "REACTIVATE" THEN
  88.         GOTO EXITSUCCESS
  89.     ENDIF
  90.     UIPopAll
  91.     GOTO QUIT
  92.  
  93. EXITQUIT:
  94.     sz$= UIStartDlg(CUIDLL$,EXITQUIT,"FInfoDlgProc",0,"")
  95.     IF sz$ = "REACTIVATE" THEN
  96.         GOTO EXITQUIT
  97.     ENDIF
  98.     UIPopAll
  99.     GOTO QUIT
  100.  
  101. ERROREXIT:
  102.     sz$= UIStartDlg(CUIDLL$,EXITFAILURE,"FInfoDlgProc",0,"")
  103.     IF sz$ = "REACTIVATE" THEN
  104.         GOTO ERROREXIT
  105.     ENDIF
  106.     UIPopAll
  107.     GOTO QUIT
  108.  
  109. QUIT:
  110.      END
  111.  
  112. SUB Install STATIC
  113.     InitStatus
  114.     'OPEN GetSymbolValue("STF_SRCDIR") + "uninst.txt" FOR INPUT AS #1
  115.     OPEN GetSymbolValue("STF_CWDDIR") + "uninst.txt" FOR INPUT AS #1
  116.     lineBuf$ = ""
  117.     path$ = ""
  118.     section$ = ""
  119.     entry$ = ""
  120.     cont% = 1
  121.     WHILE cont% = 1
  122.         LINE INPUT #1, lineBuf$
  123.         '**** NEW SECTION
  124.         IF lineBuf$ = "SECTION" THEN
  125.             LINE INPUT #1, section$
  126.         '**** NEW ENTRY
  127.         ELSEIF lineBuf$ = "ENTRY" THEN
  128.             LINE INPUT #1, entry$
  129.             IF DoesIniKeyExist(GetWindowsDir() +  "HOTDOCS.INI",section$,entry$) THEN
  130.                 path$ = GetIniKeyString(GetWindowsDir() +  "HOTDOCS.INI",section$,entry$)
  131.                 IF LEN(path$) <> 0 THEN
  132.                     IF MID$(path$, LEN(path$),1) <> "\" THEN
  133.                         path$ = path$ + "\"
  134.                     ENDIF
  135.                 ENDIF
  136.             ELSE
  137.                 path$ = ""
  138.             ENDIF
  139.         '**** FILENAME
  140.         ELSEIF path$ <> "" AND lineBuf$ <> "" THEN
  141.             IF DoesFileExist(path$ + lineBuf$,femReadWrite) = 1 THEN
  142.                 IF CancelStatus(path$ + lineBuf$) = 1 THEN
  143.                     success% = 0
  144.                     cont% = 0
  145.                 ENDIF
  146.                 RemoveFile path$ + lineBuf$,cmoNone
  147.             ENDIF
  148.         ENDIF
  149.         IF EOF(1) THEN
  150.             cont% = 0
  151.         ENDIF
  152.     WEND
  153.     RemoveFile GetWindowsDir() + "HOTDOCS.ini",cmoNone
  154.     DestroyStatus
  155. END SUB
  156.  
  157.  
  158.