home *** CD-ROM | disk | FTP | other *** search
/ Anne Hooper's Ultimate Sex Guide / DKMMTUSG.iso / dksetup / msdetect.inc < prev    next >
Text File  |  1995-04-03  |  22KB  |  665 lines
  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 (szSym