home *** CD-ROM | disk | FTP | other *** search
/ What the Doctor Required - The Freshest December / December.iso / drivers / ingame / sidewndr / common.in_ / common.in
Encoding:
Text File  |  1996-02-12  |  17.5 KB  |  620 lines
  1. '**************************************************************************
  2. '**************************************************************************
  3. DECLARE SUB InitialIzation
  4. DECLARE SUB BadOpSysNT
  5. DECLARE SUB BadOpSys30
  6. DECLARE SUB WAutoFig
  7. DECLARE SUB Notadmini
  8. DECLARE SUB Disincentive
  9. DECLARE SUB FindOldSoftWare
  10. DECLARE SUB ASKEXIT
  11. DECLARE SUB GetPath
  12. DECLARE SUB QuitInstall
  13. DECLARE SUB FillCopyList
  14. DECLARE SUB FillIniFile
  15. DECLARE FUNCTION WriteDisToFile LIB "mscuistf.dll" (Direct$) AS INTEGER
  16. DECLARE FUNCTION ReadIniDisin   LIB "mscuistf.dll" (Direct$) AS INTEGER
  17. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  18. DECLARE FUNCTION IsWinNT LIB "mscuistf.dll" AS INTEGER
  19. DECLARE FUNCTION FindWindow LIB "USER" (classname$, title$) AS INTEGER
  20. DECLARE FUNCTION GetBasicStr LIB "string.dll" (x%) AS INTEGER
  21. DECLARE FUNCTION SetRunLine LIB "mscuistf.dll" (lpNewLine$) AS INTEGER
  22. DECLARE FUNCTION RegisterWindowMessage LIB "USER" (sz$) AS INTEGER
  23.  
  24. DECLARE FUNCTION NTInit LIB "MSCOMSTF" AS INTEGER
  25. DECLARE FUNCTION NTIsDirWritable LIB "MSCOMSTF" (DirName$) AS INTEGER
  26. DECLARE FUNCTION NTCreateDir LIB "MSCOMSTF" (DirName$) AS INTEGER
  27. DECLARE FUNCTION NTGetWinDir LIB "MSCOMSTF" () AS INTEGER
  28. DECLARE FUNCTION NTGetSysDir LIB "MSCOMSTF" () AS INTEGER
  29. DECLARE FUNCTION NTCheckSecurity LIB "MSCOMSTF" AS INTEGER
  30. DECLARE FUNCTION NTSetRegistry LIB "MSCOMSTF" (RegInfo$, lang%) AS INTEGER
  31. DECLARE FUNCTION NTReboot LIB "MSCOMSTF" (Reboot%) AS INTEGER
  32. DECLARE FUNCTION NTFindDirs LIB "MSCOMSTF" (t1$, t2$, szDevice$) AS INTEGER
  33.  
  34. CONST WM_REBOOT    = 1536
  35. CONST WM_WTYPE     = 1537
  36. CONST WM_LANG      = 1538
  37. CONST WM_NONWINKBD = 1539
  38. CONST WM_KEYBOARD  = 1540
  39.  
  40. CONST DIS_NOT_INSTALLED = 101
  41. CONST DIS_INSTALLED = 202
  42. CONST DIS_CORUPTED = 303
  43.  
  44. '**************************************************************************
  45. '**************************************************************************
  46. SUB InitialIzation STATIC
  47.  
  48.     SetBitmap "string.dll", 1
  49.  
  50.     x% = GetBasicStr(8002)
  51.     sz$ = GetSymbolValue("SetupString")
  52.     SetTitle sz$
  53.     RemoveSymbol "SetupString"
  54.  
  55.     '' Get windows type
  56.     WINTYPE% = IsWinNT
  57.  
  58.     IF WINTYPE% = -1 THEN
  59.         BadOpSysNT
  60.     ELSEIF WINTYPE% = 0 THEN
  61.         WINTYPE% = GetWindowsMajorVersion
  62.         IF WINTYPE% = 3 THEN
  63.             x% = GetWindowsMinorVersion
  64.             IF x% = 0 THEN
  65.                 BadOpSys30
  66.             ENDIF
  67.             IF x% > 60 THEN
  68.                 WINTYPE% = 4
  69.             ENDIF
  70.         ENDIF
  71.     ENDIF
  72.  
  73.     'Find out if Autoexec.bat and Config.sys are writeable
  74.     i% = AutoFigWriteable()
  75.     if i% = 0 then
  76.         'Autoexec/Config.sys are read-only
  77.         WAutoFig
  78.     ENDIF
  79.  
  80.     '' Read setup.inf file
  81.     szSTR$ = GetSymbolValue("STF_SRCINFPATH")
  82.     IF szSTR$ = "" THEN
  83.         szSTR$ = GetSymbolValue("STF_CWDDIR")
  84.     END IF
  85.     SETUPINF$ = szSTR$
  86.  
  87.     ReadInfFile MakePath(szSTR$, "setup.inf")
  88.  
  89.     '' Find the Mother ship
  90.     HWIN% = FindWindow("STUFF-BOOT", NULL)
  91.     
  92.     '' Get source dir
  93.     SRCDIR$ = GetSymbolValue("STF_SRCDIR")
  94.  
  95.     '' Disincentive
  96.     RetCode% = ReadIniDisin(MakePath(SRCDIR$, "setup.ini"))
  97.  
  98.     ''Make Our Default drive and path string
  99.     IF WINTYPE% = 3 THEN
  100.         WINDIR$ = GetWindowsDir
  101.         WINSYSDIR$ = GetWindowsSysDir
  102.     ELSE
  103.         '32-Bit Windows
  104.         x% = NTInit()
  105.         if WINTYPE% = 1 then
  106.             'Basic does both tests on an AND... duh!
  107.             if NTCheckSecurity() = 0 then
  108.                 Notadmini
  109.             endif
  110.         endif
  111.         'Windows and windows/System32 may use 
  112.         'long filenames (get 8.3)
  113.         x%= NTGetWinDir()
  114.         WINDIR$ = GetSymbolValue("SetupString")
  115.         RemoveSymbol "SetupString"
  116.         x%= NTGetSysDir()
  117.         WINSYSDIR$ = GetSymbolValue("SetupString")
  118.         RemoveSymbol "SetupString"
  119.     ENDIF
  120.     
  121.     'Default MSINPUT directory
  122.     SHMSE$ = MID$(WINDIR$, 1, 1) + ":\MSINPUT"
  123.  
  124.     '' Set /O switch if on comand line
  125.     SETUPTYPE$ = GetIniKeyString(MakePath(SRCDIR$, "setup.lst"), "SetupType", "OEM")
  126.  
  127.     IF SETUPTYPE$ = "TRUE" THEN
  128.         OEMTYPE% = 1
  129.     ELSE
  130.         OEMTYPE% = 0
  131.     ENDIF
  132. END SUB
  133. '**************************************************************************
  134.  
  135. '**************************************************************************
  136. '**************************************************************************
  137. SUB BadOpSysNT STATIC
  138.  
  139. BNT:
  140.     sz$ = UIStartDlg(COMDLL$, BADOSNT, "FQuitDlgProc", 0, "")
  141.     IF sz$ = "HELP" THEN
  142.         sz$ = UIStartDlg(COMDLL$, NOHELP, "FHelpDlgProc", 0, "")
  143.         UIPop 1
  144.         GOTO BNT
  145.     ENDIF
  146.     UIPopAll
  147.     ERROR STFQUIT
  148.  
  149. END SUB
  150. '**************************************************************************
  151.  
  152. '**************************************************************************
  153. '**************************************************************************
  154. SUB BadOpSys30 STATIC
  155.  
  156. B30:
  157.     sz$ = UIStartDlg(COMDLL$, BADOS30, "FQuitDlgProc", 0, "")
  158.     IF sz$ = "HELP" THEN
  159.         sz$ = UIStartDlg(COMDLL$, NOHELP, "FHelpDlgProc", 0, "")
  160.         UIPop 1
  161.         GOTO B30
  162.     ENDIF
  163.     UIPopAll
  164.     ERROR STFQUIT
  165.  
  166. END SUB
  167. '**************************************************************************
  168.  
  169. '**************************************************************************
  170. '**************************************************************************
  171. SUB WAutoFig STATIC
  172.  
  173. WAF:
  174.     sz$ = UIStartDlg(COMDLL$, WRITEAUTOFIG, "FQuitDlgProc", 0, "")
  175.     IF sz$ = "HELP" THEN
  176.         sz$ = UIStartDlg(COMDLL$, NOHELP, "FHelpDlgProc", 0, "")
  177.         UIPop 1
  178.         GOTO WAF
  179.     ENDIF
  180.     UIPopAll
  181.     ERROR STFQUIT
  182.  
  183. END SUB
  184. '**************************************************************************
  185.  
  186. '**************************************************************************
  187. '**************************************************************************
  188. SUB Notadmini STATIC
  189.  
  190. NA:
  191.     sz$ = UIStartDlg(COMDLL$, NOTADMIN, "FQuitDlgProc", 0, "")
  192.     IF sz$ = "HELP" THEN
  193.         sz$ = UIStartDlg(COMDLL$, NOHELP, "FHelpDlgProc", 0, "")
  194.         UIPop 1
  195.         GOTO NA
  196.     ENDIF
  197.     UIPopAll
  198.     ERROR STFQUIT
  199.  
  200. END SUB
  201. '**************************************************************************
  202.  
  203. '**************************************************************************
  204. '**************************************************************************
  205. SUB Disincentive STATIC
  206.  
  207.     IF RetCode% = DIS_NOT_INSTALLED THEN
  208. REDOO:
  209.         sz$ = UIStartDlg(COMDLL$, CDGETNAME, "FNameOrgDlgProc", 0, "")
  210.         szName$ = GetSymbolValue("NameOut")
  211.  
  212.         IF sz$ = "CONTINUE" THEN
  213.             IF szName$ = "" or szName$ = " " THEN
  214. BN:
  215.                 sz$ = UIStartDlg(COMDLL$, CDBADNAME, "FConfirmDlgProc", 0, "")
  216.                 IF sz$ = "CONTINUE" THEN
  217.                     UIPop 1
  218.                     GOTO REDOO
  219.                 ELSEIF sz$ = "CANCEL" THEN
  220.                     UIPop 1
  221.                     GOTO REDOO
  222.                 ELSEIF sz$ = "HELP" THEN
  223.                     sz$ = UIStartDlg(COMDLL$, NOHELP, "FHelpDlgProc", 0, "")
  224.                     UIPop 1
  225.                     GOTO BN
  226.                 ELSE
  227.                     UIPop 1
  228.                     GOTO REDOO
  229.                 ENDIF
  230.             ENDIF            
  231.             AddListItem "ConfirmTextIn", szName$
  232.  
  233. CDCONFIRM:
  234.             sz$ = UIStartDlg(COMDLL$, CDCONFIRMINFO, "FConfirmDlgProc", 0, "")
  235.  
  236.             RemoveSymbol "ConfirmTextIn"                                
  237.             
  238.             IF sz$ = "BACK" OR sz$ = "CANCEL" THEN
  239.                 UIPop(1)
  240.                 GOTO REDOO
  241.             ELSEIF sz$ = "HELP" THEN
  242.                 sz$ = UIStartDlg(COMDLL$, NOHELP, "FHelpDlgProc", 0, "")
  243.                 UIPop 1
  244.                 GOTO CDCONFIRM
  245.             ELSE
  246.                 UIPop(2)
  247.             ENDIF
  248.  
  249.         ELSEIF sz$ = "EXIT" OR sz$ = "CANCEL" THEN
  250.             ASKEXIT
  251.             GOTO REDOO
  252.         ELSEIF sz$ = "HELP" THEN
  253.             sz$ = UIStartDlg(COMDLL$, NOHELP, "FHelpDlgProc", 0, "")
  254.             UIPop 1
  255.             GOTO REDOO
  256.         ELSE
  257.             GOTO REDOO
  258.         ENDIF
  259.  
  260.         SetSymbolValue "INSTALLEDNAME", szName$ 
  261.         SetSymbolValue "INSTALLEDORG", ""
  262.         sx% = WriteDisToFile(MakePath(SRCDIR$, "setup.ini"))
  263.         
  264.     ELSEIF RetCode% = DIS_INSTALLED THEN
  265.  
  266. DISINSTALLED:
  267.         szName$ = GetSymbolValue("INSTALLEDNAME")
  268.         szSer$ = GetSymbolValue("INSTALLEDSER")
  269.  
  270.         AddListItem "ConfirmTextIn", szName$
  271.         AddListItem "ConfirmTextIn", szSer$
  272.  
  273.         sz$ = UIStartDlg(COMDLL$, CDALREADYUSED, "FConfirmDlgProc", 0, "")
  274.         RemoveSymbol "ConfirmTextIn"                                
  275.  
  276.         IF sz$ = "EXIT" OR sz$ = "CANCEL" THEN
  277.             ASKEXIT
  278.             GOTO DISINSTALLED
  279.         ELSEIF sz$ = "HELP" THEN
  280.             sz$ = UIStartDlg(COMDLL$, NOHELP, "FHelpDlgProc", 0, "")
  281.             UIPop 1
  282.             GOTO DISINSTALLED
  283.         ELSE
  284.             UIPop(1)
  285.         ENDIF
  286.  
  287.     ELSEIF RetCode% = DIS_CORUPTED THEN
  288.  
  289. DISCORUPTED:
  290.         sz$ = UIStartDlg(COMDLL$, CDBADFILE, "FInfoDlgProc", 0, "")
  291.  
  292.         IF sz$ = "EXIT" OR sz$ = "CANCEL" THEN
  293.             ASKEXIT
  294.             GOTO DISCORUPTED
  295.         ELSEIF sz$ = "HELP" THEN
  296.             sz$ = UIStartDlg(COMDLL$, NOHELP, "FHelpDlgProc", 0, "")
  297.             UIPop 1
  298.             GOTO DISCORUPTED
  299.         ELSE
  300.             UIPop(1)
  301.         ENDIF
  302.  
  303.     ENDIF
  304.  
  305. END SUB
  306. '**************************************************************************
  307.  
  308. '**************************************************************************
  309. '**************************************************************************
  310. SUB FindOldSoftWare STATIC
  311.  
  312.     DLG% = DESTPATH
  313.     Cursor% = ShowWaitCursor()
  314.         
  315.     FOUNDOTHER% = 0
  316.     sz$ = GetEnvVariableValue("MSINPUT")
  317.     IF sz$="" AND WINTYPE% <> 3 THEN
  318.         'Win95 and WinNT
  319.         i% = NTFindDirs("", "", "JOYSTICK\SIDEWNDR")
  320.         IF i% <> 0 THEN
  321.             sz$ = GetSymbolValue("SetupString")
  322.         ENDIF
  323.     ENDIF
  324.         
  325.     IF sz$ <> "" THEN
  326.         FOUNDOTHER% = 1
  327.         SHMSE$ = sz$
  328.         IF FindFileUsingFileOpen(MakePath(sz$,"JOYSTICK\SIDEWNDR\UNINSTAL.EXE")) <> "" THEN
  329.             DLG% = FOUNDSOFT
  330.         ENDIF
  331.     ENDIF
  332.  
  333.     RestoreCursor Cursor
  334.  
  335. END SUB
  336. '**************************************************************************
  337.  
  338. '**************************************************************************
  339. '**************************************************************************
  340. SUB GetPath STATIC
  341.  
  342. FOUND:
  343.     IF FOUNDOTHER% = 1 THEN
  344.         AddListItem "ConfirmTextIn", SHMSE$
  345.         '' Do you realy want to change the directory?
  346. DET:
  347.         sz$ = UIStartDlg(COMDLL$, DETECT, "FConfirmDlgProc", 0, "")
  348.         IF sz$ = "CONTINUE" THEN
  349.             UIPop 1
  350.             GOTO XSTALL
  351.         ELSEIF sz$ = "CANCEL" THEN
  352.             ASKEXIT
  353.             GOTO DET
  354.         ELSEIF sz$ = "HELP" THEN
  355.             sz$ = UIStartDlg(COMDLL$, NOHELP, "FHelpDlgProc", 0, "")
  356.             UIPop 1
  357.             GOTO DET
  358.         ENDIF
  359.         UIPop 1
  360.  
  361.         AddListItem "ConfirmTextIn", SHMSE$
  362.         '' Do you REALY REALLY want to change the directory?
  363. WARN:
  364.         sz$ = UIStartDlg(COMDLL$, WARNING, "FConfirmDlgProc", 0, "")
  365.         IF sz$ = "CONTINUE" THEN
  366.             UIPop 1
  367.             GOTO XSTALL
  368.         ELSEIF sz$ = "CANCEL" THEN
  369.             ASKEXIT
  370.             GOTO WARN
  371.         ELSEIF sz$ = "HELP" THEN
  372.             sz$ = UIStartDlg(COMDLL$, NOHELP, "FHelpDlgProc", 0, "")
  373.             UIPop 1
  374.             GOTO WARN
  375.         ENDIF
  376.         UIPop 1
  377.     ENDIF
  378.  
  379.     SetSymbolValue "EditTextIn", SHMSE$
  380.     SetSymbolValue "EditFocus", "ALL"
  381. GETPATHL1:
  382.     sz$ = UIStartDlg(COMDLL$, DLG%, "FEditDlgProc", 0, "")
  383.     IF sz$ = "CONTINUE" THEN
  384.         SHMSE$ = GetSymbolValue("EditTextOut")
  385.         if SHMSE$ = "" then
  386.             goto BADPATH
  387.         endif
  388. RMBACK:
  389.         IF MID$(SHMSE$, LEN(SHMSE$), 1) = "\" THEN
  390.             IF LEN(SHMSE$) > 3 THEN
  391.                 SHMSE$ = MID$(SHMSE$, 1, LEN(SHMSE$)-1)
  392.                 GOTO RMBACK
  393.             ENDIF
  394.         ENDIF
  395.  
  396.         IF IsDirWritable(SHMSE$) = 0 THEN
  397. BADPATH:
  398.             sz$ = UIStartDlg(COMDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  399.             IF sz$ = "REACTIVATE" THEN
  400.                 GOTO BADPATH
  401.             ELSEIF sz$ = "HELP" THEN
  402.                 sz$ = UIStartDlg(COMDLL$, NOHELP, "FHelpDlgProc", 0, "")
  403.                 UIPop 1
  404.                 GOTO BADPATH
  405.             END IF
  406.             UIPop 1
  407.  
  408.             GOTO GETPATHL1
  409.  
  410.         END IF
  411.         UIPop 1
  412.  
  413.         '' Is there room on the drive?
  414.         IF WINTYPE% = 1 OR WINTYPE% = 4 THEN
  415.                ''   INPUT    USER
  416.             need& = 347957 + 422923
  417.         ELSEIF WINTYPE% = 3 THEN
  418.                ''   INPUT    USER
  419.             need& = 271697 + 345995
  420.         ENDIF
  421.         drive$ = MID$(SHMSE$, 1, 1)
  422.  
  423.         IF need& > GetFreeSpaceForDrive(drive$) THEN
  424. NOSPACE:
  425.             sz$ = UIStartDlg(COMDLL$, NOSPACEEXPRESS, "FInfo0DlgProc", 0, "")
  426.             IF sz$ = "CONTINUE" THEN
  427.                 UIPop 1
  428.                 GOTO GETPATHL1
  429.             ELSEIF sz$ = "BACK" OR sz$ = "CANCEL" THEN
  430.                 UIPop 1
  431.                 ASKEXIT
  432.                 GOTO GETPATHL1
  433.             ELSEIF sz$ = "REACTIVATE" THEN
  434.                 GOTO NOSPACE
  435.             ELSEIF sz$ = "HELP" THEN
  436.                 sz$ = UIStartDlg(COMDLL$, NOHELP, "FHelpDlgProc", 0, "")
  437.                 UIPop 1
  438.                 GOTO NOSPACE
  439.             ELSE
  440.                 GOTO GETPATHL1
  441.             END IF
  442.         END IF
  443.     ELSEIF sz$ = "EXIT" OR sz$ = "CANCEL" THEN
  444.         ASKEXIT
  445.         GOTO GETPATHL1
  446.     ELSEIF sz$ = "HELP" THEN
  447.         sz$ = UIStartDlg(COMDLL$, NOHELP, "FHelpDlgProc", 0, "")
  448.         UIPop 1
  449.         GOTO GETPATHL1
  450.     ELSE
  451.         GOTO GETPATHL1
  452.     END IF
  453.  
  454. XSTALL:
  455.  
  456. END SUB
  457. '**************************************************************************
  458.  
  459. '*************************************************************************
  460. '*************************************************************************
  461. SUB QuitInstall STATIC
  462.  
  463.     IF ERR = 0 THEN
  464. ES:
  465.         sz$ = UIStartDlg(COMDLL$, EXITSUCCESS, "FInfoDlgProc", 0, "")
  466.         IF sz$ = "EXIT" OR sz$ = "CANCEL" THEN
  467.             UIPop 1
  468.             x% = PostMessage(HWIN%, 1536, 0, 0)
  469.         ELSEIF sz$ = "BACK" THEN
  470.             UIPop 1
  471.             x% = PostMessage(HWIN%, 1536, 1, 0)
  472.         ELSEIF sz$ = "HELP" THEN
  473.             sz$ = UIStartDlg(COMDLL$, NOHELP, "FHelpDlgProc", 0, "")
  474.             UIPop 1
  475.             GOTO ES
  476.         ELSE
  477.             GOTO ES
  478.         END IF
  479.         END
  480.  
  481.     ELSEIF ERR = STFQUIT THEN
  482.         dlg% = EXITQUIT
  483.     ELSE
  484.         dlg% = EXITFAILURE
  485.     END IF
  486. QUITL1:
  487.     sz$ = UIStartDlg(COMDLL$, dlg%, "FInfo0DlgProc", 0, "")
  488.     IF sz$ = "REACTIVATE" THEN
  489.         GOTO QUITL1
  490.     ELSEIF sz$ = "HELP" THEN
  491.         sz$ = UIStartDlg(COMDLL$, NOHELP, "FHelpDlgProc", 0, "")
  492.         UIPop 1
  493.         GOTO QUITL1
  494.     ENDIF
  495.     UIPop 1
  496.     x% = PostMessage(HWIN%, 1536, 0, 0)
  497.     
  498.     END
  499.  
  500.     
  501. END SUB
  502. '*************************************************************************
  503.  
  504. '*************************************************************************
  505. '*************************************************************************
  506. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  507.     IF szDir$ = "" THEN
  508.         MakePath = szFile$
  509.     ELSEIF szFile$ = "" THEN
  510.         MakePath = szDir$
  511.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  512.         MakePath = szDir$ + szFile$
  513.     ELSE
  514.         MakePath = szDir$ + "\" + szFile$
  515.     END IF
  516. END FUNCTION
  517. '*************************************************************************
  518.  
  519. '*************************************************************************
  520. '*************************************************************************
  521. SUB ASKEXIT STATIC
  522. ASKQUIT:
  523.     sz$ = UIStartDlg(COMDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  524.     IF sz$ = "EXIT" THEN
  525.         UIPopAll
  526.         ERROR STFQUIT
  527.     ELSEIF sz$ = "REACTIVATE" THEN
  528.         GOTO ASKQUIT
  529.     ELSEIF sz$ = "HELP" THEN
  530.         sz$ = UIStartDlg(COMDLL$, NOHELP, "FHelpDlgProc", 0, "")
  531.         UIPop 1
  532.         GOTO ASKQUIT
  533.     ELSE
  534.         UIPop 1
  535.     END IF
  536.  
  537. END SUB
  538. '*************************************************************************
  539.  
  540. '*************************************************************************
  541. '*************************************************************************
  542. SUB FillCopyList STATIC
  543.  
  544.     ClearCopyList
  545.  
  546.     '[Setup] section keeps track of installations
  547.     szIni$ = MakePath(SHMSE$,"MSINPUT.INI")
  548.     
  549.     LangType = SendMessage(HWIN%, WM_LANG, 0, 0)
  550.     
  551.     IF WINTYPE% = 3 THEN
  552.         CreateIniKeyValue szIni$, "Setup", "Joystick.Win16", SHDST$, cmoOverwrite
  553.     ELSE
  554.         'Win95/NT/Daytona
  555.         IF WINTYPE% = 4 THEN
  556.             'Win95
  557.             CreateIniKeyValue szIni$, "Setup", "Joystick.Win95", SHDST$, cmoOverwrite
  558.             AddSectionKeyFileToCopyList "Files", "SIDEWNDR.VXD", SRCDIR$, WINSYSDIR$
  559.         ELSE
  560.             'NT/Daytona
  561.             CreateIniKeyValue szIni$, "Setup", "Joystick.WinNT", SHDST$, cmoOverwrite
  562.         ENDIF
  563.     ENDIF
  564.         
  565.  
  566.     IF LangType = 66 THEN
  567.         CreateIniKeyValue szIni$, "Setup", "Joystick.Lng", "German", cmoOverwrite
  568.         AddSectionKeyFileToCopyList "Files", "SIDEWNDR.GER", SRCDIR$, SHDST$
  569.         AddSectionKeyFileToCopyList "Files", "PSSTOC.GER", SRCDIR$, SHDST$
  570.         AddSectionKeyFileToCopyList "Files", "INFO.WRI", SRCDIR$, SHDST$
  571.         AddSectionKeyFileToCopyList "Files", "INFO.TXT", SRCDIR$, SHDST$
  572.     ELSEIF LangType = 67 THEN
  573.         CreateIniKeyValue szIni$, "Setup", "Joystick.Lng", "French", cmoOverwrite
  574.         AddSectionKeyFileToCopyList "Files", "SIDEWNDR.FRN", SRCDIR$, SHDST$
  575.         AddSectionKeyFileToCopyList "Files", "PSSTOC.FRN", SRCDIR$, SHDST$
  576.         AddSectionKeyFileToCopyList "Files", "LISEZMOI.WRI", SRCDIR$, SHDST$
  577.         AddSectionKeyFileToCopyList "Files", "LISEZMOI.TXT", SRCDIR$, SHDST$
  578.     ELSEIF LangType = 68 THEN
  579.         CreateIniKeyValue szIni$, "Setup", "Joystick.Lng", "Spanish", cmoOverwrite
  580.         AddSectionKeyFileToCopyList "Files", "SIDEWNDR.SPA", SRCDIR$, SHDST$
  581.         AddSectionKeyFileToCopyList "Files", "PSSTOC.SPA", SRCDIR$, SHDST$
  582.         AddSectionKeyFileToCopyList "Files", "LEAME.WRI", SRCDIR$, SHDST$
  583.         AddSectionKeyFileToCopyList "Files", "LEAME.TXT", SRCDIR$, SHDST$
  584.     ELSEIF LangType = 69 THEN
  585.         CreateIniKeyValue szIni$, "Setup", "Joystick.Lng", "Italian", cmoOverwrite
  586.         AddSectionKeyFileToCopyList "Files", "SIDEWNDR.ITA", SRCDIR$, SHDST$
  587.         AddSectionKeyFileToCopyList "Files", "PSSTOC.ITA", SRCDIR$, SHDST$
  588.         AddSectionKeyFileToCopyList "Files", "LEGGIMI.WRI", SRCDIR$, SHDST$
  589.         AddSectionKeyFileToCopyList "Files", "LEGGIMI.TXT", SRCDIR$, SHDST$
  590.     ELSE
  591.         'Default to English
  592.         CreateIniKeyValue szIni$, "Setup", "Joystick.Lng", "English", cmoOverwrite
  593.         AddSectionKeyFileToCopyList "Files", "SIDEWNDR.ENG", SRCDIR$, SHDST$
  594.         AddSectionKeyFileToCopyList "Files", "PSSTOC.ENG", SRCDIR$, SHDST$
  595.         AddSectionKeyFileToCopyList "Files", "README.TXT", SRCDIR$, SHDST$
  596.     ENDIF
  597.  
  598.     'Common files
  599.     AddSectionKeyFileToCopyList "Files", "PSS.ENG", SRCDIR$, SHDST$
  600.     AddSectionKeyFileToCopyList "Files", "SETUP.INI", SRCDIR$, SHDST$
  601.  
  602.     'This is for uninstall
  603.     AddSectionKeyFileToCopyList "Files", "UNINSTAL", SRCDIR$, SHDST$
  604.     AddSectionKeyFileToCopyList "Files", "NTFILE", SRCDIR$, SHDST$
  605.  
  606. END SUB
  607. '*************************************************************************
  608.  
  609. '*************************************************************************
  610. '*************************************************************************
  611. SUB FillIniFile STATIC
  612.     ini$ = MakePath(SHMSE$,"MSINPUT.INI")
  613.     CreateIniKeyValue ini$, "Directories", "Joystick", SHDST$, cmoOverwrite
  614.     CreateIniKeyValue ini$, "Joystick", "Interface", "Virtual_Input", cmoOverwrite
  615.     CreateIniKeyValue ini$, "Joystick", "Device", "Joystick", cmoOverwrite
  616.     CreateIniKeyValue ini$, "Joystick", "SideWinderGPE", "ON", cmoOverwrite
  617. END SUB
  618. '*************************************************************************
  619.  
  620.