![[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.