![[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|
Return to msdetect.inc CVS log | Up to [WindowsNT SDKs] / mstools / mssetup |
1.1 ! root 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:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.