home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0200 - 0209 / ibm0200-0209 / ibm0200.tar / ibm0200 / NEXUSPWA.ZIP / COMMON.IN_ / COMMON.IN
Encoding:
Text File  |  1994-05-02  |  21.3 KB  |  610 lines
  1. '**************************************************************************
  2. '**************************************************************************
  3. '**************************************************************************
  4. '**************************************************************************
  5. ''ix% = DoMsgBox("Before Read","DEBUG",MB_OK)
  6.  
  7.  
  8. DECLARE SUB InitialIzation
  9. DECLARE SUB BadOpSys
  10. DECLARE SUB Notadmini
  11. DECLARE SUB Disinsentive
  12. DECLARE SUB FindOldSoftWare
  13. DECLARE SUB ASKEXIT
  14. DECLARE SUB GetPath
  15. DECLARE SUB QuitInstall
  16. DECLARE SUB FillCopyList
  17. DECLARE SUB FillIniFile
  18.  
  19. DECLARE FUNCTION WriteDisToFile LIB "mscuistf.dll" (Direct$) AS INTEGER
  20. DECLARE FUNCTION ReadIniDisin   LIB "mscuistf.dll" (Direct$) AS INTEGER
  21. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  22. DECLARE FUNCTION IsWinNT LIB "mscuistf.dll" AS INTEGER
  23. DECLARE FUNCTION Launch32 LIB "mscuistf.dll" (szDir$) AS INTEGER
  24. DECLARE FUNCTION GetString LIB "mscuistf.dll" (x%) AS INTEGER
  25. DECLARE FUNCTION SetRunLine LIB "mscuistf.dll" (lpNewLine$) AS INTEGER
  26. DECLARE FUNCTION SetDrive LIB "mscuistf.dll" AS INTEGER
  27.  
  28.  
  29. ''********   For Disincentive  ********************
  30. CONST DIS_NOT_INSTALLED = 101
  31. CONST DIS_INSTALLED = 202
  32. CONST DIS_CORUPTED = 303
  33. ''*************************************************
  34.  
  35.  
  36. '**************************************************************************
  37. '**************************************************************************
  38. SUB InitialIzation STATIC
  39.  
  40.     x% = GetString(8002)
  41.     sz$ = GetSymbolValue("SetupString")
  42.     SetTitle sz$
  43.     RemoveSymbol "SetupString"
  44.  
  45.     SetBitmap COMDLL$, 1
  46.  
  47.     '' Read setup.inf file
  48.     szSTR$ = GetSymbolValue("STF_SRCINFPATH")
  49.     IF szSTR$ = "" THEN
  50.         szSTR$ = GetSymbolValue("STF_CWDDIR")
  51.     END IF
  52.     SETUPINF$ = szSTR$
  53.     ReadInfFile szSTR$ + "setup.inf"
  54.  
  55.     '' Find the Mother ship
  56.     HWIN% = FindWindow("SETUP", "SETUP")
  57.     
  58.     '' Get source dir
  59.     SRCDIR$ = GetSymbolValue("STF_SRCDIR")
  60.  
  61.     '' Disincentive
  62.     RetCode% = ReadIniDisin(SRCDIR$ + "setup.ini")
  63.  
  64.     '' Get windows type
  65.     WINTYPE% = IsWinNT
  66.  
  67.     IF WINTYPE% = -1 THEN
  68.         BADOPS% = 500
  69.         BadOpSys
  70.     ELSEIF WINTYPE% = 0 THEN
  71.  
  72.         WINTYPE% = GetWindowsMajorVersion
  73.         IF WINTYPE% = 3 THEN
  74.  
  75.             IF GetWindowsMinorVersion = 0 THEN
  76.                 BADOPS% = 550
  77.                 BadOpSys
  78.             ENDIF
  79.  
  80.             IF GetWindowsMinorVersion = 99 THEN
  81.                 WINTYPE% = 4
  82.             ENDIF
  83.  
  84.         ENDIF
  85.  
  86.         kbd& = SendMessage(HWIN%, 2076, 0, 0)
  87.         IF kbd& <> 500 THEN
  88.             sz$ = UIStartDlg(COMDLL$, NOTWINKEY, "FQuitDlgProc", 0, "")
  89.         
  90.             UIPopAll
  91.             ERROR STFQUIT
  92.         ENDIF
  93.  
  94.     ELSEIF WINTYPE% = 1 THEN
  95.         SetSymbolValue "Win32Launch", SETUPINF$
  96.         x% = Launch32("NTSP.EXE #400")
  97.         sz$ = GetSymbolValue("Win32Message")
  98.         RemoveSymbol "Win32Message"
  99.  
  100.         IF sz$ = "EXIT" THEN
  101.             Notadmini
  102.         ENDIF
  103.     ENDIF
  104.  
  105.     ''Make Our Default drive and path string
  106.     WINDRIVE$ = MID$(GetWindowsDir, 1, 1)
  107.     DESTDIR$ = WINDRIVE$ + DEFDIR$
  108.  
  109.     '' Get MSINPUT dir
  110.     MSENV$ = WINDRIVE$ + DEFDIR$
  111.     sz$ = FindFileUsingFileOpen(MSENV$ + "\POINTER.EXE")
  112.     IF sz$ = "" THEN
  113.        MSINP% = 0
  114.     ELSE
  115.        MSINP% = 1
  116.     ENDIF
  117.     sz$ = ""
  118.  
  119.     '' Set /O switch if on comand line
  120.     SETUPTYPE$ = GetIniKeyString(SRCDIR$ + "setup.lst","SetupType","OEM")
  121.  
  122.     IF SETUPTYPE$ = "TRUE" THEN
  123.         OEMTYPE% = 1
  124.     ELSE
  125.         OEMTYPE% = 0
  126.     ENDIF
  127.  
  128. END SUB
  129. '**************************************************************************
  130.  
  131. '**************************************************************************
  132. '**************************************************************************
  133. SUB BadOpSys STATIC
  134.  
  135.     sz$ = UIStartDlg(COMDLL$, BADOPS%, "FQuitDlgProc", 0, "")
  136.     UIPopAll
  137.     ERROR STFQUIT
  138.  
  139. END SUB
  140. '**************************************************************************
  141.  
  142. '**************************************************************************
  143. '**************************************************************************
  144. SUB Notadmini STATIC
  145.  
  146.     sz$ = UIStartDlg(COMDLL$, NOTADMIN, "FQuitDlgProc", 0, "")
  147.     UIPopAll
  148.     ERROR STFQUIT
  149.  
  150. END SUB
  151. '**************************************************************************
  152.  
  153. '**************************************************************************
  154. '**************************************************************************
  155. SUB Disinsentive STATIC
  156.  
  157.     IF RetCode% = DIS_NOT_INSTALLED THEN
  158.  
  159. REDOO:
  160.         sz$ = UIStartDlg(COMDLL$, CDGETNAME, "FNameOrgDlgProc", APPHELP, HELPPROC$)
  161.         szName$ = GetSymbolValue("NameOut")
  162.         szOrg$ = GetSymbolValue("OrgOut")
  163.  
  164.         IF sz$ = "CONTINUE" THEN
  165.             AddListItem "ConfirmTextIn", szName$
  166.             AddListItem "ConfirmTextIn", szOrg$
  167.  
  168.             sz$ = UIStartDlg(COMDLL$, CDCONFIRMINFO, "FConfirmDlgProc", APPHELP, HELPPROC$)
  169.         
  170.             RemoveSymbol "ConfirmTextIn"                                
  171.             
  172.             IF sz$ = "BACK" THEN
  173.                 UIPop(1)
  174.                 GOTO REDOO
  175.             ELSE
  176.                 UIPop(2)
  177.             ENDIF
  178.  
  179.         ELSEIF sz$ = "EXIT" THEN
  180.         
  181.             ASKEXIT
  182.             
  183.             GOTO REDOO
  184.  
  185.         ENDIF
  186.  
  187.         SetSymbolValue "INSTALLEDNAME", szName$ 
  188.         SetSymbolValue "INSTALLEDORG", szOrg$ 
  189.         sx% = WriteDisToFile(SRCDIR$ + "setup.ini")
  190.         
  191.     ELSEIF RetCode% = DIS_INSTALLED THEN
  192.  
  193. DISINSTALLED:
  194.         szName$ = GetSymbolValue("INSTALLEDNAME")
  195.         szOrg$ = GetSymbolValue("INSTALLEDORG")
  196.         szSer$ = GetSymbolValue("INSTALLEDSER")
  197.  
  198.         AddListItem "ConfirmTextIn", szName$
  199.         AddListItem "ConfirmTextIn", szOrg$
  200.         AddListItem "ConfirmTextIn", szSer$
  201.  
  202.         sz$ = UIStartDlg(COMDLL$, CDALREADYUSED, "FConfirmDlgProc", APPHELP, HELPPROC$)
  203.  
  204.         IF sz$ = "EXIT" THEN
  205.             ASKEXIT
  206.  
  207.             GOTO DISINSTALLED
  208.  
  209.         ELSE
  210.             UIPop(1)
  211.         ENDIF
  212.  
  213.     ELSEIF RetCode% = DIS_CORUPTED THEN
  214.  
  215. DISCORUPTED:
  216.         sz$ = UIStartDlg(COMDLL$, CDBADFILE, "FInfoDlgProc", APPHELP, HELPPROC$)
  217.  
  218.         IF sz$ = "EXIT" THEN
  219.             ASKEXIT
  220.  
  221.             GOTO DISCORUPTED
  222.  
  223.         ELSE
  224.             UIPop(1)
  225.         ENDIF
  226.  
  227.     ENDIF
  228.  
  229. END SUB
  230. '**************************************************************************
  231.  
  232. '**************************************************************************
  233. '**************************************************************************
  234. SUB FindOldSoftWare STATIC
  235.  
  236.     DLG% = DESTPATH
  237.     Cursor% = ShowWaitCursor()
  238.         
  239.     ''Find old Nexus dir
  240.     IF WINTYPE% = 1 THEN
  241.         SetSymbolValue "Win32Launch", SETUPINF$
  242.         x% = Launch32("NTSP.EXE #300")
  243.         sz$ = GetSymbolValue("Win32Message")
  244.         RemoveSymbol "Win32Message"
  245.  
  246.         IF FindFileUsingFileOpen(sz$ + "\KBD32.CPL") <> "" THEN
  247.             DESTDIR$ = sz$
  248.             DLG% = PREINSTALLED
  249.         ENDIF
  250.     ELSE
  251.         sz$ = GetIniKeyString(MSENV$, "DIRECTORYS","Keyboard")
  252.         IF FindFileUsingFileOpen(sz$ + "\KBD16.CPL") <> "" THEN
  253.             DESTDIR$ = sz$
  254.             DLG% = PREINSTALLED
  255.  
  256.         ENDIF
  257.     ENDIF
  258.  
  259.     '' Kill Old Pointer   This stuff is in \common\win\inc\pointer.h
  260.     kbd& = SendMessage(FindWindow("POINTEXE","Pointer.exe Invisible Window"), 1133, 0, 0)
  261.     
  262.     '' Kill Real Old Pointer
  263.     kd& = SendMessage(FindWindow("GROWSTUB",""),2,0,0)
  264.  
  265.     RestoreCursor Cursor
  266.  
  267. END SUB
  268. '**************************************************************************
  269.  
  270. '**************************************************************************
  271. '**************************************************************************
  272. SUB GetPath STATIC
  273.  
  274.     SetSymbolValue "EditFocus", "ALL"
  275.     
  276.  
  277. GETPATHL1:
  278.  
  279.     SetSymbolValue "EditTextIn", DESTDIR$
  280.     sz$ = UIStartDlg(COMDLL$, DLG%, "FEditDlgProc", APPHELP, HELPPROC$)
  281.     
  282.     IF sz$ = "CONTINUE" THEN
  283.  
  284.         DESTDIR$ = GetSymbolValue("EditTextOut")
  285.  
  286.         IF WINTYPE% = 1 THEN
  287.                ''   INPUT    USER
  288.             free& = 347957 + 422923
  289.         ELSEIF WINTYPE% = 3 THEN
  290.                ''   INPUT    USER
  291.             free& = 271697 + 345995
  292.         ELSEIF WINTYPE% = 4 THEN
  293.                ''   INPUT    USER
  294.             free& = 347957 + 422923
  295.         ENDIF
  296.         drive$ = MID$(DESTDIR$, 1, 1)
  297.  
  298.         IF GetFreeSpaceForDrive(drive$) < free& THEN
  299. NOSPACE:
  300.             sz$ = UIStartDlg(COMDLL$, 6600, "FInfo0DlgProc", 0, "")
  301.             IF sz$ = "CONTINUE" THEN
  302.                 UIPop 1
  303.                 GOTO GETPATHL1
  304.             ELSEIF sz$ = "BACK" THEN
  305.                 UIPop 1
  306.                 ASKEXIT
  307.                 GOTO GETPATHL1
  308.             ELSEIF sz$ = "REACTIVATE" THEN
  309.                 GOTO NOSPACE
  310.             ELSE
  311.                 GOTO GETPATHL1
  312.             END IF
  313.         END IF
  314.  
  315.  
  316.         ''Validate new path.
  317.         IF IsDirWritable(DESTDIR$) = 0 THEN
  318.             
  319. BADPATH:
  320.             sz$ = UIStartDlg(COMDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  321.             IF sz$ = "REACTIVATE" THEN
  322.                 GOTO BADPATH
  323.             END IF
  324.             UIPop 1
  325.  
  326.             GOTO GETPATHL1
  327.  
  328.         END IF
  329.         UIPop 1
  330.  
  331.     ELSEIF sz$ = "REACTIVATE" THEN
  332.         GOTO GETPATHL1
  333.     ELSE
  334.         ASKEXIT
  335.  
  336.         GOTO GETPATHL1
  337.  
  338.     END IF
  339.  
  340. END SUB
  341. '**************************************************************************
  342.  
  343. '*************************************************************************
  344. '*************************************************************************
  345. SUB QuitInstall STATIC
  346.  
  347.     IF ERR = 0 THEN
  348.         sz$ = UIStartDlg(COMDLL$, EXITSUCCESS, "FInfoDlgProc", 0, "")
  349.  
  350.         IF WINTYPE% = 1 THEN
  351.             x% = WriteProfileString("windows","run", MSENV$ + "\POINT32.EXE, " + DESTDIR$ + "\KBDX32.EXE")
  352.         ELSE
  353.             x% = SetRunLine(MSENV$ + "\POINTER.EXE " + DESTDIR$ + "\KBDX16.EXE ")'' must have space at end of line
  354.         ENDIF
  355.  
  356.         IF sz$ = "EXIT" THEN
  357.             x% = PostMessage(HWIN%, 2048, 100, 0)  
  358.             UIPop 1
  359.             END
  360.  
  361.         ELSEIF sz$ = "BACK" THEN
  362.  
  363.             UIPop 1
  364.             IF WINTYPE% = 1 THEN
  365.                 CopyFile SETUPINF$ + "ntsp.exe", DESTDIR$ + "\ntsp.exe", cmdNone, 0
  366.                 x% = PostMessage(HWIN%, 2048, 100, 0)  
  367.                 x% = WinExec(DESTDIR$ + "\ntsp.exe  #100", 5)
  368.             ELSE
  369.                 x% = PostMessage(HWIN%, 2048, 100, 1)  
  370.             ENDIF
  371.             END
  372.         ELSE
  373.             END
  374.         END IF
  375.  
  376.         UIPop 1
  377.         END
  378.  
  379.     ELSEIF ERR = STFQUIT THEN
  380.         dlg% = EXITQUIT
  381.     ELSE
  382.         dlg% = EXITFAILURE
  383.     END IF
  384. QUITL1:
  385.     sz$ = UIStartDlg(COMDLL$, dlg%, "FInfo0DlgProc", 0, "")
  386.     IF sz$ = "REACTIVATE" THEN
  387.         GOTO QUITL1
  388.     END IF
  389.     UIPop 1
  390.     x% = PostMessage(HWIN%, 2048, 100, 0)  
  391.     
  392.     END
  393.  
  394.     
  395. END SUB
  396. '*************************************************************************
  397.  
  398. '*************************************************************************
  399. '*************************************************************************
  400. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  401.     IF szDir$ = "" THEN
  402.         MakePath = szFile$
  403.     ELSEIF szFile$ = "" THEN
  404.         MakePath = szDir$
  405.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  406.         MakePath = szDir$ + szFile$
  407.     ELSE
  408.         MakePath = szDir$ + "\" + szFile$
  409.     END IF
  410. END FUNCTION
  411. '*************************************************************************
  412.  
  413. '*************************************************************************
  414. '*************************************************************************
  415. SUB ASKEXIT STATIC
  416. ASKQUIT:
  417.     sz$ = UIStartDlg(COMDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  418.     IF sz$ = "EXIT" THEN
  419.         UIPopAll
  420.         ERROR STFQUIT
  421.     ELSEIF sz$ = "REACTIVATE" THEN
  422.         GOTO ASKQUIT
  423.     ELSE
  424.         UIPop 1
  425.     END IF
  426.  
  427. END SUB
  428. '*************************************************************************
  429.  
  430. '*************************************************************************
  431. '*************************************************************************
  432. SUB FillCopyList STATIC
  433.  
  434.     ClearCopyList
  435.  
  436.     LangType& = SendMessage(HWIN%, 2089, 0, 0)
  437.     AddSectionFilesToCopyList "MS_Input", SRCDIR$, MSENV$
  438.     ini$ = GetWindowsDir
  439.  
  440.     IF WINTYPE% = 3 THEN
  441.         AddSectionFilesToCopyList "Sys16", SRCDIR$, ini$ + "SYSTEM"
  442.         AddSectionFilesToCopyList "Win16drv", SRCDIR$, MSENV$
  443.         AddSectionFilesToCopyList "Win16", SRCDIR$, MSENV$
  444.         AddSectionFilesToCopyList "Nex16", SRCDIR$, DESTDIR$
  445.  
  446.         IF LangType = 65 THEN
  447.             AddSectionKeyFileToCopyList "WinLan", "A", SRCDIR$, ini$ + "SYSTEM" 
  448.             AddSectionKeyFileToCopyList "Common", "A", SRCDIR$, DESTDIR$ 
  449.             AddSectionKeyFileToCopyList "Common", "ZA", SRCDIR$, DESTDIR$ 
  450.             AddSectionKeyFileToCopyList "DosLan", "A", SRCDIR$, MSENV$ 
  451.             AddSectionKeyFileToCopyList "Common", "K", SRCDIR$, DESTDIR$ 
  452.         ELSEIF LangType = 66 THEN
  453.             AddSectionKeyFileToCopyList "WinLan", "B", SRCDIR$, ini$ + "SYSTEM"
  454.             AddSectionKeyFileToCopyList "Common", "B", SRCDIR$, DESTDIR$ 
  455.             AddSectionKeyFileToCopyList "Common", "ZB", SRCDIR$, DESTDIR$ 
  456.             AddSectionKeyFileToCopyList "DosLan", "B", SRCDIR$, MSENV$ 
  457.             AddSectionKeyFileToCopyList "Common", "L", SRCDIR$, DESTDIR$ 
  458.         ELSEIF LangType = 67 THEN
  459.             AddSectionKeyFileToCopyList "WinLan", "C", SRCDIR$, ini$ + "SYSTEM"
  460.             AddSectionKeyFileToCopyList "Common", "C", SRCDIR$, DESTDIR$ 
  461.             AddSectionKeyFileToCopyList "Common", "ZC", SRCDIR$, DESTDIR$ 
  462.             AddSectionKeyFileToCopyList "DosLan", "C", SRCDIR$, MSENV$ 
  463.             AddSectionKeyFileToCopyList "Common", "M", SRCDIR$, DESTDIR$ 
  464.         ELSEIF LangType = 68 THEN
  465.             AddSectionKeyFileToCopyList "WinLan", "D", SRCDIR$, ini$ + "SYSTEM"
  466.             AddSectionKeyFileToCopyList "Common", "D", SRCDIR$, DESTDIR$ 
  467.             AddSectionKeyFileToCopyList "Common", "ZD", SRCDIR$, DESTDIR$ 
  468.             AddSectionKeyFileToCopyList "DosLan", "D", SRCDIR$, MSENV$ 
  469.             AddSectionKeyFileToCopyList "Common", "N", SRCDIR$, DESTDIR$ 
  470.         ELSEIF LangType = 69 THEN
  471.             AddSectionKeyFileToCopyList "WinLan", "E", SRCDIR$, ini$ + "SYSTEM"
  472.             AddSectionKeyFileToCopyList "Common", "E", SRCDIR$, DESTDIR$ 
  473.             AddSectionKeyFileToCopyList "Common", "ZE", SRCDIR$, DESTDIR$ 
  474.             AddSectionKeyFileToCopyList "DosLan", "E", SRCDIR$, MSENV$ 
  475.             AddSectionKeyFileToCopyList "Common", "O", SRCDIR$, DESTDIR$ 
  476.         ENDIF
  477.  
  478.     ELSEIF WINTYPE% = 4 THEN
  479.         AddSectionFilesToCopyList "Sys16", SRCDIR$, ini$ + "SYSTEM"
  480.         AddSectionFilesToCopyList "Win16", SRCDIR$, MSENV$
  481.         AddSectionFilesToCopyList "Nex16", SRCDIR$, DESTDIR$
  482.         AddSectionFilesToCopyList "Win16drv", SRCDIR$, MSENV$
  483.  
  484.         IF LangType = 65 THEN
  485.             AddSectionKeyFileToCopyList "WinLan", "A", SRCDIR$, ini$ + "SYSTEM"
  486.             AddSectionKeyFileToCopyList "Common", "A", SRCDIR$, DESTDIR$ 
  487.             AddSectionKeyFileToCopyList "Common", "K", SRCDIR$, DESTDIR$ 
  488.             AddSectionKeyFileToCopyList "DosLan", "A", SRCDIR$, MSENV$ 
  489.         ELSEIF LangType = 66 THEN
  490.             AddSectionKeyFileToCopyList "WinLan", "B", SRCDIR$, ini$ + "SYSTEM"
  491.             AddSectionKeyFileToCopyList "Common", "B", SRCDIR$, DESTDIR$ 
  492.             AddSectionKeyFileToCopyList "Common", "L", SRCDIR$, DESTDIR$ 
  493.             AddSectionKeyFileToCopyList "DosLan", "B", SRCDIR$, MSENV$ 
  494.         ELSEIF LangType = 67 THEN
  495.             AddSectionKeyFileToCopyList "WinLan", "C", SRCDIR$, ini$ + "SYSTEM"
  496.             AddSectionKeyFileToCopyList "Common", "C", SRCDIR$, DESTDIR$ 
  497.             AddSectionKeyFileToCopyList "Common", "M", SRCDIR$, DESTDIR$ 
  498.             AddSectionKeyFileToCopyList "DosLan", "C", SRCDIR$, MSENV$ 
  499.         ELSEIF LangType = 68 THEN
  500.             AddSectionKeyFileToCopyList "WinLan", "D", SRCDIR$, ini$ + "SYSTEM"
  501.             AddSectionKeyFileToCopyList "Common", "D", SRCDIR$, DESTDIR$ 
  502.             AddSectionKeyFileToCopyList "Common", "N", SRCDIR$, DESTDIR$ 
  503.             AddSectionKeyFileToCopyList "DosLan", "D", SRCDIR$, MSENV$ 
  504.         ELSEIF LangType = 69 THEN
  505.             AddSectionKeyFileToCopyList "WinLan", "E", SRCDIR$, ini$ + "SYSTEM"
  506.             AddSectionKeyFileToCopyList "Common", "E", SRCDIR$, DESTDIR$ 
  507.             AddSectionKeyFileToCopyList "Common", "O", SRCDIR$, DESTDIR$ 
  508.             AddSectionKeyFileToCopyList "DosLan", "E", SRCDIR$, MSENV$ 
  509.         ENDIF
  510.  
  511.  
  512.     ELSEIF WINTYPE% = 1 THEN
  513.         AddSectionFilesToCopyList "Sys32", SRCDIR$, ini$ + "SYSTEM32"
  514.         AddSectionFilesToCopyList "WinNTdrv", SRCDIR$, MakePath(GetWindowsDir, "SYSTEM32\DRIVERS")
  515.         AddSectionFilesToCopyList "Win32", SRCDIR$, MSENV$
  516.         AddSectionFilesToCopyList "Nex32", SRCDIR$, DESTDIR$
  517.  
  518.         IF LangType = 65 THEN
  519.             AddSectionKeyFileToCopyList "WinLan", "K", SRCDIR$, ini$ + "SYSTEM32"
  520.             AddSectionKeyFileToCopyList "Common", "K", SRCDIR$, DESTDIR$ 
  521.             AddSectionKeyFileToCopyList "Common", "A", SRCDIR$, DESTDIR$ 
  522.             AddSectionKeyFileToCopyList "Common", "ZA", SRCDIR$, DESTDIR$ 
  523.         ELSEIF LangType = 66 THEN
  524.             AddSectionKeyFileToCopyList "WinLan", "L", SRCDIR$, ini$ + "SYSTEM32"
  525.             AddSectionKeyFileToCopyList "Common", "L", SRCDIR$, DESTDIR$ 
  526.             AddSectionKeyFileToCopyList "Common", "B", SRCDIR$, DESTDIR$ 
  527.             AddSectionKeyFileToCopyList "Common", "ZB", SRCDIR$, DESTDIR$ 
  528.         ELSEIF LangType = 67 THEN
  529.             AddSectionKeyFileToCopyList "WinLan", "M", SRCDIR$, ini$ + "SYSTEM32"
  530.             AddSectionKeyFileToCopyList "Common", "M", SRCDIR$, DESTDIR$ 
  531.             AddSectionKeyFileToCopyList "Common", "C", SRCDIR$, DESTDIR$ 
  532.             AddSectionKeyFileToCopyList "Common", "ZC", SRCDIR$, DESTDIR$ 
  533.         ELSEIF LangType = 68 THEN
  534.             AddSectionKeyFileToCopyList "WinLan", "N", SRCDIR$, ini$ + "SYSTEM32"
  535.             AddSectionKeyFileToCopyList "Common", "N", SRCDIR$, DESTDIR$ 
  536.             AddSectionKeyFileToCopyList "Common", "D", SRCDIR$, DESTDIR$ 
  537.             AddSectionKeyFileToCopyList "Common", "ZD", SRCDIR$, DESTDIR$ 
  538.         ELSEIF LangType = 69 THEN
  539.             AddSectionKeyFileToCopyList "WinLan", "O", SRCDIR$, ini$ + "SYSTEM32"
  540.             AddSectionKeyFileToCopyList "Common", "O", SRCDIR$, DESTDIR$ 
  541.             AddSectionKeyFileToCopyList "Common", "E", SRCDIR$, DESTDIR$ 
  542.             AddSectionKeyFileToCopyList "Common", "ZE", SRCDIR$, DESTDIR$ 
  543.         ENDIF
  544.  
  545.     ENDIF
  546.  
  547. END SUB
  548. '*************************************************************************
  549.  
  550. '*************************************************************************
  551. '*************************************************************************
  552. SUB FillIniFile STATIC
  553.  
  554.     ini$ = MakePath(GetWindowsDir(), "CONTROL.INI")
  555.     CreateIniKeyValue ini$, "MMCPL", "mskbd", DESTDIR$ + "\kbd16.cpl", cmoOverwrite
  556.  
  557.     ini$ = MakePath(GetWindowsDir(), "SYSTEM.INI")
  558.     szSec$ = "keyboard"
  559.  
  560.     IF WINTYPE% = 3 THEN
  561.         CreateIniKeyValue ini$, "386Enh", "keyboard", MSENV$ + "\ms_input.386", cmoOverwrite
  562.     ENDIF
  563.  
  564.     CreateIniKeyValue ini$, "boot", "keyboard.drv", MakePath(MSENV$,"kbd.drv"), cmoOverwrite
  565.     
  566.     CreateIniKeyValue ini$, szSec$, "Type", "4", cmoOverwrite
  567.     CreateIniKeyValue ini$, szSec$, "SubType", "8", cmoOverwrite
  568.  
  569.     ini$ = MSENV$ + "\MS_INPUT.INI"
  570.  
  571.     CreateIniKeyValue ini$, "Directories", "Keyboard", DESTDIR$, cmoOverwrite
  572.     
  573.     CreateIniKeyValue ini$, szSec$, "Interface", "Keyboard", cmoOverwrite
  574.     CreateIniKeyValue ini$, szSec$, "Device", "Keyboard", cmoOverwrite
  575.     CreateIniKeyValue ini$, szSec$, "CapsLockDisable", "OFF", cmoOverwrite
  576.     CreateIniKeyValue ini$, szSec$, "NumLock", "OFF", cmoOverwrite
  577.     CreateIniKeyValue ini$, szSec$, "CapsLock", "OFF", cmoOverwrite
  578.     CreateIniKeyValue ini$, szSec$, "ScrollLock", "OFF", cmoOverwrite
  579.     
  580.     szSec$ = "WindowsPointer"
  581.     
  582.     CreateIniKeyValue ini$, szSec$, "WrapBarrier", "OFF", cmoOverwrite
  583.     CreateIniKeyValue ini$, szSec$, "SnapTo", "OFF", cmoOverwrite
  584.     CreateIniKeyValue ini$, szSec$, "SnapBack", "OFF", cmoOverwrite
  585.     CreateIniKeyValue ini$, szSec$, "ScreenWrap", "OFF", cmoOverwrite
  586.     CreateIniKeyValue ini$, szSec$, "FastPointer", "OFF", cmoOverwrite
  587.     CreateIniKeyValue ini$, szSec$, "MouseKey", "ON", cmoOverwrite
  588.     CreateIniKeyValue ini$, szSec$, "Home", "OFF", cmoOverwrite
  589.     CreateIniKeyValue ini$, szSec$, "MouseKeyFeedback", "ON", cmoOverwrite
  590.     CreateIniKeyValue ini$, szSec$, "Sonar", "OFF", cmoOverwrite
  591.         
  592.     szSec$ = "Sound"
  593.  
  594.     CreateIniKeyValue ini$, szSec$, "KeySound", "SoundsOff", cmoOverwrite
  595.  
  596.     szSec$ = "TaskMan"
  597.     szWin$ = GetWindowsDir
  598.  
  599.     CreateIniKeyValue ini$, szSec$, "F2", szWin$ + "WINFILE.EXE", cmoOverwrite
  600.     CreateIniKeyValue ini$, szSec$, "F3", DESTDIR$ + "\KBDX16.EXE", cmoOverwrite
  601.     CreateIniKeyValue ini$, szSec$, "F4", szWin$ + "PBRUSH.EXE", cmoOverwrite
  602.     CreateIniKeyValue ini$, szSec$, "F5", szWin$ + "NOTEPAD.EXE", cmoOverwrite
  603.     CreateIniKeyValue ini$, szSec$, "F6", szWin$ + "CALC.EXE", cmoOverwrite
  604.  
  605.     ini$ = ""
  606.     szSec$ = ""
  607.  
  608. END SUB
  609. '*************************************************************************
  610.