home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1996 August / AAHRDEMO.ISO / software / docs / msdetect.in_ / msdetect.bin
Encoding:
Text File  |  1996-05-14  |  17.6 KB  |  524 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 FUNCTION GetTotalSpaceForDrive (szDrive$) AS LONG
  62. DECLARE FUNCTION GetFreeSpaceForDrive (szDrive$) AS LONG
  63.  
  64. DECLARE FUNCTION GetEnvVariableValue (szEnvVar$) AS STRING
  65. DECLARE FUNCTION GetNumWinApps AS INTEGER
  66.  
  67. DECLARE FUNCTION DoesFileExist (szFile$, mode%) AS INTEGER
  68. DECLARE FUNCTION GetDateOfFile (szFile$) AS STRING
  69. DECLARE FUNCTION GetYearFromDate (szDate$) AS INTEGER
  70. DECLARE FUNCTION GetMonthFromDate (szDate$) AS INTEGER
  71. DECLARE FUNCTION GetDayFromDate (szDate$) AS INTEGER
  72. DECLARE FUNCTION GetHourFromDate (szDate$) AS INTEGER
  73. DECLARE FUNCTION GetMinuteFromDate (szDate$) AS INTEGER
  74. DECLARE FUNCTION GetSecondFromDate (szDate$) AS INTEGER
  75. DECLARE FUNCTION GetVersionOfFile (szFile$) AS STRING
  76. DECLARE FUNCTION GetVersionNthField (szVersion$, nField%) AS LONG
  77. DECLARE FUNCTION GetSizeOfFile (szFile$) AS LONG
  78. DECLARE FUNCTION FindTargetOnEnvVar (szFile$, szEnvVar$) AS STRING
  79. DECLARE FUNCTION DoesDirExist (szDir$) AS INTEGER
  80.  
  81. DECLARE FUNCTION DoesIniSectionExist (szFile$, szSect$) AS INTEGER
  82. DECLARE FUNCTION DoesIniKeyExist (szFile$, szSect$, szKey$) AS INTEGER
  83. DECLARE FUNCTION GetIniKeyString (szFile$, szSect$, szKey$) AS STRING
  84.  
  85. DECLARE FUNCTION GetConfigSmartdrvSize AS INTEGER
  86. DECLARE FUNCTION GetConfigRamdriveSize AS INTEGER
  87. DECLARE FUNCTION GetConfigNumBuffers AS INTEGER
  88. DECLARE FUNCTION GetConfigNumFiles AS INTEGER
  89. DECLARE FUNCTION GetConfigLastDrive AS STRING
  90. DECLARE FUNCTION IsDriverInConfig (szDrv$) AS INTEGER
  91.  
  92. DECLARE FUNCTION GetProcessorType AS INTEGER
  93. DECLARE FUNCTION Has87MathChip AS INTEGER
  94. DECLARE FUNCTION HasMonochromeDisplay AS INTEGER
  95. DECLARE FUNCTION HasMouseInstalled AS INTEGER
  96.  
  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. '*************************************************************************
  110. FUNCTION IsDriveLocalHard (szDrive$) STATIC  AS INTEGER
  111. '$ifdef DEBUG
  112.     if FValidDrive(szDrive$) = 0 then
  113.         BadArgErr 1, "IsDriveLocalHard", szDrive$
  114.     end if
  115. '$endif ''DEBUG
  116.     IsDriveLocalHard = FIsLocalHardDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  117. END FUNCTION
  118.  
  119.  
  120. '*************************************************************************
  121. FUNCTION IsDriveRemovable (szDrive$) STATIC  AS INTEGER
  122. '$ifdef DEBUG
  123.     if FValidDrive(szDrive$) = 0 then
  124.         BadArgErr 1, "IsDriveRemovable", szDrive$
  125.     end if
  126. '$endif ''DEBUG
  127.     IsDriveRemovable = FIsRemoveDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  128. END FUNCTION
  129.  
  130.  
  131. '*************************************************************************
  132. FUNCTION GetTotalSpaceForDrive (szDrive$) STATIC  AS LONG
  133. '$ifdef DEBUG
  134.     if FValidDrive(szDrive$) = 0 then
  135.         BadArgErr 1, "GetTotalSpaceForDrive", szDrive$
  136.      end if
  137. '$endif ''DEBUG
  138.      GetTotalSpaceForDrive = LcbTotalDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  139. END FUNCTION
  140.  
  141.  
  142. '*************************************************************************
  143. FUNCTION GetFreeSpaceForDrive (szDrive$) STATIC  AS LONG
  144. '$ifdef DEBUG
  145.     if FValidDrive(szDrive$) = 0 then
  146.           BadArgErr 1, "GetFreeSpaceForDrive", szDrive$
  147.      end if
  148. '$endif ''DEBUG
  149.     GetFreeSpaceForDrive = LcbFreeDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  150. END FUNCTION
  151.  
  152.  
  153.  
  154. '*************************************************************************
  155. SUB GetLocalHardDrivesList (szSymbol$) STATIC
  156. '$ifdef DEBUG
  157.     if szSymbol$ = "" then
  158.           BadArgErr 1, "GetLocalHardDrivesList", szSymbol$
  159.     end if
  160. '$endif ''DEBUG
  161.     if FGetLocalHardDrivesList(szSymbol$) = 0 then
  162. '$ifdef DEBUG
  163.         StfApiErr saeFail, "GetLocalHardDrivesList", szSymbol$
  164. '$endif ''DEBUG
  165.         ERROR STFERR
  166.      end if
  167. END SUB
  168.  
  169. '*************************************************************************
  170. FUNCTION GetEnvVariableValue (szEnvVar$) STATIC  AS STRING
  171. '$ifdef DEBUG
  172.      if szEnvVar$ = "" then
  173.           BadArgErr 1, "GetEnvVariableValue", szEnvVar$
  174.      end if
  175. '$endif ''DEBUG
  176.      cb% = 1024
  177.      szBuf$ = STRING$(cb%, 32)
  178.      cbRet% = CbGetEnvVariableValue(szEnvVar$, szBuf$, cb%)
  179.      GetEnvVariableValue = szBuf$
  180. '$ifdef DEBUG
  181.      IF cbRet% >= cb% THEN
  182.           StfApiErr saeOvfl, "GetEnvVariableValue", szEnvVar$
  183.           ERROR STFERR
  184.      END IF
  185. '$endif ''DEBUG
  186.      szBuf$ = ""
  187. END FUNCTION
  188.  
  189.  
  190. '*************************************************************************
  191. FUNCTION GetNumWinApps STATIC  AS INTEGER
  192.     GetNumWinApps = WGetNumWinApps
  193. END FUNCTION
  194.  
  195.  
  196. '*************************************************************************
  197. FUNCTION DoesFileExist (szFileName$, mode%) STATIC  AS INTEGER
  198. '$ifdef DEBUG
  199.     if FValidFATPath(szFileName$) = 0 then
  200.         BadArgErr 1, "DoesFileExist", szFileName$+", "+STR$(mode%)
  201.     end if
  202. '$endif ''DEBUG
  203.     DoesFileExist = FDoesFileExist(szFileName$, mode%)
  204. END FUNCTION
  205.  
  206.  
  207. '*************************************************************************
  208. FUNCTION GetDateOfFile (szFile$) STATIC  AS STRING
  209. '$ifdef DEBUG
  210.     if FValidFATPath(szFile$) = 0 then
  211.         BadArgErr 1, "GetDateOfFile", szFile$
  212.     end if
  213. '$endif ''DEBUG
  214.     cb% = 20
  215.     szBuf$ = STRING$(cb%, 32)
  216.     cbRet% = CbGetDateOfFile(szFile$, szBuf$, cb%)
  217.     GetDateOfFile = szBuf$
  218. '$ifdef DEBUG
  219.     IF cbRet% >= cb% THEN
  220.         StfApiErr saeOvfl, "GetDateOfFile", szFile$
  221.         ERROR STFERR
  222.     END IF
  223. '$endif ''DEBUG
  224.     szBuf$ = ""
  225. END FUNCTION
  226.  
  227.  
  228. '*************************************************************************
  229. FUNCTION GetYearFromDate (szDate$) STATIC  AS INTEGER
  230. '$ifdef DEBUG
  231.     if szDate = "" then
  232.         BadArgErr 1, "GetYearFromDate", szDate$
  233.     end if
  234. '$endif ''DEBUG
  235.     GetYearFromDate = VAL(MID$(szDate$, 1, 4))
  236. END FUNCTION
  237.  
  238.  
  239. '*************************************************************************
  240. FUNCTION GetMonthFromDate (szDate$) STATIC  AS INTEGER
  241. '$ifdef DEBUG
  242.     if szDate = "" then
  243.         BadArgErr 1, "GetMonthFromDate", szDate$
  244.     end if
  245. '$endif ''DEBUG
  246.     GetMonthFromDate = VAL(MID$(szDate$, 6, 2))
  247. END FUNCTION
  248.  
  249.  
  250. '*************************************************************************
  251. FUNCTION GetDayFromDate (szDate$) STATIC  AS INTEGER
  252. '$ifdef DEBUG
  253.     if szDate = "" then
  254.         BadArgErr 1, "GetDayFromDate", szDate$
  255.     end if
  256. '$endif ''DEBUG
  257.     GetDayFromDate = VAL(MID$(szDate$, 9, 2))
  258. END FUNCTION
  259.  
  260.  
  261. '*************************************************************************
  262. FUNCTION GetHourFromDate (szDate$) STATIC  AS INTEGER
  263. '$ifdef DEBUG
  264.     if szDate = "" then
  265.         BadArgErr 1, "GetHourFromDate", szDate$
  266.     end if
  267. '$endif ''DEBUG
  268.     GetHourFromDate = VAL(MID$(szDate$, 12, 2))
  269. END FUNCTION
  270.  
  271.  
  272. '*************************************************************************
  273. FUNCTION GetMinuteFromDate (szDate$) STATIC  AS INTEGER
  274. '$ifdef DEBUG
  275.     if szDate = "" then
  276.         BadArgErr 1, "GetMinuteFromDate", szDate$
  277.     end if
  278. '$endif ''DEBUG
  279.     GetMinuteFromDate = VAL(MID$(szDate$, 15, 2))
  280. END FUNCTION
  281.  
  282.  
  283. '*************************************************************************
  284. FUNCTION GetSecondFromDate (szDate$) STATIC  AS INTEGER
  285. '$ifdef DEBUG
  286.     if szDate = "" then
  287.         BadArgErr 1, "GetSecondFromDate", szDate$
  288.     end if
  289. '$endif ''DEBUG
  290.     GetSecondFromDate = VAL(MID$(szDate$, 18, 2))
  291. END FUNCTION
  292.  
  293.  
  294. '*************************************************************************
  295. FUNCTION GetVersionOfFile (szFile$) STATIC  AS STRING
  296. '$ifdef DEBUG
  297.     if FValidFATPath(szFile$) = 0 then
  298.         BadArgErr 1, "GetVersionOfFile", szFile$
  299.     end if
  300. '$endif ''DEBUG
  301.     cb% = 30
  302.     szBuf$ = STRING$(cb%, 32)
  303.     cbRet% = CbGetVersionOfFile(szFile$, szBuf$, cb%)
  304.     cbRet% = CbGetVersionOfFile(szFile$, szBuf$, cb%)
  305.     GetVersionOfFile = szBuf$
  306. '$ifdef DEBUG
  307.     IF cbRet% >= cb% THEN
  308.         StfApiErr saeOvfl, "GetVersionOfFile", szFile$
  309.         ERROR STFERR
  310.     END IF
  311. '$endif ''DEBUG
  312.     szBuf$ = ""
  313. END FUNCTION
  314.  
  315.  
  316. '*************************************************************************
  317. FUNCTION GetVersionNthField (szVersion$, nField%) STATIC  AS LONG
  318. '$ifdef DEBUG
  319.     if (nField% < 1) OR (nField% > 4) then
  320.         BadArgErr 2, "GetVersionNthField", szVersion$+", "+STR$(nField%)
  321.     end if
  322. '$endif ''DEBUG
  323.     GetVersionNthField = LGetVersionNthField(szVersion$, nField%)
  324. END FUNCTION
  325.  
  326.  
  327. '*************************************************************************
  328. FUNCTION GetSizeOfFile (szFile$) STATIC  AS LONG
  329. '$ifdef DEBUG
  330.     if FValidFATPath(szFile$) = 0 then
  331.         BadArgErr 1, "GetSizeOfFile", szFile$
  332.     end if
  333. '$endif ''DEBUG
  334.     GetSizeOfFile = LcbGetSizeOfFile(szFile$)
  335. END FUNCTION
  336.  
  337.  
  338. '*************************************************************************
  339. FUNCTION FindTargetOnEnvVar (szFile$, szEnvVar$) STATIC  AS STRING
  340. '$ifdef DEBUG
  341.      if CchlValidFATSubPath(szFile$) = 0 then
  342.           n% = 1
  343.      elseif szEnvVar$ = "" then
  344.           n% = 2
  345.      else
  346.           n% = 0
  347.      end if
  348.      if n% > 0 then
  349.           BadArgErr n%, "FindTargetOnEnvVar", szFile$+", "+szEnvVar$
  350.      end if
  351. '$endif ''DEBUG
  352.  
  353.      cb% = 512
  354.      szBuf$ = STRING$(cb%, 32)
  355.      cbRet% = CbFindTargetOnEnvVar(szFile$, szEnvVar$, szBuf$, cb%)
  356.      IF cbRet% >= cb% THEN
  357. '$ifdef DEBUG
  358.           StfApiErr saeOvfl, "FindTargetOnEnvVar", szFile$+", "+szEnvVar$
  359. '$endif ''DEBUG
  360.           ERROR STFERR
  361.      END IF
  362.      szBuf$ = RTRIM$(szBuf$)
  363.      IF MID$(szBuf$, 1, 1) = "\" THEN
  364.          szBuf$ = MID$(CURDIR$, 1, 2) + szBuf$
  365.      ELSEIF Len(szBuf$) > 0 AND MID$(szBuf$, 2, 1) <> ":" THEN
  366.          szBuf$ = MID$(CURDIR$, 1, 3) + szBuf$
  367.      END IF
  368.      FindTargetOnEnvVar = szBuf$
  369.      szBuf$ = ""
  370. END FUNCTION
  371.  
  372.  
  373. '*************************************************************************
  374. FUNCTION GetConfigSmartdrvSize STATIC  AS INTEGER
  375.      GetConfigSmartdrvSize = WGetConfigSmartdrvSize
  376. END FUNCTION
  377.  
  378.  
  379. '*************************************************************************
  380. FUNCTION GetConfigRamdriveSize STATIC  AS INTEGER
  381.      GetConfigRamdriveSize = WGetConfigRamdriveSize
  382. END FUNCTION
  383.  
  384.  
  385. '*************************************************************************
  386. FUNCTION GetConfigNumBuffers STATIC  AS INTEGER
  387.      GetConfigNumBuffers = WGetConfigNumBuffers
  388. END FUNCTION
  389.  
  390.  
  391. '*************************************************************************
  392. FUNCTION GetConfigNumFiles STATIC  AS INTEGER
  393.     GetConfigNumFiles = WGetConfigNumFiles
  394. END FUNCTION
  395.  
  396.  
  397. '*************************************************************************
  398. FUNCTION GetConfigLastDrive STATIC  AS STRING
  399.     chRet% = WGetConfigLastDrive
  400.     if chRet% = 0 then
  401.         GetConfigLastDrive = ""
  402.     else
  403.         GetConfigLastDrive = CHR$(chRet%)
  404.     end if
  405. END FUNCTION
  406.  
  407.  
  408. '*************************************************************************
  409. FUNCTION IsDriverInConfig (szDrv$) STATIC  AS INTEGER
  410. '$ifdef DEBUG
  411.     if szDrv$ = "" then
  412.         BadArgErr 1, "IsDriverInConfig", szDrv$
  413.     end if
  414. '$endif ''DEBUG
  415.     IsDriverInConfig = FIsDriverInConfig(szDrv$)
  416. END FUNCTION
  417.  
  418.  
  419. '*************************************************************************
  420. FUNCTION GetProcessorType STATIC  AS INTEGER
  421.     GetProcessorType = 0
  422.     longTmp& = GetWinFlags()
  423.     IF longTmp& AND WF_CPU486 THEN
  424.         GetProcessorType = 4
  425.     ELSEIF longTmp& AND WF_CPU386 THEN
  426.         GetProcessorType = 3
  427.     ELSEIF longTmp& AND WF_CPU286 THEN
  428.         GetProcessorType = 2
  429.     ELSEIF longTmp& AND WF_CPU186 THEN
  430.         GetProcessorType = 1
  431.     END IF
  432. END FUNCTION
  433.  
  434.  
  435. '*************************************************************************
  436. FUNCTION Has87MathChip STATIC  AS INTEGER
  437.     Has87MathChip = FHas87MathChip
  438. END FUNCTION
  439.  
  440.  
  441. '*************************************************************************
  442. FUNCTION HasMonochromeDisplay STATIC  AS INTEGER
  443.     HasMonochromeDisplay = FHasMonochromeDisplay
  444. END FUNCTION
  445.  
  446.  
  447. '*************************************************************************
  448. FUNCTION HasMouseInstalled STATIC  AS INTEGER
  449.     HasMouseInstalled = FHasMouseInstalled
  450. END FUNCTION
  451.  
  452.  
  453. '*************************************************************************
  454. FUNCTION DoesDirExist (szDir$) STATIC  AS INTEGER
  455. '$ifdef DEBUG
  456.     if FValidFATDir(szDir$) = 0 then
  457.         BadArgErr 1, "DoesDirExist", szDir$
  458.     end if
  459. '$endif ''DEBUG
  460.     DoesDirExist = FDirExists(szDir$)
  461. END FUNCTION
  462.  
  463.  
  464. '*************************************************************************
  465. FUNCTION DoesIniSectionExist (szFile$, szSect$) STATIC  AS INTEGER
  466. '$ifdef DEBUG
  467.     if FValidIniFile(szFile$) = 0 then
  468.         BadArgErr 1, "DoesIniSectionExist", szFile$+", "+szSect$
  469.     end if
  470. '$endif ''DEBUG
  471.     DoesIniSectionExist = FDoesIniSectionExist(szFile$, szSect$)
  472. END FUNCTION
  473.  
  474.  
  475. '*************************************************************************
  476. FUNCTION DoesIniKeyExist (szFile$, szSect$, szKey$) STATIC  AS INTEGER
  477. '$ifdef DEBUG
  478.     if FValidIniFile(szFile$) = 0 then
  479.         n% = 1
  480.     elseif szKey$ = "" then
  481.         n% = 3
  482.     else
  483.         n% = 0
  484.     end if
  485.     if n% > 0 then
  486.         BadArgErr n%, "DoesIniKeyExist", szFile$+", "+szSect$+", "+szKey$
  487.     end if
  488. '$endif ''DEBUG
  489.  
  490.     DoesIniKeyExist = FDoesIniKeyExist(szFile$, szSect$, szKey$)
  491. END FUNCTION
  492.  
  493.  
  494. '*************************************************************************
  495. FUNCTION GetIniKeyString (szFile$, szSect$, szKey$) STATIC  AS STRING
  496. '$ifdef DEBUG
  497.     if FValidIniFile(szFile$) = 0 then
  498.         n% = 1
  499.     elseif szKey$ = "" then
  500.         n% = 3
  501.     else
  502.         n% = 0
  503.     end if
  504.     if n% > 0 then
  505.         BadArgErr n%, "GetIniKeyString", szFile$+", "+szSect$+", "+szKey$
  506.     end if
  507. '$endif ''DEBUG
  508.  
  509.     cb% = 512
  510.     szBuf$ = STRING$(cb%, 32)
  511.     cbRet% = CbGetIniKeyString(szFile$, szSect$, szKey$, szBuf$, cb%)
  512.     GetIniKeyString = szBuf$
  513. '$ifdef DEBUG
  514.     IF cbRet% >= cb% THEN
  515.         StfApiErr saeOvfl, "GetIniKeyString", szFile$+", "+szSect$+", "+szKey$
  516.         ERROR STFERR
  517.     END IF
  518. '$endif ''DEBUG
  519.     szBuf$ = ""
  520. END FUNCTION
  521.  
  522.  
  523.  
  524.