home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703B.ISO / driver / canopus / win95 / dosv / 3dv95_ut / 3dv95_ut.lzh / SETUP.MS_ / SETUP.MS
Text File  |  1996-10-14  |  31KB  |  924 lines
  1. '************************************************
  2. '-- setup.mst --
  3. 'Power Window Application Setup script
  4. 'Copyright (C) 1996 CANOPUS Co.,Ltd. All rights reserved.
  5. '************************************************
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8. '$INCLUDE 'msdetect.inc' 
  9. '$INCLUDE 'msregdb.inc'
  10.  
  11. ''Dialog ID's
  12. CONST    WELCOMEV        =200
  13. CONST    WELCOMEVUS        =201
  14. CONST    ASKQUITV        =400
  15. CONST    ASKQUITVUS        =401
  16. CONST    OPTIONSV        =600
  17. CONST    OPTIONSVUS        =601
  18. CONST    PWBOARD            =700
  19. CONST    PWBOARDUS        =701
  20. CONST    DESTPATHW95        =1001
  21. CONST    DESTPATHUSW95    =1003
  22. CONST    EXITSUCCESSW95    =1101
  23. CONST    EXITSUCCESSUSW95=1103
  24. CONST    EXITQUIT        =1200
  25. CONST    EXITQUITUS        =1201
  26. CONST    EXITFAILURE        =1300
  27. CONST    EXITFAILUREUS    =1301
  28. CONST    EXITCHECK        =1400
  29. CONST    EXITCHECKUS        =1401
  30. CONST    DESTINSTALL        =1500
  31. CONST    DESTINSTALLUS    =1501
  32. CONST    BADPATHW95        =2001
  33. CONST    BADPATHUSW95    =2003
  34. CONST    POWERERROR        =2100
  35. CONST    POWERERRORUS    =2101
  36. CONST    DISKERROR        =2200
  37. CONST    DISKERRORUS        =2201
  38.  
  39. ''Defalut Setting
  40. CONST    TRUE    =1
  41. CONST    FALSE    =0
  42.  
  43. ''CustInst list
  44. CONST     TOTALKBOX    =5
  45. CONST     CHECKBOX1    =1
  46. CONST     CHECKBOX2    =2
  47. CONST     CHECKBOX3    =3
  48. CONST     CHECKBOX4    =4
  49. CONST     CHECKBOX5    =5
  50.  
  51. '' Users Area
  52. GLOBAL    DEST$                    '' Default Dir
  53. GLOBAL    WINDRIVE$                '' Windows Dir
  54. GLOBAL    GROUP$                    '' Group Name
  55. GLOBAL    CUIDLL$                    '' User DLL File Name
  56. GLOBAL    CHECKSTATES$            '' Check Box Data
  57. GLOBAL    JPMODE AS INTEGER         '' Japanese / English Mode
  58. GLOBAL    WINMODE AS INTEGER         '' Windows Version
  59. GLOBAL    OPBOARD AS INTEGER         '' Option Board
  60. GLOBAL    MPEGFLG AS INTEGER         '' MPEG Board   TRUE:HARD MPEG FALSE:SOFT MPEG
  61. GLOBAL    VIDEOFLG AS INTEGER        '' Video Board  TRUE:YES       FALSE:NO
  62. GLOBAL    VIEWERFLG AS INTEGER    '' Video Viewer TRUE:YES       FALSE:NO
  63. GLOBAL    TUNERFLG AS INTEGER        '' TV Tuner     TRUE:YES       FALSE:NO
  64. GLOBAL    MPEGDRV AS INTEGER        '' MPEG Driver  TRUE:YES       FALSE:NO
  65. GLOBAL    SPFLG AS INTEGER        '' Speed        TRUE:YES       FALSE:NO
  66. GLOBAL    CAPFLG AS INTEGER        '' Capture      TRUE:YES       FALSE:NO
  67. GLOBAL    DOCFLG AS INTEGER        '' Manual       TRUE:YES       FALSE:NO
  68.  
  69. ''CustInst list symbol names
  70. DECLARE SUB         Install
  71. DECLARE SUB         DefaultLoad
  72. DECLARE FUNCTION    MakePath (szDir$, szFile$) AS STRING
  73. DECLARE    SUB         IniSetAndBakup (szFile$, szSec$, szKey$, szVal$, szSecOp$)
  74. DECLARE    SUB         IniSetAndBakupChk (szFile$, szSec$, szKey$, szVal$, szSecOp$)
  75. DECLARE    SUB         IniSetAndStandBakup (szFile$, szSec$, szKey$, szVal$, szSecOp$)
  76. DECLARE    SUB         UninstallFileCounter (szFile$, szSec$, szKey$, szVal$)
  77. DECLARE FUNCTION    CheckPowerWindow LIB "mscuistf.dll" () AS INTEGER
  78. DECLARE FUNCTION    GetPowerWindowDir LIB "mscuistf.dll" () AS INTEGER
  79. DECLARE FUNCTION    GetWindowsVer LIB "mscuistf.dll" () AS INTEGER
  80. DECLARE FUNCTION    ExitWindowsExec  LIB "User" (Exec$, Param$) AS INTEGER
  81. DECLARE FUNCTION    GetMetrics LIB "mscuistf.dll" () AS INTEGER
  82.  
  83.  
  84. ' #[ INIT ]
  85. INIT:
  86.     CUIDLL$ = "mscuistf.dll"
  87.  
  88.     WINMODE = GetWindowsVer()
  89.     JPMODE = GetMetrics()
  90.  
  91.     SetWindowSize 3
  92.     SetBitmap CUIDLL$, 1
  93.     SetTitle "Power Window Application Setup"
  94.  
  95.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  96.     IF szInf$ = "" THEN
  97.         szInf$ = GetSymbolValue("STF_CWDDIR") + "setup.inf"
  98.     END IF
  99.     ReadInfFile szInf$
  100.  
  101.     IF WINMODE = FALSE THEN
  102.         IF JPMODE <> 0 THEN
  103.             i% = DoMsgBox("Windows 95 専用のアプリケーションのため、この環境にはインストールできません。", "Power Window Application Setup", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  104.         ELSE
  105.             i% = DoMsgBox("Please install Windows 95 before installing Power Window Application.", "Power Window Application Setup", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  106.         END IF
  107.         END
  108.     END IF
  109.  
  110.     DefaultLoad
  111.  
  112. WELCOME:
  113.     IF JPMODE <> 0 THEN
  114.         dlg% = WELCOMEV
  115.     ELSE
  116.         dlg% = WELCOMEVUS
  117.     END IF
  118.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfoDlgProc", 0, "")
  119.     IF sz$ = "CONTINUE" THEN
  120.         UIPop 1
  121.     ELSE
  122.            GOSUB ASKQUITJMP
  123.         GOTO WELCOME
  124.     END IF
  125.  
  126. BOARDCHECKSTART:
  127.     CHECKSTATES$ = "CheckTool"
  128.     RemoveSymbol CHECKSTATES$
  129.     RemoveSymbol "OptionsGreyed"
  130.     RemoveSymbol "OptionsDelete"
  131.     RemoveSymbol "OptionsOutput"
  132.  
  133.     IF OPBOARD = 1 THEN
  134.         AddListItem "OptionsOutput", "1"
  135.         AddListItem "OptionsDelete", "2"
  136.     ELSEIF OPBOARD = 2 THEN
  137.         AddListItem "OptionsDelete", "1"
  138.         AddListItem "OptionsOutput", "2"
  139.     ELSEIF OPBOARD = 3 THEN
  140.         AddListItem "OptionsOutput", "1"
  141.         AddListItem "OptionsOutput", "2"
  142.     END IF
  143.  
  144.     IF VIDEOFLG = FALSE THEN
  145.         AddListItem "CheckTool", "OFF"
  146.     ELSE
  147.         AddListItem "CheckTool", "ON"
  148.     END IF
  149.  
  150.     IF MPEGFLG = FALSE THEN
  151.         AddListItem "CheckTool", "OFF"
  152.     ELSE
  153.         AddListItem "CheckTool", "ON"
  154.     END IF
  155.  
  156. BOARDCHECKLOOP:
  157.     IF OPBOARD = 0 THEN
  158.         GOTO CHECKCUTSTART
  159.     END IF
  160.  
  161.     IF JPMODE <> 0 THEN
  162.         dlg% = PWBOARD
  163.     ELSE
  164.         dlg% = PWBOARDUS
  165.     END IF
  166.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FCheck0DlgProc", 0, "")
  167.     IF sz$ = "CONTINUE" THEN
  168.         IF GetListItem("CheckTool", 1) = "OFF" THEN
  169.             VIDEOFLG=FALSE
  170.         ELSE
  171.             VIDEOFLG=TRUE
  172.         END IF
  173.         IF GetListItem("CheckTool", 2) = "OFF" THEN
  174.             MPEGFLG=FALSE
  175.         ELSE
  176.             MPEGFLG=TRUE
  177.         END IF
  178.         UIPop 1
  179.         GOTO CHECKCUTSTART
  180.     ELSE
  181.         GOSUB ASKQUITJMP
  182.         GOTO BOARDCHECKLOOP
  183.     END IF
  184.  
  185. CHECKCUTSTART:
  186.     CHECKSTATES$ = "CheckItemsIn"
  187.     RemoveSymbol CHECKSTATES$
  188.     RemoveSymbol "OptionsGreyed"
  189.     RemoveSymbol "OptionsDelete"
  190.     RemoveSymbol "OptionsOutput"
  191.     IF JPMODE <> 0 THEN
  192.         AddListItem CHECKSTATES$, "ON"
  193.     ELSE
  194.         AddListItem CHECKSTATES$, "OFF"
  195.         AddListItem "OptionsGreyed", "1"
  196.     END IF
  197.  
  198.     AddListItem CHECKSTATES$, "ON"
  199.     IF MPEGFLG = TRUE THEN
  200.         AddListItem CHECKSTATES$, "ON"
  201.     ELSE
  202.         AddListItem CHECKSTATES$, "ON"
  203.     END IF
  204.     IF VIDEOFLG = TRUE THEN
  205.         IF VIEWERFLG = TRUE THEN
  206.             AddListItem CHECKSTATES$, "ON"
  207.             AddListItem "OptionsOutput", "4"
  208.         ELSE
  209.             AddListItem CHECKSTATES$, "OFF"
  210.             AddListItem "OptionsDelete", "4"
  211.         END IF
  212.         IF TUNERFLG = TRUE THEN
  213.             AddListItem CHECKSTATES$, "ON"
  214.             AddListItem "OptionsOutput", "5"
  215.         ELSE
  216.             AddListItem CHECKSTATES$, "OFF"
  217.             AddListItem "OptionsDelete", "5"
  218.         END IF
  219.     ELSE
  220.         AddListItem CHECKSTATES$, "OFF"
  221.         AddListItem "OptionsDelete", "4"
  222.         AddListItem CHECKSTATES$, "OFF"
  223.         AddListItem "OptionsDelete", "5"
  224.     END IF
  225.  
  226. CHECKCUTLOOP:
  227.     IF JPMODE <> 0 THEN
  228.         dlg% = OPTIONSV
  229.     ELSE
  230.         dlg% = OPTIONSVUS
  231.     END IF
  232.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FCheckDlgProc", 0, "")
  233.     IF sz$ = "CONTINUE" THEN
  234.         push% = 0
  235.         CHECKSTATES$ = "CheckItemsOut"
  236.         FOR i% = 1 TO TOTALKBOX STEP 1
  237.             IF GetListItem(CHECKSTATES$, i%) = "ON" THEN
  238.                 push% = 1
  239.             END IF
  240.         NEXT i%
  241.         IF push% = 0 THEN
  242.             IF JPMODE <> 0 THEN
  243.                 dlg% = EXITCHECK
  244.             ELSE
  245.                 dlg% = EXITCHECKUS
  246.             END IF
  247.             sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfoDlgProc", 0, "")
  248.             UIPop 1
  249.             GOTO CHECKCUTLOOP
  250.         END IF
  251.         UIPop 1
  252.         GOTO GETPATH
  253.     ELSEIF sz$ = "BACK" THEN
  254.         UIPop 1
  255.         IF OPBOARD = 0 THEN
  256.             GOTO WELCOME
  257.         ELSE
  258.             GOTO BOARDCHECKSTART
  259.         END IF
  260.     ELSE
  261.         GOSUB ASKQUITJMP
  262.         GOTO CHECKCUTLOOP
  263.     END IF
  264.  
  265. GETPATH:
  266.     SetSymbolValue "EditTextIn", DEST$
  267.     SetSymbolValue "EditFocus", "END"
  268. GETPATHL1:
  269.     IF JPMODE <> 0 THEN
  270.         dlg% = DESTPATHW95
  271.     ELSE
  272.         dlg% = DESTPATHUSW95
  273.     END IF
  274.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FEditDlgProc", 0, "")
  275.     DEST$ = GetSymbolValue("EditTextOut")
  276.     IF sz$ = "CONTINUE" THEN
  277.         IF IsDirWritable(DEST$) = 0 THEN
  278.             GOSUB INPUTPATH
  279.             GOTO GETPATHL1
  280.         END IF
  281.         UIPop 1
  282.     ELSEIF sz$ = "REACTIVATE" THEN
  283.         GOTO GETPATHL1
  284.     ELSEIF sz$ = "BACK" THEN
  285.         UIPop 1
  286.         GOTO CHECKCUTSTART
  287.     ELSE
  288.         GOSUB ASKQUITJMP
  289.         GOTO GETPATHL1
  290.     END IF
  291.  
  292. INST:
  293.     IF JPMODE <> 0 THEN
  294.         dlg% = DESTINSTALL
  295.     ELSE
  296.         dlg% = DESTINSTALLUS
  297.     END IF
  298.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfoDlgProc", 0, "")
  299.     IF sz$ = "CONTINUE" THEN
  300.         UIPop 1
  301.     ELSEIF sz$ = "BACK" THEN
  302.         UIPop 1
  303.         GOTO GETPATH
  304.     ELSE
  305.         GOSUB ASKQUITJMP
  306.         GOTO INST
  307.     END IF
  308.  
  309.     Install
  310.  
  311. QUIT:
  312.     ON ERROR GOTO ERRQUIT
  313.  
  314.     IF ERR = 0 THEN
  315.         IF JPMODE <> 0 THEN
  316.             dlg% = EXITSUCCESSW95
  317.         ELSE
  318.             dlg% = EXITSUCCESSUSW95
  319.         END IF
  320.     ELSEIF ERR = STFQUIT THEN
  321.         IF JPMODE <> 0 THEN
  322.             dlg% = EXITQUIT
  323.         ELSE
  324.             dlg% = EXITQUITUS
  325.         END IF
  326.     ELSE
  327.         IF JPMODE <> 0 THEN
  328.             dlg% = EXITFAILURE
  329.         ELSE
  330.             dlg% = EXITFAILUREUS
  331.         END IF
  332.     END IF
  333. QUITL1:
  334.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfoDlgProc", 0, "")
  335.     IF sz$ = "CONTINUE" THEN
  336.         UIPop 1
  337.         END
  338.     END IF
  339.  
  340. RESET:
  341.     new% = ExitExecRestart()
  342.     Exe$ = WINDRIVE$ + "\_msrstrt.exe"
  343.     Empty$ = ""
  344. RESTART1:
  345.     IF new% = 0 THEN
  346.         IF JPMODE <> 0 THEN
  347.             i% = DoMsgBox("Windows を再起動できません。他のアプリケーション（MS-DOSﾌﾟﾛﾝﾌﾟﾄ等）を終了してください。", "セットアップ エラー", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  348.         ELSE
  349.             i% = DoMsgBox("The Setup program cannot restart Windows. Please terminate all other applications and MS-DOS Prompt.", "Setup Error", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  350.         END IF
  351.     END IF
  352.     I% = ExitWindowsExec (Exe$, Empty$)
  353.     IF I% = 0 THEN
  354.         GOTO RESET
  355.     ELSE
  356.         END
  357.     END IF
  358.     END
  359.  
  360. ERRQUIT:
  361.     IF JPMODE <> 0 THEN
  362.         i% = DoMsgBox("セットアップディスクの内容が壊れています。テクニカルサポートまで連絡してください。", "セットアップ エラー", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  363.     ELSE
  364.         i% = DoMsgBox("This Setup disk is destroyed. Please contact our Technical Support.", "Setup Error", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  365.     END IF
  366.     END
  367.  
  368. INPUTPATH:
  369.     IF JPMODE <> 0 THEN
  370.         dlg% = BADPATHW95
  371.     ELSE
  372.         dlg% = BADPATHUSW95
  373.     END IF
  374.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  375.     IF sz$ = "REACTIVATE" THEN
  376.         GOTO INPUTPATH
  377.     END IF
  378.     UIPop 1
  379.     RETURN
  380.  
  381. ASKQUITJMP:
  382.     IF JPMODE <> 0 THEN
  383.         dlg% = ASKQUITV
  384.     ELSE
  385.         dlg% = ASKQUITVUS
  386.     END IF
  387.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FQuitDlgProc", 0, "")
  388.     IF sz$ = "EXIT" THEN
  389.         UIPopAll
  390.         ERROR STFQUIT
  391.     ELSEIF sz$ = "REACTIVATE" THEN
  392.         GOTO ASKQUITJMP
  393.     ELSE
  394.         UIPop 1
  395.     END IF
  396.     RETURN
  397.  
  398. '*****************************************************
  399. '** 内容:
  400. '**         インストールの作業
  401. '** 引き数:
  402. '**         なし
  403. '** 戻り値:
  404. '**         なし
  405. '*****************************************************
  406. SUB Install STATIC
  407.  
  408.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  409.  
  410.     '' a:\english\setup.exeから起動した場合、ソースディレクトリを１階層上げる
  411.     '' チェック手段として、SETUP.INF の有無で判定
  412.     l& = GetSizeOfFile(SrcDir$ + "SETUP.INF")
  413.     IF l& = 0 THEN
  414.         ist% = 1
  415.         istold% = 1
  416.         istop% = 1
  417.         WHILE ( istop% )
  418.             ied% = INSTR(ist%, SrcDir$, "\")
  419.             IF ied% = 0 THEN
  420.                 istop% = 0
  421.             ELSE
  422.                 istold% = ist%
  423.                 ist% = ied% + 1
  424.             END IF
  425.         WEND
  426.         IF istold% <> 1 THEN
  427.             SrcDir$ = Mid$(SrcDir$, 1, (istold% - 1))
  428.         END IF
  429.     END IF
  430.  
  431.     WinSysDir$ = GetWindowsSysDir()
  432.     CreateDir DEST$, cmoNone
  433.     UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "DIR", DEST$
  434.     CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "InstallApplication", "SECTION", "PowerWindowApp", cmoOverwrite
  435.  
  436. ''ファイルコピーリストの登録
  437.     CHECKSTATES$ = "CheckItemsOut"
  438.     IF GetListItem(CHECKSTATES$, 1) = "ON" THEN
  439.         AddSectionFilesToCopyList "OPTION1", SrcDir$, DEST$
  440.         UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(DEST$,"README.TXT")
  441.     END IF
  442.  
  443.     IF GetListItem(CHECKSTATES$, 2) = "ON" THEN
  444.         AddSectionFilesToCopyList "OPTION2", SrcDir$, DEST$
  445.         AddSectionFilesToCopyList "OPTSYS2", SrcDir$, WinSysDir$
  446.         UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(DEST$,"PWCINE95.EXE")
  447.         UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(DEST$,"VCDMCI95.DLL")
  448.         UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(DEST$,"CINEMA95.DLL")
  449.         UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"PWJPEG.DRV")
  450.         IF DOCFLG = TRUE THEN
  451.             IF JPMODE <> 0 THEN
  452.                 AddSectionFilesToCopyList "OPTION20", SrcDir$, DEST$
  453.                 UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(DEST$,"PWCINE95.DOC")
  454.             END IF
  455.         END IF
  456.     END IF
  457.  
  458.     IF GetListItem(CHECKSTATES$, 3) = "ON" THEN
  459.         IF MPEGFLG = FALSE THEN        '' Soft MPEG Driver
  460.             AddSectionFilesToCopyList "OPTION30", SrcDir$, DEST$
  461.             AddSectionFilesToCopyList "OPTSYS3", SrcDir$, WinSysDir$
  462.             AddSectionFilesToCopyList "OPTWIN3", SrcDir$, WINDRIVE$
  463.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(DEST$,"MPEGC.EXE")
  464.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WINDRIVE$,"SOFTPEG.INI")
  465.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"SOFTPEGC.DLL")
  466.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"CCMPEGW.DLL")
  467.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"CCMPEG.DLL")
  468.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"SOFTPEG.DRV")
  469.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"SOFTPEG3.DLL")
  470.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"SOFTPEGC.DLL")
  471.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"CD16.DRV")
  472.         ELSE                            '' Hard MPEG Driver
  473.             AddSectionFilesToCopyList "OPTION3", SrcDir$, DEST$
  474.             AddSectionFilesToCopyList "OPTION30", SrcDir$, DEST$
  475.             AddSectionFilesToCopyList "OPTSYS3", SrcDir$, WinSysDir$
  476.             AddSectionFilesToCopyList "OPTSYS30", SrcDir$, WinSysDir$
  477.             AddSectionFilesToCopyList "OPTSYS31", SrcDir$, WinSysDir$
  478.             AddSectionFilesToCopyList "OPTWIN3", SrcDir$, WINDRIVE$
  479.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(DEST$,"CDALLOC.EXE")
  480.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(DEST$,"MPEGC.EXE")
  481.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WINDRIVE$,"SOFTPEG.INI")
  482.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"SOFTPEGC.DLL")
  483.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"CCMPEGW.DLL")
  484.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"CCMPEG.DLL")
  485.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"SOFTPEG.DRV")
  486.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"SOFTPEG3.DLL")
  487.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"SOFTPEGC.DLL")
  488.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"CD16.DRV")
  489.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"PWTVMPEG.DRV")
  490.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"PWMPG.DLL")
  491.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"PWVDE.DLL")
  492.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"PWADE.DLL")
  493.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"PWMX2.DLL")
  494.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"PWVMX16.DLL")
  495.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"PWVMX32.DLL")
  496.         END IF
  497.     END IF
  498.  
  499.     IF GetListItem(CHECKSTATES$, 4) = "ON" THEN
  500.         AddSectionFilesToCopyList "OPTSYS2", SrcDir$, WinSysDir$
  501.         AddSectionFilesToCopyList "OPTSYS31", SrcDir$, WinSysDir$
  502.         AddSectionFilesToCopyList "OPTSYS4", SrcDir$, WinSysDir$
  503.         AddSectionFilesToCopyList "OPTION4", SrcDir$, DEST$
  504.         UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"PWJPEG.DRV")
  505.         UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"PWVMX16.DLL")
  506.         UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"PWVMX32.DLL")
  507.         UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(DEST$,"PWVVIEW.EXE")
  508.         UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(DEST$,"PWVVIEW.HLP")
  509.         UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"PWTVRCAP.DRV")
  510.         UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"PWDIALOG.DLL")
  511.     ELSE
  512.         IF VIDEOFLG = TRUE THEN        '' Video Board
  513.             AddSectionFilesToCopyList "OPTSYS2", SrcDir$, WinSysDir$
  514.             AddSectionFilesToCopyList "OPTSYS31", SrcDir$, WinSysDir$
  515.             AddSectionFilesToCopyList "OPTSYS4", SrcDir$, WinSysDir$
  516.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"PWJPEG.DRV")
  517.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"PWVMX16.DLL")
  518.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"PWVMX32.DLL")
  519.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"PWTVRCAP.DRV")
  520.             UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"PWDIALOG.DLL")
  521.         END IF
  522.     END IF
  523.  
  524.     IF GetListItem(CHECKSTATES$, 5) = "ON" THEN
  525.         AddSectionFilesToCopyList "OPTSYS5", SrcDir$, WinSysDir$
  526.         AddSectionFilesToCopyList "OPTION5", SrcDir$, DEST$
  527.         UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(DEST$,"PWTVRTUN.EXE")
  528.         UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(WinSysDir$,"PWTVRTUN.DLL")
  529.     END IF
  530.  
  531.     AddSectionFilesToCopyList "OPTIONA", SrcDir$, DEST$
  532.     UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "FILE", MakePath(DEST$,"PWAPUIST.EXE")
  533.  
  534. ''ファイルコピー
  535.     SizeReq& = GetCopyListCost ("","", "")
  536.     IF SizeReq& <> 0 THEN
  537.         IF JPMODE <> 0 THEN
  538.             dlg% = DISKERROR
  539.         ELSE
  540.             dlg% = DISKERRORUS
  541.         END IF
  542.         sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfoDlgProc", 0, "")
  543.         END
  544.     END IF
  545.     SetRestartDir WINDRIVE$
  546.     CopyFilesInCopyList
  547.  
  548. ''ＩＮＩファイルの登録
  549.     IF GetListItem(CHECKSTATES$, 2) = "ON" THEN
  550.         RemoveInisection WINDRIVE$ + "CANOPUS.INI", "Power Cinema 95" , cmoVital
  551.         IF SPFLG = TRUE THEN
  552.             CreateIniKeyValue WINDRIVE$ + "CANOPUS.INI", "Power Cinema 95", "SpeedCheck", "1", cmoOverwrite
  553.         END IF
  554.         IF CAPFLG = TRUE THEN
  555.             CreateIniKeyValue WINDRIVE$ + "CANOPUS.INI", "Power Cinema 95", "UseCapture", "0", cmoOverwrite
  556.         END IF
  557.         IniSetAndBakup WINDRIVE$ + "SYSTEM.INI", "DRIVERS", "VIDC.MJPG", "PWJPEG.DRV", "SYS"
  558.         CreateIniKeyValue WINDRIVE$ + "CONTROL.INI", "DRIVERS.DESC", "PWJPEG.DRV", "CANOPUS Power Window Motion JPEG Decompressor", cmoOverwrite
  559.     END IF
  560.  
  561.     IF GetListItem(CHECKSTATES$, 3) = "ON" THEN
  562.         IF MPEGFLG = FALSE THEN        '' Soft MPEG Driver
  563.             IniSetAndBakupChk WINDRIVE$ + "SYSTEM.INI", "MCI", "MPEGVIDEO", "SOFTPEG.DRV", "SYS"
  564.             IniSetAndBakup WINDRIVE$ + "SYSTEM.INI", "MCI", "MPEGVIDEOCD", "SOFTPEG.DRV CDI", "SYS"
  565.             CreateIniKeyValue WINDRIVE$ + "CONTROL.INI", "DRIVERS.DESC", "SOFTPEG.DRV", "[MCI] CompCore SoftPEG (TM) MPEG Driver", cmoOverwrite
  566.         ELSE                            '' Hard MPEG Driver
  567.             szLoad$ = GetIniKeyString(INDRIVE$ + "Win.ini", "WINDOWS", "LOAD")
  568.             szWrite$ = ""
  569.             ist% = 1
  570.             istop% = 1
  571.             WHILE ( istop% )
  572.                 ied% = INSTR(ist%, szLoad$, " ")
  573.                 IF ied% = 0 THEN
  574.                     istop% = 0
  575.                     ied% = LEN(szLoad$) + 1
  576.                 END IF
  577.                 szBuff$ = Mid$(szLoad$, ist%, (ied% - ist%))
  578.                 ret% = InStr(szBuff$, "CDALLOC.EXE")
  579.                 IF ret% = 0 THEN
  580.                     szWrite$ = szWrite$ + szBuff$ + " "
  581.                 END IF
  582.                 ist% = ied% + 1
  583.             WEND
  584.             szWrite$ = szWrite$ + MakePath(DEST$,"CDALLOC.EXE")
  585.             CreateIniKeyValue WINDRIVE$ + "WIN.INI", "WINDOWS", "LOAD", szWrite$, cmoOverwrite
  586.  
  587.             IniSetAndBakup WINDRIVE$ + "SYSTEM.INI", "MCI", "MPEGCDI", "PWTVMPEG.DRV", "SYS"
  588.             IniSetAndBakupChk WINDRIVE$ + "SYSTEM.INI", "MCI", "MPEGVIDEO", "PWTVMPEG.DRV", "SYS"
  589.             IniSetAndBakup WINDRIVE$ + "SYSTEM.INI", "MCI", "MPEGVIDEOCD", "SOFTPEG.DRV CDI", "SYS"
  590.             CreateIniKeyValue WINDRIVE$ + "CONTROL.INI", "DRIVERS.DESC", "PWTVMPEG.DRV", "[MCI] CANOPUS Power Window MPEG Driver", cmoOverwrite
  591.             CreateIniKeyValue WINDRIVE$ + "CONTROL.INI", "DRIVERS.DESC", "SOFTPEG.DRV", "[MCI] CompCore SoftPEG (TM) MPEG Driver", cmoOverwrite
  592.         END IF
  593.  
  594.         CreateIniKeyValue WINDRIVE$ + "WIN.INI", "MCI EXTENSIONS", "MPG", "MPEGVIDEO", cmoOverwrite
  595.         CreateIniKeyValue WINDRIVE$ + "WIN.INI", "MCI EXTENSIONS", "VID", "MPEGVIDEO", cmoOverwrite
  596.         CreateIniKeyValue WINDRIVE$ + "WIN.INI", "MCI EXTENSIONS", "DAT", "MPEGVIDEO", cmoOverwrite
  597.         CreateIniKeyValue WINDRIVE$ + "WIN.INI", "MCI EXTENSIONS", "MPA", "MPEGVIDEO", cmoOverwrite
  598.         CreateIniKeyValue WINDRIVE$ + "WIN.INI", "MCI EXTENSIONS", "MPV", "MPEGVIDEO", cmoOverwrite
  599.  
  600.         RemoveIniKey  WINDRIVE$ + "SYSTEM.INI", "MCI", "CCMPEG"        , cmoNone
  601.         RemoveIniKey  WINDRIVE$ + "SYSTEM.INI", "MCI", "CCMPEGCDI"    , cmoNone
  602.         RemoveIniKey  WINDRIVE$ + "MPLAYER.INI", "DEVICES", "CCMPEG", cmoNone
  603.         RemoveIniKey  WINDRIVE$ + "MPLAYER.INI", "DEVICES", "CCMPEGCDI"    , cmoNone
  604.         RemoveIniKey  WINDRIVE$ + "MPLAYER.INI", "OPTIONS", "CCMPEG"    , cmoNone
  605.         RemoveIniKey  WINDRIVE$ + "MPLAYER.INI", "OPTIONS", "CCMPEGCDI"    , cmoNone
  606.  
  607. '        CreateRegKeyValue ".mpg", "mplayer"
  608.     END IF
  609.  
  610.     IF ( GetListItem(CHECKSTATES$, 4) = "ON" ) OR ( VIDEOFLG = TRUE ) THEN
  611.         RemoveInisection WINDRIVE$ + "CANOPUS.INI", "Video Viewer" , cmoVital
  612.         RemoveInisection WINDRIVE$ + "CANOPUS.INI", "T64VCapture" , cmoVital
  613.         IniSetAndStandBakup WINDRIVE$ + "SYSTEM.INI", "DRIVERS", "MSVideo", "PWTVRCAP.DRV", "SYS"
  614.         RemoveIniKey  WINDRIVE$ + "CONTROL.INI", "DRIVERS.DESC", "PWTVCAP.DRV", cmoNone
  615.         RemoveIniKey  WINDRIVE$ + "CONTROL.INI", "DRIVERS.DESC", "PW91CAP.DRV", cmoNone
  616.         CreateIniKeyValue WINDRIVE$ + "CONTROL.INI", "DRIVERS.DESC", "PWTVRCAP.DRV", "Power Window T64V/3DV Video Capture Driver", cmoOverwrite
  617.         IniSetAndBakup WINDRIVE$ + "SYSTEM.INI", "DRIVERS", "VIDC.MJPG", "PWJPEG.DRV", "SYS"
  618.         CreateIniKeyValue WINDRIVE$ + "CONTROL.INI", "DRIVERS.DESC", "PWJPEG.DRV", "CANOPUS Power Window Motion JPEG Decompressor", cmoOverwrite
  619.     END IF
  620.  
  621. ''グループ登録
  622.     IF JPMODE <> 0 THEN
  623.         GROUP$ = "PowerWindow ｱﾌﾟﾘｹｰｼｮﾝ"
  624.     ELSE
  625.         GROUP$ = "PowerWindow Application"
  626.     END IF
  627.     CreateProgmanGroup GROUP$, "", cmoNone
  628.     ShowProgmanGroup   GROUP$,  1, cmoNone
  629.     UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "GROUP", GROUP$
  630.  
  631.     IF GetListItem(CHECKSTATES$, 1) = "ON" THEN
  632.         IF JPMODE <> 0 THEN
  633.             szIcon$ = "ﾘﾘｰｽﾉｰﾄ"
  634.         ELSE
  635.             szIcon$ = "Release Note"
  636.         END IF
  637.         CreateProgmanItem  GROUP$, szIcon$ , "NOTEPAD.EXE "+MakePath(DEST$,"README.TXT") , "", cmoOverwrite
  638.         UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "ICON", szIcon$
  639.     END IF
  640.  
  641.     IF GetListItem(CHECKSTATES$, 2) = "ON" THEN
  642.         CreateProgmanItem  GROUP$, "PowerCinema 95", MakePath(DEST$,"PWCINE95.EXE") , "", cmoOverwrite
  643.         UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "ICON", "PowerCinema 95"
  644.         IF DOCFLG = TRUE THEN
  645.             IF JPMODE <> 0 THEN
  646.                 CreateProgmanItem  GROUP$, "PowerCinema 95 Manual", MakePath(DEST$,"PWCINE95.DOC") , "", cmoOverwrite
  647.                 UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "ICON", "PowerCinema 95 Manual"
  648.             END IF
  649.         END IF
  650.     END IF
  651.  
  652.     IF GetListItem(CHECKSTATES$, 3) = "ON" THEN
  653.         CreateProgmanItem  GROUP$, "MPEG Mapper" , MakePath(DEST$,"MPEGC.EXE"), "", cmoOverwrite
  654.         UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "ICON", "MPEG Mapper"
  655.     END IF
  656.  
  657.     IF GetListItem(CHECKSTATES$, 4) = "ON" THEN
  658.         CreateProgmanItem  GROUP$, "Video Viewer" , MakePath(DEST$,"PWVVIEW.EXE"), "", cmoOverwrite
  659.         UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "ICON", "Video Viewer"
  660.     END IF
  661.  
  662.     IF GetListItem(CHECKSTATES$, 5) = "ON" THEN
  663.         CreateProgmanItem  GROUP$, "TV Tuner" , MakePath(DEST$,"PWTVRTUN.EXE"), "", cmoOverwrite
  664.         UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "ICON", "TV Tuner"
  665.     END IF
  666.  
  667.     IF JPMODE <> 0 THEN
  668.         szIcon$ = "ｱﾝｲﾝｽﾄｰﾗ"
  669.     ELSE
  670.         szIcon$ = "Uninstaller"
  671.     END IF
  672.     CreateProgmanItem  GROUP$, szIcon$ , MakePath(DEST$,"PWAPUIST.EXE"), "", cmoOverwrite
  673.     UninstallFileCounter WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", "ICON", szIcon$
  674. END SUB
  675.  
  676. '**********************************************
  677. ' 内容:
  678. '         フルパスの構造体に変換
  679. ' 引き数:
  680. '         szDir$  - フルパスディレクトリ名
  681. '         szFile$ - ファイル名またはディレクトリ名
  682. ' 戻り値:    
  683. '        パス名
  684. '**********************************************
  685. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  686.     IF szDir$ = "" THEN
  687.         MakePath = szFile$
  688.     ELSEIF szFile$ = "" THEN
  689.         MakePath = szDir$
  690.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  691.         MakePath = szDir$ + szFile$
  692.     ELSE
  693.         MakePath = szDir$ + "\" + szFile$
  694.     END IF
  695. END FUNCTION
  696.  
  697. '**********************************************
  698. ' 内容:
  699. '         Ini内容保管
  700. '         登録あれば、何もしない。
  701. ' 引き数:
  702. '         szFile$ - フルパスファイル
  703. '         szSec$  - セクション
  704. '         szKey$  - キー
  705. '         szVal$  - 値
  706. '         szSecOp$- ディレクトリ
  707. ' 戻り値:    
  708. '        なし
  709. '***********************************************
  710. SUB IniSetAndBakup (szFile$, szSec$, szKey$, szVal$, szSecOp$) STATIC
  711.  
  712.     szLoadBak$ = GetIniKeyString(szFile$, szSec$, szKey$)
  713.     szLoad$ = GetIniKeyString(WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", szSecOp$ + szKey$)
  714.     IF (szLoad$ = "") OR (szLoad$ <> szLoadBak$) THEN 
  715.         IF (szLoadBak$ <> szVal$) THEN
  716.             CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", szSecOp$ + szKey$, szLoadBak$, cmoOverwrite
  717.         END IF
  718.     END IF
  719.     CreateIniKeyValue szFile$, szSec$, szKey$, szVal$, cmoOverwrite
  720. END SUB
  721.  
  722. '**********************************************
  723. ' 内容:
  724. '         Ini内容保管
  725. ' 引き数:
  726. '         szFile$ - フルパスファイル
  727. '         szSec$  - セクション
  728. '         szKey$  - キー
  729. '         szVal$  - 値
  730. '         szSecOp$- ディレクトリ
  731. ' 戻り値:    
  732. '        なし
  733. '***********************************************
  734. SUB IniSetAndBakupChk (szFile$, szSec$, szKey$, szVal$, szSecOp$) STATIC
  735.  
  736.     IF MPEGDRV = 0 THEN
  737.         szLoadBak$ = GetIniKeyString(szFile$, szSec$, szKey$)
  738.         szLoad$ = GetIniKeyString(WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", szSecOp$ + szKey$)
  739.         IF (szLoad$ = "") OR (szLoad$ <> szLoadBak$) THEN 
  740.             IF (szLoadBak$ <> szVal$) THEN
  741.                 CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", szSecOp$ + szKey$, szLoadBak$, cmoOverwrite
  742.             END IF
  743.         END IF
  744.         CreateIniKeyValue szFile$, szSec$, szKey$, szVal$, cmoOverwrite
  745.     ELSE
  746.         WinSysDir$ = GetWindowsSysDir()
  747.         l& = GetSizeOfFile(WinSysDir$ + "MCIQTZ.DRV")
  748.         IF l& <> 0 THEN
  749.             szVal$ = "MCIQTZ.DRV"
  750.             CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", szSecOp$ + szKey$, szVal$, cmoOverwrite
  751.         ELSE
  752.             CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "PowerWindowApp", szSecOp$ + szKey$, "", cmoOverwrite
  753.         END IF
  754.         CreateIniKeyValue szFile$, szSec$, szKey$, szVal$, cmoOverwrite
  755.     END IF
  756. END SUB
  757.  
  758. '***************************************************
  759. ' 内容:
  760. '         アンインストールするファイルカウンタの内容保管
  761. ' 引き数:
  762. '         szFile$ - フルパスファイル
  763. '         szSec$  - セクション
  764. '         szKey$  - キー
  765. '         szVal$  - 値
  766. ' 戻り値:    
  767. '        なし
  768. '***************************************************
  769. SUB UninstallFileCounter (szFile$, szSec$, szKey$, szVal$ ) STATIC
  770.  
  771.     szLoad$ = ""
  772.     szLoadBak$ = ""
  773.  
  774.     FOR i% = 0 TO 1000 STEP 1
  775.         IF i% < 10 THEN
  776.             Number$ = MID$(STR$(i%), 2, 1)
  777.         ELSEIF i% < 100 THEN
  778.             Number$ = MID$(STR$(i%), 2, 2)
  779.         ELSE
  780.             Number$ = MID$(STR$(i%), 2, 3)
  781.         END IF
  782.         szLoadBak$ = GetIniKeyString(szFile$, szSec$, szKey$+Number$)
  783.         IF (szLoadBak$ = "") OR (szLoadBak$ = szVal$) THEN
  784.             CreateIniKeyValue szFile$, szSec$, szKey$+Number$, szVal$, cmoOverwrite
  785.             EXIT FOR
  786.         END IF
  787.     NEXT i%
  788. END SUB
  789.  
  790. '***************************************************
  791. ' 内容:
  792. '         Ini内容保管
  793. '         登録あれば、キー内容に未登録番号(1～9)を追加して保管する
  794. ' 引き数:
  795. '         szFile$ - フルパスファイル
  796. '         szSec$  - セクション
  797. '         szKey$  - キー
  798. '         szVal$  - 値
  799. '         szSecOp$- ディレクトリ
  800. ' 戻り値:    
  801. '        パス名
  802. '***************************************************
  803. SUB IniSetAndStandBakup (szFile$, szSec$, szKey$, szVal$, szSecOp$) STATIC
  804.  
  805.     szLoad$ = GetIniKeyString(szFile$, szSec$, szKey$)
  806.     FOR i% = 1 TO 9 STEP 1
  807.         Number$ = MID$(STR$(i%), 2, 1)
  808.         szLoad$ = GetIniKeyString(szFile$, szSec$, szKey$+Number$)
  809.         IF (szLoad$ = "") OR (szLoad$ = szVal$) OR (szLoad$ = "PWTVRCAP.DRV") OR (szLoad$ = "PWTVCAP.DRV") OR (szLoad$ = "PW91CAP.DRV") THEN
  810.             RemoveIniKey  szFile$, szSec$, szKey$+Number$, cmoNone
  811.         END IF
  812.     NEXT i%
  813.  
  814.     n% = 1
  815.     FOR i% = 1 TO 9 STEP 1
  816.         Number$ = MID$(STR$(i%), 2, 1)
  817.         szLoad$ = GetIniKeyString(szFile$, szSec$, szKey$+Number$)
  818.         IF (szLoad$ <> "") THEN 
  819.             Number$ = MID$(STR$(n%), 2, 1)
  820.             IF szLoad$ <> "" THEN
  821.                 CreateIniKeyValue szFile$, szSec$, szKey$+Number$, szLoad$, cmoOverwrite
  822.                 n% = n% + 1
  823.             END IF
  824.         END IF
  825.     NEXT i%
  826.     
  827.     CreateIniKeyValue szFile$, szSec$, szKey$, szVal$, cmoOverwrite
  828. END SUB
  829.  
  830. '***************************************************
  831. ' 内容:
  832. '         必要な情報を取得する。
  833. ' 引き数:
  834. '         なし
  835. ' 戻り値:    
  836. '        なし
  837. '***************************************************
  838. SUB DefaultLoad STATIC
  839.  
  840.     szIni$ = GetSymbolValue("STF_SRCINFPATH")
  841.     IF szIni$ = "" THEN
  842.         szIni$ = GetSymbolValue("STF_CWDDIR") + "setup.ini"
  843.     END IF
  844.  
  845.     szOp$ = GetIniKeyString(szIni$, "Option", "OPAP" )
  846.     VIEWERFLG = FALSE
  847.     TUNERFLG = FALSE
  848.     if szOP$ = "1" THEN
  849.         VIEWERFLG = TRUE
  850.     ELSEIF szOP$ = "2" THEN
  851.         TUNERFLG = TRUE
  852.     ELSEIF szOP$ = "3" THEN
  853.         VIEWERFLG = TRUE
  854.         TUNERFLG = TRUE
  855.     END IF
  856.  
  857.     szOp$ = GetIniKeyString(szIni$, "Option", "OPBD" )
  858.     OPBOARD = 0
  859.     if szOP$ = "1" THEN
  860.         OPBOARD = 1
  861.     ELSEIF szOP$ = "2" THEN
  862.         OPBOARD = 2
  863.     ELSEIF szOP$ = "3" THEN
  864.         OPBOARD = 3
  865.     END IF
  866.  
  867.     szOp$ = GetIniKeyString(szIni$, "Option", "MPEG" )
  868.     MPEGFLG = FALSE
  869.     if szOP$ = "1" THEN
  870.         MPEGFLG = TRUE
  871.     END IF
  872.  
  873.     szOp$ = GetIniKeyString(szIni$, "Option", "VIDEO" )
  874.     VIDEOFLG = FALSE
  875.     if szOP$ = "1" THEN
  876.         VIDEOFLG = TRUE
  877.     END IF
  878.  
  879.     szOp$ = GetIniKeyString(szIni$, "Option", "MPEGDRV" )
  880.     MPEGDRV = FALSE
  881.     if szOP$ = "1" THEN
  882.         MPEGDRV = TRUE
  883.     END IF
  884.  
  885.     szOp$ = GetIniKeyString(szIni$, "Option", "SP" )
  886.     SPFLG = FALSE
  887.     if szOP$ = "1" THEN
  888.         SPFLG = TRUE
  889.     END IF
  890.  
  891.     szOp$ = GetIniKeyString(szIni$, "Option", "CAP" )
  892.     CAPFLG = FALSE
  893.     if szOP$ = "1" THEN
  894.         CAPFLG = TRUE
  895.     END IF
  896.  
  897.     szOp$ = GetIniKeyString(szIni$, "Option", "DOC" )
  898.     DOCFLG = FALSE
  899.     if szOP$ = "1" THEN
  900.         DOCFLG = TRUE
  901.     END IF
  902.  
  903.     DEST$ = ""
  904.     WINDRIVE$ = GetWindowsDir()
  905.     i% = GetPowerWindowDir()
  906.     IF i% = TRUE THEN
  907.         DEST$ = GetSymbolValue("PwDirOut")
  908.     END IF
  909.     IF DEST$ = "" THEN
  910.         DEST$ = MID$(WINDRIVE$, 1, 1) + ":\PWAPP"
  911.     END IF
  912.  
  913.     i% = CheckPowerWindow()
  914.     IF i% = FALSE THEN 
  915.         IF JPMODE <> 0 THEN
  916.             dlg% = POWERERROR
  917.         ELSE
  918.             dlg% = POWERERRORUS
  919.         END IF
  920.         sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfoDlgProc", 0, "")
  921.         END
  922.     END IF
  923. END SUB
  924.