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