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