![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to msdetect.inc CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [WindowsNT SDKs] / mstools / mssetup / include|
Return to msdetect.inc CVS log | Up to [WindowsNT SDKs] / mstools / mssetup / include |
1.1 ! root 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:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.