home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated Swimsuit Calendar 1994 / SISWIM.iso / sisetup / msdetect.inc < prev    next >
Text File  |  1994-09-19  |  2KB  |  60 lines
  1. DECLARE FUNCTION CbGetVersionOfFile LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  2. DECLARE FUNCTION LGetVersionNthField LIB "msdetstf.dll" (szVersion$, nField%) AS LONG
  3. DECLARE FUNCTION LcbFreeDrive LIB "msdetstf.dll" (nDrive%) AS LONG
  4. DECLARE FUNCTION FDirExists LIB "msdetstf.dll" (szDir$) AS INTEGER
  5. DECLARE FUNCTION FDoesFileExist LIB "msdetstf.dll" (szFileName$, mode%) AS INTEGER
  6. DECLARE FUNCTION CbGetIniKeyString LIB "msdetstf.dll" (szFile$, szSect$, szKey$, szBuf$, cbBuf%) AS INTEGER
  7. DECLARE FUNCTION CbFindFileInTree LIB "msdetstf.dll" (szFile$, szDir$, szBuf$, cbBuf%) AS INTEGER
  8. DECLARE FUNCTION GetFreeSpaceForDrive (szDrive$) AS LONG
  9. DECLARE FUNCTION DoesFileExist (szFile$, mode%) AS INTEGER
  10. DECLARE FUNCTION FindFileInTree (szFile$, szDir$) AS STRING
  11. DECLARE FUNCTION DoesDirExist (szDir$) AS INTEGER
  12. DECLARE FUNCTION GetIniKeyString (szFile$, szSect$, szKey$) AS STRING
  13. DECLARE FUNCTION GetVersionOfFile (szFile$) AS STRING
  14. DECLARE FUNCTION GetVersionNthField (szVersion$, nField%) AS LONG
  15.  
  16. FUNCTION GetFreeSpaceForDrive (szDrive$) STATIC  AS LONG
  17. GetFreeSpaceForDrive = LcbFreeDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  18. END FUNCTION
  19.  
  20. FUNCTION DoesFileExist (szFileName$, mode%) STATIC  AS INTEGER
  21. DoesFileExist = FDoesFileExist(szFileName$, mode%)
  22. END FUNCTION
  23.  
  24. FUNCTION FindFileInTree (szFile$, szDir$) STATIC  AS STRING
  25. cb% = 512
  26. szBuf$ = STRING$(cb%, 32)
  27. cbRet% = CbFindFileInTree(szFile$, szDir$, szBuf$, cb%)
  28. FindFileInTree = szBuf$
  29. szBuf$ = ""
  30. END FUNCTION
  31.  
  32. FUNCTION DoesDirExist (szDir$) STATIC AS INTEGER
  33. DoesDirExist = FDirExists(szDir$)
  34. END FUNCTION
  35.  
  36. FUNCTION GetIniKeyString (szFile$, szSect$, szKey$) STATIC  AS STRING
  37. cb% = 512
  38. szBuf$ = STRING$(cb%, 32)
  39. cbRet% = CbGetIniKeyString(szFile$, szSect$, szKey$, szBuf$, cb%)
  40. GetIniKeyString = szBuf$
  41. szBuf$ = ""
  42. END FUNCTION
  43.  
  44. FUNCTION GetVersionOfFile (szFile$) STATIC  AS STRING
  45. cb% = 30
  46. szBuf$ = STRING$(cb%, 32)
  47. cbRet% = CbGetVersionOfFile(szFile$, szBuf$, cb%)
  48. GetVersionOfFile = szBuf$
  49. szBuf$ = ""
  50. END FUNCTION
  51.  
  52. FUNCTION GetVersionNthField (szVersion$, nField%) STATIC  AS LONG
  53. '$ifdef DEBUG
  54. if (nField% < 1) OR (nField% > 4) then
  55.   BadArgErr 2, "GetVersionNthField", szVersion$+", "+STR$(nField%)
  56. end if
  57. '$endif ''DEBUG
  58. GetVersionNthField = LGetVersionNthField(szVersion$, nField%)
  59. END FUNCTION
  60.