home *** CD-ROM | disk | FTP | other *** search
/ Corel Draw 3 / CorelDRAW-v3.0.iso / msdetect.inc < prev    next >
Text File  |  1992-10-25  |  7KB  |  196 lines
  1. '**************************************************************************
  2. '*************************  Setup Detect API's  ***************************
  3. '**************************************************************************
  4. ''Removed unused functions - FREM 03/04/92
  5.  
  6. ''detect
  7.  
  8. DECLARE FUNCTION CbGetEnvVariableValue LIB "msdetstf.dll" (szEnvVar$, szBuf$, cbBuf%) AS INTEGER
  9. DECLARE FUNCTION FGetValidDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  10. DECLARE FUNCTION FIsRemoteDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  11. DECLARE FUNCTION LcbTotalDrive LIB "msdetstf.dll" (nDrive%) AS LONG
  12. DECLARE FUNCTION LcbFreeDrive LIB "msdetstf.dll" (nDrive%) AS LONG
  13. DECLARE FUNCTION FDirExists LIB "msdetstf.dll" (szDir$) AS INTEGER
  14. DECLARE FUNCTION FDoesFileExist LIB "msdetstf.dll" (szFileName$, mode%) AS INTEGER
  15. DECLARE FUNCTION FDoesIniSectionExist LIB "msdetstf.dll" (szFile$, szSect$) AS INTEGER
  16. DECLARE FUNCTION FDoesIniKeyExist LIB "msdetstf.dll" (szFile$, szSect$, szKey$) AS INTEGER
  17. DECLARE FUNCTION CbGetIniKeyString LIB "msdetstf.dll" (szFile$, szSect$, szKey$, szBuf$, cbBuf%) AS INTEGER
  18. DECLARE FUNCTION WGetDOSMajorVersion LIB "msdetstf.dll" AS INTEGER
  19. DECLARE FUNCTION WGetDOSMinorVersion LIB "msdetstf.dll" AS INTEGER
  20. DECLARE FUNCTION WGetNumWinApps LIB "msdetstf.dll" AS INTEGER
  21. DECLARE FUNCTION FHasMonochromeDisplay LIB "msdetstf.dll" AS INTEGER
  22. DECLARE FUNCTION FHasMouseInstalled LIB "msdetstf.dll" AS INTEGER
  23. DECLARE FUNCTION GetTypeFaceNameFromTTF LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  24. DECLARE FUNCTION GetExistingFOTFileForTTF LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  25.  
  26.  
  27. '*************************************************************************
  28. '****************  Detect Basic Wrapper Declarations  ********************
  29. '*************************************************************************
  30.  
  31.  
  32. '' detect
  33.  
  34. DECLARE FUNCTION GetTotalSpaceForDrive (szDrive$) AS LONG
  35. DECLARE FUNCTION GetFreeSpaceForDrive (szDrive$) AS LONG
  36.  
  37. DECLARE FUNCTION DoesFileExist (szFile$, mode%) AS INTEGER
  38. DECLARE FUNCTION DoesDirExist (szDir$) AS INTEGER
  39.  
  40. DECLARE FUNCTION DoesIniSectionExist (szFile$, szSect$) AS INTEGER
  41. DECLARE FUNCTION DoesIniKeyExist (szFile$, szSect$, szKey$) AS INTEGER
  42. DECLARE FUNCTION GetIniKeyString (szFile$, szSect$, szKey$) AS STRING
  43.  
  44. DECLARE FUNCTION HasMonochromeDisplay AS INTEGER
  45. DECLARE FUNCTION HasMouseInstalled AS INTEGER
  46.  
  47. DECLARE FUNCTION GetEnvVariableValue (szEnvVar$) AS STRING
  48.  
  49. DECLARE FUNCTION IsDriveNetwork (szDrive$) AS INTEGER
  50.  
  51. '*************************************************************************
  52. FUNCTION IsDriveNetwork (szDrive$) STATIC  AS INTEGER
  53. '$ifdef DEBUG
  54.     if FValidDrive(szDrive$) = 0 then
  55.         BadArgErr 1, "IsDriveNetwork", szDrive$
  56.     end if
  57. '$endif ''DEBUG
  58.     IsDriveNetwork = FIsRemoteDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  59. END FUNCTION
  60.  
  61.  
  62. '*************************************************************************
  63. FUNCTION GetEnvVariableValue (szEnvVar$) STATIC  AS STRING
  64. '$ifdef DEBUG
  65.     if szEnvVar$ = "" then
  66.         BadArgErr 1, "GetEnvVariableValue", szEnvVar$
  67.     end if
  68. '$endif ''DEBUG
  69.     cb% = 1024
  70.     szBuf$ = STRING$(cb%, 32)
  71.     cbRet% = CbGetEnvVariableValue(szEnvVar$, szBuf$, cb%)
  72.     GetEnvVariableValue = szBuf$
  73. '$ifdef DEBUG
  74.     IF cbRet% >= cb% THEN
  75.         StfApiErr saeOvfl, "GetEnvVariableValue", szEnvVar$
  76.         ERROR STFERR
  77.     END IF
  78. '$endif ''DEBUG
  79.     szBuf$ = ""
  80. END FUNCTION
  81.  
  82.  
  83. '*************************************************************************
  84. FUNCTION GetTotalSpaceForDrive (szDrive$) STATIC  AS LONG
  85. '$ifdef DEBUG
  86.     if FValidDrive(szDrive$) = 0 then
  87.         BadArgErr 1, "GetTotalSpaceForDrive", szDrive$
  88.     end if
  89. '$endif ''DEBUG
  90.     GetTotalSpaceForDrive = LcbTotalDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  91. END FUNCTION
  92.  
  93.  
  94. '*************************************************************************
  95. FUNCTION GetFreeSpaceForDrive (szDrive$) STATIC  AS LONG
  96. '$ifdef DEBUG
  97.     if FValidDrive(szDrive$) = 0 then
  98.         BadArgErr 1, "GetFreeSpaceForDrive", szDrive$
  99.     end if
  100. '$endif ''DEBUG
  101.     GetFreeSpaceForDrive = LcbFreeDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  102. END FUNCTION
  103.  
  104.  
  105. '*************************************************************************
  106. FUNCTION DoesFileExist (szFileName$, mode%) STATIC  AS INTEGER
  107. '$ifdef DEBUG
  108.     if FValidFATPath(szFileName$) = 0 then
  109.         BadArgErr 1, "DoesFileExist", szFileName$+", "+STR$(mode%)
  110.     end if
  111. '$endif ''DEBUG
  112.     DoesFileExist = FDoesFileExist(szFileName$, mode%)
  113. END FUNCTION
  114.  
  115.  
  116. '*************************************************************************
  117. FUNCTION HasMonochromeDisplay STATIC  AS INTEGER
  118.     HasMonochromeDisplay = FHasMonochromeDisplay
  119. END FUNCTION
  120.  
  121.  
  122. '*************************************************************************
  123. FUNCTION HasMouseInstalled STATIC  AS INTEGER
  124.     HasMouseInstalled = FHasMouseInstalled
  125. END FUNCTION
  126.  
  127.  
  128. '*************************************************************************
  129. FUNCTION DoesDirExist (szDir$) STATIC  AS INTEGER
  130. '$ifdef DEBUG
  131.     if FValidFATDir(szDir$) = 0 then
  132.         BadArgErr 1, "DoesDirExist", szDir$
  133.     end if
  134. '$endif ''DEBUG
  135.     DoesDirExist = FDirExists(szDir$)
  136. END FUNCTION
  137.  
  138.  
  139. '*************************************************************************
  140. FUNCTION DoesIniSectionExist (szFile$, szSect$) STATIC  AS INTEGER
  141. '$ifdef DEBUG
  142.     if FValidIniFile(szFile$) = 0 then
  143.         BadArgErr 1, "DoesIniSectionExist", szFile$+", "+szSect$
  144.     end if
  145. '$endif ''DEBUG
  146.     DoesIniSectionExist = FDoesIniSectionExist(szFile$, szSect$)
  147. END FUNCTION
  148.  
  149.  
  150. '*************************************************************************
  151. FUNCTION DoesIniKeyExist (szFile$, szSect$, szKey$) STATIC  AS INTEGER
  152. '$ifdef DEBUG
  153.     if FValidIniFile(szFile$) = 0 then
  154.         n% = 1
  155.     elseif szKey$ = "" then
  156.         n% = 3
  157.     else
  158.         n% = 0
  159.     end if
  160.     if n% > 0 then
  161.         BadArgErr n%, "DoesIniKeyExist", szFile$+", "+szSect$+", "+szKey$
  162.     end if
  163. '$endif ''DEBUG
  164.  
  165.     DoesIniKeyExist = FDoesIniKeyExist(szFile$, szSect$, szKey$)
  166. END FUNCTION
  167.  
  168.  
  169. '*************************************************************************
  170. FUNCTION GetIniKeyString (szFile$, szSect$, szKey$) STATIC  AS STRING
  171. '$ifdef DEBUG
  172.     if FValidIniFile(szFile$) = 0 then
  173.         n% = 1
  174.     elseif szKey$ = "" then
  175.         n% = 3
  176.     else
  177.         n% = 0
  178.     end if
  179.     if n% > 0 then
  180.         BadArgErr n%, "GetIniKeyString", szFile$+", "+szSect$+", "+szKey$
  181.     end if
  182. '$endif ''DEBUG
  183.  
  184.     cb% = 512
  185.     szBuf$ = STRING$(cb%, 32)
  186.     cbRet% = CbGetIniKeyString(szFile$, szSect$, szKey$, szBuf$, cb%)
  187.     GetIniKeyString = szBuf$
  188. '$ifdef DEBUG
  189.     IF cbRet% >= cb% THEN
  190.         StfApiErr saeOvfl, "GetIniKeyString", szFile$+", "+szSect$+", "+szKey$
  191.         ERROR STFERR
  192.     END IF
  193. '$endif ''DEBUG
  194.     szBuf$ = ""
  195. END FUNCTION
  196.