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