home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 January (DVD) / VPR980100.ISO / OLS / WIN16 / CG_ST / CG_ST02.LZH / MSDETECT.IN_ / MSDETECT.IN
Text File  |  1993-11-18  |  22KB  |  665 lines
  1. '**************************************************************************
  2. '*************************  Setup Detect API's  ***************************
  3. '**************************************************************************
  4.  
  5. ''detect
  6.  
  7. DECLARE FUNCTION FFileInUse LIB "msinsstf.dll" (szFile$) AS INTEGER
  8. DECLARE FUNCTION CbGetVersionOfFile LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  9. DECLARE FUNCTION LGetVersionNthField LIB "msdetstf.dll" (szVersion$, nField%) AS LONG
  10. DECLARE FUNCTION LcbGetSizeOfFile LIB "msdetstf.dll" (szFile$) AS LONG
  11. DECLARE FUNCTION FGetValidDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  12. DECLARE FUNCTION FGetLocalHardDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  13. DECLARE FUNCTION FGetRemovableDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  14. DECLARE FUNCTION FGetNetworkDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  15. DECLARE FUNCTION LcbTotalDrive LIB "msdetstf.dll" (nDrive%) AS LONG
  16. DECLARE FUNCTION LcbFreeDrive LIB "msdetstf.dll" (nDrive%) AS LONG
  17. DECLARE FUNCTION FIsValidDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  18. DECLARE FUNCTION FIsLocalHardDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  19. DECLARE FUNCTION FIsRemoveDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  20. DECLARE FUNCTION FIsRemoteDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  21. DECLARE FUNCTION FDirExists LIB "msdetstf.dll" (szDir$) AS INTEGER
  22. DECLARE FUNCTION FDoesFileExist LIB "msdetstf.dll" (szFileName$, mode%) AS INTEGER
  23. DECLARE FUNCTION CbGetDateOfFile LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  24. DECLARE FUNCTION FDoesIniSectionExist LIB "msdetstf.dll" (szFile$, szSect$) AS INTEGER
  25. DECLARE FUNCTION FDoesIniKeyExist LIB "msdetstf.dll" (szFile$, szSect$, szKey$) AS INTEGER
  26. DECLARE FUNCTION CbGetIniKeyString LIB "msdetstf.dll" (szFile$, szSect$, szKey$, szBuf$, cbBuf%) AS INTEGER
  27. DECLARE FUNCTION WGetDOSMajorVersion LIB "msdetstf.dll" AS INTEGER
  28. DECLARE FUNCTION WGetDOSMinorVersion LIB "msdetstf.dll" AS INTEGER
  29. DECLARE FUNCTION CbGetEnvVariableValue LIB "msdetstf.dll" (szEnvVar$, szBuf$, cbBuf%) AS INTEGER
  30. DECLARE FUNCTION WGetNumWinApps LIB "msdetstf.dll" AS INTEGER
  31. DECLARE FUNCTION FGetParallelPortsList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  32. DECLARE FUNCTION FGetSerialPortsList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  33. DECLARE FUNCTION FHas87MathChip LIB "msdetstf.dll" AS INTEGER
  34. DECLARE FUNCTION FHasMonochromeDisplay LIB "msdetstf.dll" AS INTEGER
  35. DECLARE FUNCTION FHasMouseInstalled LIB "msdetstf.dll" AS INTEGER
  36. DECLARE FUNCTION WGetConfigSmartdrvSize LIB "msdetstf.dll" AS INTEGER
  37. DECLARE FUNCTION WGetConfigRamdriveSize LIB "msdetstf.dll" AS INTEGER
  38. DECLARE FUNCTION WGetConfigNumBuffers LIB "msdetstf.dll" AS INTEGER
  39. DECLARE FUNCTION WGetConfigNumFiles LIB "msdetstf.dll" AS INTEGER
  40. DECLARE FUNCTION WGetConfigLastDrive LIB "msdetstf.dll" AS INTEGER
  41. DECLARE FUNCTION FIsDriverInConfig LIB "msdetstf.dll" (szDrv$) AS INTEGER
  42. DECLARE FUNCTION CbFindTargetOnEnvVar LIB "msdetstf.dll" (szFile$, szEnvVar$, szBuf$, cbBuf%) AS INTEGER
  43. DECLARE FUNCTION CbFindFileInTree LIB "msdetstf.dll" (szFile$, szDir$, szBuf$, cbBuf%) AS INTEGER
  44. DECLARE FUNCTION GetTypeFaceNameFromTTF LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  45. DECLARE FUNCTION GetExistingFOTFileForTTF LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  46.  
  47.  
  48.  
  49. '*************************************************************************
  50. '****************  Detect Basic Wrapper Declarations  ********************
  51. '*************************************************************************
  52.  
  53.  
  54. '' detect
  55.  
  56. DECLARE FUNCTION IsDriveValid (szDrive$) AS INTEGER
  57. DECLARE FUNCTION IsDriveLocalHard (szDrive$) AS INTEGER
  58. DECLARE FUNCTION IsDriveRemovable (szDrive$) AS INTEGER
  59. DECLARE FUNCTION IsDriveNetwork (szDrive$) AS INTEGER
  60. DECLARE SUB GetValidDrivesList (szSymbol$)
  61. DECLARE SUB GetLocalHardDrivesList (szSymbol$)
  62. DECLARE SUB GetRemovableDrivesList (szSymbol$)
  63. DECLARE SUB GetNetworkDrivesList (szSymbol$)
  64. DECLARE FUNCTION GetTotalSpaceForDrive (szDrive$) AS LONG
  65. DECLARE FUNCTION GetFreeSpaceForDrive (szDrive$) AS LONG
  66.  
  67. DECLARE FUNCTION GetDOSMajorVersion AS INTEGER
  68. DECLARE FUNCTION GetDOSMinorVersion AS INTEGER
  69. DECLARE FUNCTION GetEnvVariableValue (szEnvVar$) AS STRING
  70. DECLARE FUNCTION GetNumWinApps AS INTEGER
  71.  
  72. DECLARE FUNCTION DoesFileExist (szFile$, mode%) AS INTEGER
  73. DECLARE FUNCTION GetDateOfFile (szFile$) AS STRING
  74. DECLARE FUNCTION GetYearFromDate (szDate$) AS INTEGER
  75. DECLARE FUNCTION GetMonthFromDate (szDate$) AS INTEGER
  76. DECLARE FUNCTION GetDayFromDate (szDate$) AS INTEGER
  77. DECLARE FUNCTION GetHourFromDate (szDate$) AS INTEGER
  78. DECLARE FUNCTION GetMinuteFromDate (szDate$) AS INTEGER
  79. DECLARE FUNCTION GetSecondFromDate (szDate$) AS INTEGER
  80. DECLARE FUNCTION GetVersionOfFile (szFile$) AS STRING
  81. DECLARE FUNCTION GetVersionNthField (szVersion$, nField%) AS LONG
  82. DECLARE FUNCTION GetSizeOfFile (szFile$) AS LONG
  83. DECLARE FUNCTION FindTargetOnEnvVar (szFile$, szEnvVar$) AS STRING
  84. DECLARE FUNCTION FindFileInTree (szFile$, szDir$) AS STRING
  85. DECLARE FUNCTION DoesDirExist (szDir$) AS INTEGER
  86.  
  87. DECLARE FUNCTION DoesIniSectionExist (szFile$, szSect$) AS INTEGER
  88. DECLARE FUNCTION DoesIniKeyExist (szFile$, szSect$, szKey$) AS INTEGER
  89. DECLARE FUNCTION GetIniKeyString (szFile$, szSect$, szKey$) AS STRING
  90.  
  91. DECLARE FUNCTION GetConfigSmartdrvSize AS INTEGER
  92. DECLARE FUNCTION GetConfigRamdriveSize AS INTEGER
  93. DECLARE FUNCTION GetConfigNumBuffers AS INTEGER
  94. DECLARE FUNCTION GetConfigNumFiles AS INTEGER
  95. DECLARE FUNCTION GetConfigLastDrive AS STRING
  96. DECLARE FUNCTION IsDriverInConfig (szDrv$) AS INTEGER
  97.  
  98. DECLARE FUNCTION GetProcessorType AS INTEGER
  99. DECLARE SUB GetParallelPortsList (szSymbol$)
  100. DECLARE SUB GetSerialPortsList (szSymbol$)
  101. DECLARE FUNCTION Has87MathChip AS INTEGER
  102. DECLARE FUNCTION HasMonochromeDisplay AS INTEGER
  103. DECLARE FUNCTION HasMouseInstalled AS INTEGER
  104.  
  105.  
  106. '*************************************************************************
  107. FUNCTION IsDriveValid (szDrive$) STATIC  AS INTEGER
  108. '$ifdef DEBUG
  109.     if FValidDrive(szDrive$) = 0 then
  110.         BadArgErr 1, "IsDriveValid", szDrive$
  111.     end if
  112. '$endif ''DEBUG
  113.     IsDriveValid = FIsValidDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  114. END FUNCTION
  115.  
  116.  
  117. '*************************************************************************
  118. FUNCTION IsDriveLocalHard (szDrive$) STATIC  AS INTEGER
  119. '$ifdef DEBUG
  120.     if FValidDrive(szDrive$) = 0 then
  121.         BadArgErr 1, "IsDriveLocalHard", szDrive$
  122.     end if
  123. '$endif ''DEBUG
  124.     IsDriveLocalHard = FIsLocalHardDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  125. END FUNCTION
  126.  
  127.  
  128. '*************************************************************************
  129. FUNCTION IsDriveRemovable (szDrive$) STATIC  AS INTEGER
  130. '$ifdef DEBUG
  131.     if FValidDrive(szDrive$) = 0 then
  132.         BadArgErr 1, "IsDriveRemovable", szDrive$
  133.     end if
  134. '$endif ''DEBUG
  135.     IsDriveRemovable = FIsRemoveDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  136. END FUNCTION
  137.  
  138.  
  139. '*************************************************************************
  140. FUNCTION IsDriveNetwork (szDrive$) STATIC  AS INTEGER
  141. '$ifdef DEBUG
  142.     if FValidDrive(szDrive$) = 0 then
  143.         BadArgErr 1, "IsDriveNetwork", szDrive$
  144.     end if
  145. '$endif ''DEBUG
  146.     IsDriveNetwork = FIsRemoteDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  147. END FUNCTION
  148.  
  149.  
  150. '*************************************************************************
  151. FUNCTION GetTotalSpaceForDrive (szDrive$) STATIC  AS LONG
  152. '$ifdef DEBUG
  153.     if FValidDrive(szDrive$) = 0 then
  154.         BadArgErr 1, "GetTotalSpaceForDrive", szDrive$
  155.     end if
  156. '$endif ''DEBUG
  157.     GetTotalSpaceForDrive = LcbTotalDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  158. END FUNCTION
  159.  
  160.  
  161. '*************************************************************************
  162. FUNCTION GetFreeSpaceForDrive (szDrive$) STATIC  AS LONG
  163. '$ifdef DEBUG
  164.     if FValidDrive(szDrive$) = 0 then
  165.         BadArgErr 1, "GetFreeSpaceForDrive", szDrive$
  166.     end if
  167. '$endif ''DEBUG
  168.     GetFreeSpaceForDrive = LcbFreeDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  169. END FUNCTION
  170.  
  171.  
  172. '*************************************************************************
  173. SUB GetValidDrivesList (szSymbol$) STATIC
  174. '$ifdef DEBUG
  175.     if szSymbol$ = "" then
  176.         BadArgErr 1, "GetValidDrivesList", szSymbol$
  177.     end if
  178. '$endif ''DEBUG
  179.     if FGetValidDrivesList(szSymbol$) = 0 then
  180. '$ifdef DEBUG
  181.         StfApiErr saeFail, "GetValidDrivesList", szSymbol$
  182. '$endif ''DEBUG
  183.         ERROR STFERR
  184.     end if
  185. END SUB
  186.  
  187.  
  188. '*************************************************************************
  189. SUB GetLocalHardDrivesList (szSymbol$) STATIC
  190. '$ifdef DEBUG
  191.     if szSymbol$ = "" then
  192.         BadArgErr 1, "GetLocalHardDrivesList", szSymbol$
  193.     end if
  194. '$endif ''DEBUG
  195.     if FGetLocalHardDrivesList(szSymbol$) = 0 then
  196. '$ifdef DEBUG
  197.         StfApiErr saeFail, "GetLocalHardDrivesList", szSymbol$
  198. '$endif ''DEBUG
  199.         ERROR STFERR
  200.     end if
  201. END SUB
  202.  
  203.  
  204. '*************************************************************************
  205. SUB GetRemovableDrivesList (szSymbol$) STATIC
  206. '$ifdef DEBUG
  207.     if szSymbol$ = "" then
  208.         BadArgErr 1, "GetRemovableDrivesList", szSymbol$
  209.     end if
  210. '$endif ''DEBUG
  211.     if FGetRemovableDrivesList(szSymbol$) = 0 then
  212. '$ifdef DEBUG
  213.         StfApiErr saeFail, "GetRemovableDrivesList", szSymbol$
  214. '$endif ''DEBUG
  215.         ERROR STFERR
  216.     end if
  217. END SUB
  218.  
  219.  
  220. '*************************************************************************
  221. SUB GetNetworkDrivesList (szSymbol$) STATIC
  222. '$ifdef DEBUG
  223.     if szSymbol$ = "" then
  224.         BadArgErr 1, "GetNetworkDrivesList", szSymbol$
  225.     end if
  226. '$endif ''DEBUG
  227.     if FGetNetworkDrivesList(szSymbol$) = 0 then
  228. '$ifdef DEBUG
  229.         StfApiErr saeFail, "GetNetworkDrivesList", szSymbol$
  230. '$endif ''DEBUG
  231.         ERROR STFERR
  232.     end if
  233. END SUB
  234.  
  235.  
  236. '*************************************************************************
  237. FUNCTION GetDOSMajorVersion STATIC  AS INTEGER
  238.     GetDOSMajorVersion = WGetDOSMajorVersion
  239. END FUNCTION
  240.  
  241.  
  242. '*************************************************************************
  243. FUNCTION GetDOSMinorVersion STATIC  AS INTEGER
  244.     GetDOSMinorVersion = WGetDOSMinorVersion
  245. END FUNCTION
  246.  
  247.  
  248. '*************************************************************************
  249. FUNCTION GetEnvVariableValue (szEnvVar$) STATIC  AS STRING
  250. '$ifdef DEBUG
  251.     if szEnvVar$ = "" then
  252.         BadArgErr 1, "GetEnvVariableValue", szEnvVar$
  253.     end if
  254. '$endif ''DEBUG
  255.     cb% = 1024
  256.     szBuf$ = STRING$(cb%, 32)
  257.     cbRet% = CbGetEnvVariableValue(szEnvVar$, szBuf$, cb%)
  258.     GetEnvVariableValue = szBuf$
  259. '$ifdef DEBUG
  260.     IF cbRet% >= cb% THEN
  261.         StfApiErr saeOvfl, "GetEnvVariableValue", szEnvVar$
  262.         ERROR STFERR
  263.     END IF
  264. '$endif ''DEBUG
  265.     szBuf$ = ""
  266. END FUNCTION
  267.  
  268.  
  269. '*************************************************************************
  270. FUNCTION GetNumWinApps STATIC  AS INTEGER
  271.     GetNumWinApps = WGetNumWinApps
  272. END FUNCTION
  273.  
  274.  
  275. '*************************************************************************
  276. FUNCTION DoesFileExist (szFileName$, mode%) STATIC  AS INTEGER
  277. '$ifdef DEBUG
  278.     if FValidFATPath(szFileName$) = 0 then
  279.         BadArgErr 1, "DoesFileExist", szFileName$+", "+STR$(mode%)
  280.     end if
  281. '$endif ''DEBUG
  282.     DoesFileExist = FDoesFileExist(szFileName$, mode%)
  283. END FUNCTION
  284.  
  285.  
  286. '*************************************************************************
  287. FUNCTION GetDateOfFile (szFile$) STATIC  AS STRING
  288. '$ifdef DEBUG
  289.     if FValidFATPath(szFile$) = 0 then
  290.         BadArgErr 1, "GetDateOfFile", szFile$
  291.     end if
  292. '$endif ''DEBUG
  293.     cb% = 20
  294.     szBuf$ = STRING$(cb%, 32)
  295.     cbRet% = CbGetDateOfFile(szFile$, szBuf$, cb%)
  296.     GetDateOfFile = szBuf$
  297. '$ifdef DEBUG
  298.     IF cbRet% >= cb% THEN
  299.         StfApiErr saeOvfl, "GetDateOfFile", szFile$
  300.         ERROR STFERR
  301.     END IF
  302. '$endif ''DEBUG
  303.     szBuf$ = ""
  304. END FUNCTION
  305.  
  306.  
  307. '*************************************************************************
  308. FUNCTION GetYearFromDate (szDate$) STATIC  AS INTEGER
  309. '$ifdef DEBUG
  310.     if szDate = "" then
  311.         BadArgErr 1, "GetYearFromDate", szDate$
  312.     end if
  313. '$endif ''DEBUG
  314.     GetYearFromDate = VAL(MID$(szDate$, 1, 4))
  315. END FUNCTION
  316.  
  317.  
  318. '*************************************************************************
  319. FUNCTION GetMonthFromDate (szDate$) STATIC  AS INTEGER
  320. '$ifdef DEBUG
  321.     if szDate = "" then
  322.         BadArgErr 1, "GetMonthFromDate", szDate$
  323.     end if
  324. '$endif ''DEBUG
  325.     GetMonthFromDate = VAL(MID$(szDate$, 6, 2))
  326. END FUNCTION
  327.  
  328.  
  329. '*************************************************************************
  330. FUNCTION GetDayFromDate (szDate$) STATIC  AS INTEGER
  331. '$ifdef DEBUG
  332.     if szDate = "" then
  333.         BadArgErr 1, "GetDayFromDate", szDate$
  334.     end if
  335. '$endif ''DEBUG
  336.     GetDayFromDate = VAL(MID$(szDate$, 9, 2))
  337. END FUNCTION
  338.  
  339.  
  340. '*************************************************************************
  341. FUNCTION GetHourFromDate (szDate$) STATIC  AS INTEGER
  342. '$ifdef DEBUG
  343.     if szDate = "" then
  344.         BadArgErr 1, "GetHourFromDate", szDate$
  345.     end if
  346. '$endif ''DEBUG
  347.     GetHourFromDate = VAL(MID$(szDate$, 12, 2))
  348. END FUNCTION
  349.  
  350.  
  351. '*************************************************************************
  352. FUNCTION GetMinuteFromDate (szDate$) STATIC  AS INTEGER
  353. '$ifdef DEBUG
  354.     if szDate = "" then
  355.         BadArgErr 1, "GetMinuteFromDate", szDate$
  356.     end if
  357. '$endif ''DEBUG
  358.     GetMinuteFromDate = VAL(MID$(szDate$, 15, 2))
  359. END FUNCTION
  360.  
  361.  
  362. '*************************************************************************
  363. FUNCTION GetSecondFromDate (szDate$) STATIC  AS INTEGER
  364. '$ifdef DEBUG
  365.     if szDate = "" then
  366.         BadArgErr 1, "GetSecondFromDate", szDate$
  367.     end if
  368. '$endif ''DEBUG
  369.     GetSecondFromDate = VAL(MID$(szDate$, 18, 2))
  370. END FUNCTION
  371.  
  372.  
  373. '*************************************************************************
  374. FUNCTION GetVersionOfFile (szFile$) STATIC  AS STRING
  375. '$ifdef DEBUG
  376.     if FValidFATPath(szFile$) = 0 then
  377.         BadArgErr 1, "GetVersionOfFile", szFile$
  378.     end if
  379. '$endif ''DEBUG
  380.     cb% = 30
  381.     szBuf$ = STRING$(cb%, 32)
  382.     cbRet% = CbGetVersionOfFile(szFile$, szBuf$, cb%)
  383.     GetVersionOfFile = szBuf$
  384. '$ifdef DEBUG
  385.     IF cbRet% >= cb% THEN
  386.         StfApiErr saeOvfl, "GetVersionOfFile", szFile$
  387.         ERROR STFERR
  388.     END IF
  389. '$endif ''DEBUG
  390.     szBuf$ = ""
  391. END FUNCTION
  392.  
  393.  
  394. '*************************************************************************
  395. FUNCTION GetVersionNthField (szVersion$, nField%) STATIC  AS LONG
  396. '$ifdef DEBUG
  397.     if (nField% < 1) OR (nField% > 4) then
  398.         BadArgErr 2, "GetVersionNthField", szVersion$+", "+STR$(nField%)
  399.     end if
  400. '$endif ''DEBUG
  401.     GetVersionNthField = LGetVersionNthField(szVersion$, nField%)
  402. END FUNCTION
  403.  
  404.  
  405. '*************************************************************************
  406. FUNCTION GetSizeOfFile (szFile$) STATIC  AS LONG
  407. '$ifdef DEBUG
  408.     if FValidFATPath(szFile$) = 0 then
  409.         BadArgErr 1, "GetSizeOfFile", szFile$
  410.     end if
  411. '$endif ''DEBUG
  412.     GetSizeOfFile = LcbGetSizeOfFile(szFile$)
  413. END FUNCTION
  414.  
  415.  
  416. '*************************************************************************
  417. FUNCTION FindTargetOnEnvVar (szFile$, szEnvVar$) STATIC  AS STRING
  418. '$ifdef DEBUG
  419.     if CchlValidFATSubPath(szFile$) = 0 then
  420.         n% = 1
  421.     elseif szEnvVar$ = "" then
  422.         n% = 2
  423.     else
  424.         n% = 0
  425.     end if
  426.     if n% > 0 then
  427.         BadArgErr n%, "FindTargetOnEnvVar", szFile$+", "+szEnvVar$
  428.     end if
  429. '$endif ''DEBUG
  430.  
  431.     cb% = 512
  432.     szBuf$ = STRING$(cb%, 32)
  433.     cbRet% = CbFindTargetOnEnvVar(szFile$, szEnvVar$, szBuf$, cb%)
  434.     IF cbRet% >= cb% THEN
  435. '$ifdef DEBUG
  436.         StfApiErr saeOvfl, "FindTargetOnEnvVar", szFile$+", "+szEnvVar$
  437. '$endif ''DEBUG
  438.         ERROR STFERR
  439.     END IF
  440.     szBuf$ = RTRIM$(szBuf$)
  441.     IF MID$(szBuf$, 1, 1) = "\" THEN
  442.        szBuf$ = MID$(CURDIR$, 1, 2) + szBuf$
  443.     ELSEIF Len(szBuf$) > 0 AND MID$(szBuf$, 2, 1) <> ":" THEN
  444.        szBuf$ = MID$(CURDIR$, 1, 3) + szBuf$
  445.     END IF
  446.     FindTargetOnEnvVar = szBuf$
  447.     szBuf$ = ""
  448. END FUNCTION
  449.  
  450.  
  451. '*************************************************************************
  452. FUNCTION FindFileInTree (szFile$, szDir$) STATIC  AS STRING
  453. '$ifdef DEBUG
  454.     if CchlValidFATSubPath(szFile$) = 0 then
  455.         n% = 1
  456.     elseif FValidFATDir(szDir$) = 0 then
  457.         n% = 2
  458.     else
  459.         n% = 0
  460.     end if
  461.     if n% > 0 then
  462.         BadArgErr n%, "FindFileInTree", szFile$+", "+szDir$
  463.     end if
  464. '$endif ''DEBUG
  465.  
  466.     cb% = 512
  467.     szBuf$ = STRING$(cb%, 32)
  468.     cbRet% = CbFindFileInTree(szFile$, szDir$, szBuf$, cb%)
  469.     FindFileInTree = szBuf$
  470. '$ifdef DEBUG
  471.     IF cbRet% >= cb% THEN
  472.         StfApiErr saeOvfl, "FindFileInTree", szFile$+", "+szDir$
  473.         ERROR STFERR
  474.     END IF
  475. '$endif ''DEBUG
  476.     szBuf$ = ""
  477. END FUNCTION
  478.  
  479.  
  480. '*************************************************************************
  481. FUNCTION GetConfigSmartdrvSize STATIC  AS INTEGER
  482.     GetConfigSmartdrvSize = WGetConfigSmartdrvSize
  483. END FUNCTION
  484.  
  485.  
  486. '*************************************************************************
  487. FUNCTION GetConfigRamdriveSize STATIC  AS INTEGER
  488.     GetConfigRamdriveSize = WGetConfigRamdriveSize
  489. END FUNCTION
  490.  
  491.  
  492. '*************************************************************************
  493. FUNCTION GetConfigNumBuffers STATIC  AS INTEGER
  494.     GetConfigNumBuffers = WGetConfigNumBuffers
  495. END FUNCTION
  496.  
  497.  
  498. '*************************************************************************
  499. FUNCTION GetConfigNumFiles STATIC  AS INTEGER
  500.     GetConfigNumFiles = WGetConfigNumFiles
  501. END FUNCTION
  502.  
  503.  
  504. '*************************************************************************
  505. FUNCTION GetConfigLastDrive STATIC  AS STRING
  506.     chRet% = WGetConfigLastDrive
  507.     if chRet% = 0 then
  508.         GetConfigLastDrive = ""
  509.     else
  510.         GetConfigLastDrive = CHR$(chRet%)
  511.     end if
  512. END FUNCTION
  513.  
  514.  
  515. '*************************************************************************
  516. FUNCTION IsDriverInConfig (szDrv$) STATIC  AS INTEGER
  517. '$ifdef DEBUG
  518.     if szDrv$ = "" then
  519.         BadArgErr 1, "IsDriverInConfig", szDrv$
  520.     end if
  521. '$endif ''DEBUG
  522.     IsDriverInConfig = FIsDriverInConfig(szDrv$)
  523. END FUNCTION
  524.  
  525.  
  526. '*************************************************************************
  527. FUNCTION GetProcessorType STATIC  AS INTEGER
  528.     GetProcessorType = 0
  529.     longTmp& = GetWinFlags()
  530.     IF longTmp& AND WF_CPUR4000 THEN
  531.         GetProcessorType = 5
  532.     ELSEIF longTmp& AND WF_CPU486 THEN
  533.         GetProcessorType = 4
  534.     ELSEIF longTmp& AND WF_CPU386 THEN
  535.         GetProcessorType = 3
  536.     ELSEIF longTmp& AND WF_CPU286 THEN
  537.         GetProcessorType = 2
  538.     ELSEIF longTmp& AND WF_CPU186 THEN
  539.         GetProcessorType = 1
  540.     END IF
  541. END FUNCTION
  542.  
  543.  
  544. '*************************************************************************
  545. SUB GetParallelPortsList (szSymbol$) STATIC
  546. '$ifdef DEBUG
  547.     if szSymbol$ = "" then
  548.         BadArgErr 1, "GetParallelPortsList", szSymbol$
  549.     end if
  550. '$endif ''DEBUG
  551.     if FGetParallelPortsList(szSymbol$) = 0 then
  552. '$ifdef DEBUG
  553.         StfApiErr saeFail, "GetParallelPortsList", szSymbol$
  554. '$endif ''DEBUG
  555.         ERROR STFERR
  556.     end if
  557. END SUB
  558.  
  559.  
  560. '*************************************************************************
  561. SUB GetSerialPortsList (szSymbol$) STATIC
  562. '$ifdef DEBUG
  563.     if szSymbol$ = "" then
  564.         BadArgErr 1, "GetSerialPortsList", szSymbol$
  565.     end if
  566. '$endif ''DEBUG
  567.     if FGetSerialPortsList(szSymbol$) = 0 then
  568. '$ifdef DEBUG
  569.         StfApiErr saeFail, "GetSerialPortsList", szSymbol$
  570. '$endif ''DEBUG
  571.         ERROR STFERR
  572.     end if
  573. END SUB
  574.  
  575.  
  576. '*************************************************************************
  577. FUNCTION Has87MathChip STATIC  AS INTEGER
  578.     Has87MathChip = FHas87MathChip
  579. END FUNCTION
  580.  
  581.  
  582. '*************************************************************************
  583. FUNCTION HasMonochromeDisplay STATIC  AS INTEGER
  584.     HasMonochromeDisplay = FHasMonochromeDisplay
  585. END FUNCTION
  586.  
  587.  
  588. '*************************************************************************
  589. FUNCTION HasMouseInstalled STATIC  AS INTEGER
  590.     HasMouseInstalled = FHasMouseInstalled
  591. END FUNCTION
  592.  
  593.  
  594. '*************************************************************************
  595. FUNCTION DoesDirExist (szDir$) STATIC  AS INTEGER
  596. '$ifdef DEBUG
  597.     if FValidFATDir(szDir$) = 0 then
  598.         BadArgErr 1, "DoesDirExist", szDir$
  599.     end if
  600. '$endif ''DEBUG
  601.     DoesDirExist = FDirExists(szDir$)
  602. END FUNCTION
  603.  
  604.  
  605. '*************************************************************************
  606. FUNCTION DoesIniSectionExist (szFile$, szSect$) STATIC  AS INTEGER
  607. '$ifdef DEBUG
  608.     if FValidIniFile(szFile$) = 0 then
  609.         BadArgErr 1, "DoesIniSectionExist", szFile$+", "+szSect$
  610.     end if
  611. '$endif ''DEBUG
  612.     DoesIniSectionExist = FDoesIniSectionExist(szFile$, szSect$)
  613. END FUNCTION
  614.  
  615.  
  616. '*************************************************************************
  617. FUNCTION DoesIniKeyExist (szFile$, szSect$, szKey$) STATIC  AS INTEGER
  618. '$ifdef DEBUG
  619.     if FValidIniFile(szFile$) = 0 then
  620.         n% = 1
  621.     elseif szKey$ = "" then
  622.         n% = 3
  623.     else
  624.         n% = 0
  625.     end if
  626.     if n% > 0 then
  627.         BadArgErr n%, "DoesIniKeyExist", szFile$+", "+szSect$+", "+szKey$
  628.     end if
  629. '$endif ''DEBUG
  630.  
  631.     DoesIniKeyExist = FDoesIniKeyExist(szFile$, szSect$, szKey$)
  632. END FUNCTION
  633.  
  634.  
  635. '*************************************************************************
  636. FUNCTION GetIniKeyString (szFile$, szSect$, szKey$) STATIC  AS STRING
  637. '$ifdef DEBUG
  638.     if FValidIniFile(szFile$) = 0 then
  639.         n% = 1
  640.     elseif szKey$ = "" then
  641.         n% = 3
  642.     else
  643.         n% = 0
  644.     end if
  645.     if n% > 0 then
  646.         BadArgErr n%, "GetIniKeyString", szFile$+", "+szSect$+", "+szKey$
  647.     end if
  648. '$endif ''DEBUG
  649.  
  650.     cb% = 512
  651.     szBuf$ = STRING$(cb%, 32)
  652.     cbRet% = CbGetIniKeyString(szFile$, szSect$, szKey$, szBuf$, cb%)
  653.     GetIniKeyString = szBuf$
  654. '$ifdef DEBUG
  655.     IF cbRet% >= cb% THEN
  656.         StfApiErr saeOvfl, "GetIniKeyString", szFile$+", "+szSect$+", "+szKey$
  657.         ERROR STFERR
  658.     END IF
  659. '$endif ''DEBUG
  660.     szBuf$ = ""
  661. END FUNCTION
  662.  
  663.  
  664.  
  665.