home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a025 / 1.ddi / MSCPYDIS.DLL < prev    next >
Encoding:
Text File  |  1993-08-24  |  11.2 KB  |  334 lines
  1. ll" (szEnvVar$, szBuf$, cbBuf%) AS INTEGER
  2. DECLARE FUNCTION WGetNumWinApps LIB "msdetstf.dll" AS INTEGER
  3. DECLARE FUNCTION FGetParallelPortsList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  4. DECLARE FUNCTION FGetSerialPortsList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  5. DECLARE FUNCTION FHas87MathChip LIB "msdetstf.dll" AS INTEGER
  6. DECLARE FUNCTION FHasMonochromeDisplay LIB "msdetstf.dll" AS INTEGER
  7. DECLARE FUNCTION FHasMouseInstalled LIB "msdetstf.dll" AS INTEGER
  8. DECLARE FUNCTION WGetConfigSmartdrvSize LIB "msdetstf.dll" AS INTEGER
  9. DECLARE FUNCTION WGetConfigRamdriveSize LIB "msdetstf.dll" AS INTEGER
  10. DECLARE FUNCTION WGetConfigNumBuffers LIB "msdetstf.dll" AS INTEGER
  11. DECLARE FUNCTION WGetConfigNumFiles LIB "msdetstf.dll" AS INTEGER
  12. DECLARE FUNCTION WGetConfigLastDrive LIB "msdetstf.dll" AS INTEGER
  13. DECLARE FUNCTION FIsDriverInConfig LIB "msdetstf.dll" (szDrv$) AS INTEGER
  14. DECLARE FUNCTION CbFindTargetOnEnvVar LIB "msdetstf.dll" (szFile$, szEnvVar$, szBuf$, cbBuf%) AS INTEGER
  15. DECLARE FUNCTION CbFindFileInTree LIB "msdetstf.dll" (szFile$, szDir$, szBuf$, cbBuf%) AS INTEGER
  16. DECLARE FUNCTION GetTypeFaceNameFromTTF LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  17. DECLARE FUNCTION GetExistingFOTFileForTTF LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  18.  
  19.  
  20.  
  21. '*************************************************************************
  22. '****************  Detect Basic Wrapper Declarations  ********************
  23. '*************************************************************************
  24.  
  25.  
  26. '' detect
  27.  
  28. DECLARE FUNCTION IsDriveValid (szDrive$) AS INTEGER
  29. DECLARE FUNCTION IsDriveLocalHard (szDrive$) AS INTEGER
  30. DECLARE FUNCTION IsDriveRemovable (szDrive$) AS INTEGER
  31. DECLARE FUNCTION IsDriveNetwork (szDrive$) AS INTEGER
  32. DECLARE SUB GetValidDrivesList (szSymbol$)
  33. DECLARE SUB GetLocalHardDrivesList (szSymbol$)
  34. DECLARE SUB GetRemovableDrivesList (szSymbol$)
  35. DECLARE SUB GetNetworkDrivesList (szSymbol$)
  36. DECLARE FUNCTION GetTotalSpaceForDrive (szDrive$) AS LONG
  37. DECLARE FUNCTION GetFreeSpaceForDrive (szDrive$) AS LONG
  38.  
  39. DECLARE FUNCTION GetDOSMajorVersion AS INTEGER
  40. DECLARE FUNCTION GetDOSMinorVersion AS INTEGER
  41. DECLARE FUNCTION GetEnvVariableValue (szEnvVar$) AS STRING
  42. DECLARE FUNCTION GetNumWinApps AS INTEGER
  43.  
  44. DECLARE FUNCTION DoesFileExist (szFile$, mode%) AS INTEGER
  45. DECLARE FUNCTION GetDateOfFile (szFile$) AS STRING
  46. DECLARE FUNCTION GetYearFromDate (szDate$) AS INTEGER
  47. DECLARE FUNCTION GetMonthFromDate (szDate$) AS INTEGER
  48. DECLARE FUNCTION GetDayFromDate (szDate$) AS INTEGER
  49. DECLARE FUNCTION GetHourFromDate (szDate$) AS INTEGER
  50. DECLARE FUNCTION GetMinuteFromDate (szDate$) AS INTEGER
  51. DECLARE FUNCTION GetSecondFromDate (szDate$) AS INTEGER
  52. DECLARE FUNCTION GetVersionOfFile (szFile$) AS STRING
  53. DECLARE FUNCTION GetVersionNthField (szVersion$, nField%) AS LONG
  54. DECLARE FUNCTION GetSizeOfFile (szFile$) AS LONG
  55. DECLARE FUNCTION FindTargetOnEnvVar (szFile$, szEnvVar$) AS STRING
  56. DECLARE FUNCTION FindFileInTree (szFile$, szDir$) AS STRING
  57. DECLARE FUNCTION DoesDirExist (szDir$) AS INTEGER
  58.  
  59. DECLARE FUNCTION DoesIniSectionExist (szFile$, szSect$) AS INTEGER
  60. DECLARE FUNCTION DoesIniKeyExist (szFile$, szSect$, szKey$) AS INTEGER
  61. DECLARE FUNCTION GetIniKeyString (szFile$, szSect$, szKey$) AS STRING
  62.  
  63. DECLARE FUNCTION GetConfigSmartdrvSize AS INTEGER
  64. DECLARE FUNCTION GetConfigRamdriveSize AS INTEGER
  65. DECLARE FUNCTION GetConfigNumBuffers AS INTEGER
  66. DECLARE FUNCTION GetConfigNumFiles AS INTEGER
  67. DECLARE FUNCTION GetConfigLastDrive AS STRING
  68. DECLARE FUNCTION IsDriverInConfig (szDrv$) AS INTEGER
  69.  
  70. DECLARE FUNCTION GetProcessorType AS INTEGER
  71. DECLARE SUB GetParallelPortsList (szSymbol$)
  72. DECLARE SUB GetSerialPortsList (szSymbol$)
  73. DECLARE FUNCTION Has87MathChip AS INTEGER
  74. DECLARE FUNCTION HasMonochromeDisplay AS INTEGER
  75. DECLARE FUNCTION HasMouseInstalled AS INTEGER
  76.  
  77.  
  78. '*************************************************************************
  79. FUNCTION IsDriveValid (szDrive$) STATIC  AS INTEGER
  80. '$ifdef DEBUG
  81.     if FValidDrive(szDrive$) = 0 then
  82.         BadArgErr 1, "IsDriveValid", szDrive$
  83.     end if
  84. '$endif ''DEBUG
  85.     IsDriveValid = FIsValidDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  86. END FUNCTION
  87.  
  88.  
  89. '*************************************************************************
  90. FUNCTION IsDriveLocalHard (szDrive$) STATIC  AS INTEGER
  91. '$ifdef DEBUG
  92.     if FValidDrive(szDrive$) = 0 then
  93.         BadArgErr 1, "IsDriveLocalHard", szDrive$
  94.     end if
  95. '$endif ''DEBUG
  96.     IsDriveLocalHard = FIsLocalHardDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  97. END FUNCTION
  98.  
  99.  
  100. '*************************************************************************
  101. FUNCTION IsDriveRemovable (szDrive$) STATIC  AS INTEGER
  102. '$ifdef DEBUG
  103.     if FValidDrive(szDrive$) = 0 then
  104.         BadArgErr 1, "IsDriveRemovable", szDrive$
  105.     end if
  106. '$endif ''DEBUG
  107.     IsDriveRemovable = FIsRemoveDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  108. END FUNCTION
  109.  
  110.  
  111. '*************************************************************************
  112. FUNCTION IsDriveNetwork (szDrive$) STATIC  AS INTEGER
  113. '$ifdef DEBUG
  114.     if FValidDrive(szDrive$) = 0 then
  115.         BadArgErr 1, "IsDriveNetwork", szDrive$
  116.     end if
  117. '$endif ''DEBUG
  118.     IsDriveNetwork = FIsRemoteDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  119. END FUNCTION
  120.  
  121.  
  122. '*************************************************************************
  123. FUNCTION GetTotalSpaceForDrive (szDrive$) STATIC  AS LONG
  124. '$ifdef DEBUG
  125.     if FValidDrive(szDrive$) = 0 then
  126.         BadArgErr 1, "GetTotalSpaceForDrive", szDrive$
  127.     end if
  128. '$endif ''DEBUG
  129.     GetTotalSpaceForDrive = LcbTotalDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  130. END FUNCTION
  131.  
  132.  
  133. '*************************************************************************
  134. FUNCTION GetFreeSpaceForDrive (szDrive$) STATIC  AS LONG
  135. '$ifdef DEBUG
  136.     if FValidDrive(szDrive$) = 0 then
  137.         BadArgErr 1, "GetFreeSpaceForDrive", szDrive$
  138.     end if
  139. '$endif ''DEBUG
  140.     GetFreeSpaceForDrive = LcbFreeDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  141. END FUNCTION
  142.  
  143.  
  144. '*************************************************************************
  145. SUB GetValidDrivesList (szSymbol$) STATIC
  146. '$ifdef DEBUG
  147.     if szSymbol$ = "" then
  148.         BadArgErr 1, "GetValidDrivesList", szSymbol$
  149.     end if
  150. '$endif ''DEBUG
  151.     if FGetValidDrivesList(szSymbol$) = 0 then
  152. '$ifdef DEBUG
  153.         StfApiErr saeFail, "GetValidDrivesList", szSymbol$
  154. '$endif ''DEBUG
  155.         ERROR STFERR
  156.     end if
  157. END SUB
  158.  
  159.  
  160. '*************************************************************************
  161. SUB GetLocalHardDrivesList (szSymbol$) STATIC
  162. '$ifdef DEBUG
  163.     if szSymbol$ = "" then
  164.         BadArgErr 1, "GetLocalHardDrivesList", szSymbol$
  165.     end if
  166. '$endif ''DEBUG
  167.     if FGetLocalHardDrivesList(szSymbol$) = 0 then
  168. '$ifdef DEBUG
  169.         StfApiErr saeFail, "GetLocalHardDrivesList", szSymbol$
  170. '$endif ''DEBUG
  171.         ERROR STFERR
  172.     end if
  173. END SUB
  174.  
  175.  
  176. '*************************************************************************
  177. SUB GetRemovableDrivesList (szSymbol$) STATIC
  178. '$ifdef DEBUG
  179.     if szSymbol$ = "" then
  180.         BadArgErr 1, "GetRemovableDrivesList", szSymbol$
  181.     end if
  182. '$endif ''DEBUG
  183.     if FGetRemovableDrivesList(szSymbol$) = 0 then
  184. '$ifdef DEBUG
  185.         StfApiErr saeFail, "GetRemovableDrivesList", szSymbol$
  186. '$endif ''DEBUG
  187.         ERROR STFERR
  188.     end if
  189. END SUB
  190.  
  191.  
  192. '*************************************************************************
  193. SUB GetNetworkDrivesList (szSymbol$) STATIC
  194. '$ifdef DEBUG
  195.     if szSymbol$ = "" then
  196.         BadArgErr 1, "GetNetworkDrivesList", szSymbol$
  197.     end if
  198. '$endif ''DEBUG
  199.     if FGetNetworkDrivesList(szSymbol$) = 0 then
  200. '$ifdef DEBUG
  201.         StfApiErr saeFail, "GetNetworkDrivesList", szSymbol$
  202. '$endif ''DEBUG
  203.         ERROR STFERR
  204.     end if
  205. END SUB
  206.  
  207.  
  208. '*************************************************************************
  209. FUNCTION GetDOSMajorVersion STATIC  AS INTEGER
  210.     GetDOSMajorVersion = WGetDOSMajorVersion
  211. END FUNCTION
  212.  
  213.  
  214. '*************************************************************************
  215. FUNCTION GetDOSMinorVersion STATIC  AS INTEGER
  216.     GetDOSMinorVersion = WGetDOSMinorVersion
  217. END FUNCTION
  218.  
  219.  
  220. '*************************************************************************
  221. FUNCTION GetEnvVariableValue (szEnvVar$) STATIC  AS STRING
  222. '$ifdef DEBUG
  223.     if szEnvVar$ = "" then
  224.         BadArgErr 1, "GetEnvVariableValue", szEnvVar$
  225.     end if
  226. '$endif ''DEBUG
  227.     cb% = 1024
  228.     szBuf$ = STRING$(cb%, 32)
  229.     cbRet% = CbGetEnvVariableValue(szEnvVar$, szBuf$, cb%)
  230.     GetEnvVariableValue = szBuf$
  231. '$ifdef DEBUG
  232.     IF cbRet% >= cb% THEN
  233.         StfApiErr saeOvfl, "GetEnvVariableValue", szEnvVar$
  234.         ERROR STFERR
  235.     END IF
  236. '$endif ''DEBUG
  237.     szBuf$ = ""
  238. END FUNCTION
  239.  
  240.  
  241. '*************************************************************************
  242. FUNCTION GetNumWinApps STATIC  AS INTEGER
  243.     GetNumWinApps = WGetNumWinApps
  244. END FUNCTION
  245.  
  246.  
  247. '*************************************************************************
  248. FUNCTION DoesFileExist (szFileName$, mode%) STATIC  AS INTEGER
  249. '$ifdef DEBUG
  250.     if FValidFATPath(szFileName$) = 0 then
  251.         BadArgErr 1, "DoesFileExist", szFileName$+", "+STR$(mode%)
  252.     end if
  253. '$endif ''DEBUG
  254.     DoesFileExist = FDoesFileExist(szFileName$, mode%)
  255. END FUNCTION
  256.  
  257.  
  258. '*************************************************************************
  259. FUNCTION GetDateOfFile (szFile$) STATIC  AS STRING
  260. '$ifdef DEBUG
  261.     if FValidFATPath(szFile$) = 0 then
  262.         BadArgErr 1, "GetDateOfFile", szFile$
  263.     end if
  264. '$endif ''DEBUG
  265.     cb% = 20
  266.     szBuf$ = STRING$(cb%, 32)
  267.     cbRet% = CbGetDateOfFile(szFile$, szBuf$, cb%)
  268.     GetDateOfFile = szBuf$
  269. '$ifdef DEBUG
  270.     IF cbRet% >= cb% THEN
  271.         StfApiErr saeOvfl, "GetDateOfFile", szFile$
  272.         ERROR STFERR
  273.     END IF
  274. '$endif ''DEBUG
  275.     szBuf$ = ""
  276. END FUNCTION
  277.  
  278.  
  279. '*************************************************************************
  280. FUNCTION GetYearFromDate (szDate$) STATIC  AS INTEGER
  281. '$ifdef DEBUG
  282.     if szDate = "" then
  283.         BadArgErr 1, "GetYearFromDate", szDate$
  284.     end if
  285. '$endif ''DEBUG
  286.     GetYearFromDate = VAL(MID$(szDate$, 1, 4))
  287. END FUNCTION
  288.  
  289.  
  290. '*************************************************************************
  291. FUNCTION GetMonthFromDate (szDate$) STATIC  AS INTEGER
  292. '$ifdef DEBUG
  293.     if szDate = "" then
  294.         BadArgErr 1, "GetMonthFromDate", szDate$
  295.     end if
  296. '$endif ''DEBUG
  297.     GetMonthFromDate = VAL(MID$(szDate$, 6, 2))
  298. END FUNCTION
  299.  
  300.  
  301. '*************************************************************************
  302. FUNCTION GetDayFromDate (szDate$) STATIC  AS INTEGER
  303. '$ifdef DEBUG
  304.     if szDate = "" then
  305.         BadArgErr 1, "GetDayFromDate", szDate$
  306.     end if
  307. '$endif ''DEBUG
  308.     GetDayFromDate = VAL(MID$(szDate$, 9, 2))
  309. END FUNCTION
  310.  
  311.  
  312. '*************************************************************************
  313. FUNCTION GetHourFromDate (szDate$) STATIC  AS INTEGER
  314. '$ifdef DEBUG
  315.     if szDate = "" then
  316.         BadArgErr 1, "GetHourFromDate", szDate$
  317.     end if
  318. '$endif ''DEBUG
  319.     GetHourFromDate = VAL(MID$(szDate$, 12, 2))
  320. END FUNCTION
  321.  
  322.  
  323. '*************************************************************************
  324. FUNCTION GetMinuteFromDate (szDate$) STATIC  AS INTEGER
  325. '$ifdef DEBUG
  326.     if szDate = "" then
  327.         BadArgErr 1, "GetMinuteFromDate", szDate$
  328.     end if
  329. '$endif ''DEBUG
  330.     GetMinuteFromDate = VAL(MID$(szDate$, 15, 2))
  331. END FUNCTION
  332.  
  333.  
  334. '****