home *** CD-ROM | disk | FTP | other *** search
/ NetComm Communications 5 / NetComm.iso / resource / netcomm / wcomm / disk1 / msdetect.in_ / msdetect.bin
Encoding:
Text File  |  1994-10-24  |  5.2 KB  |  107 lines
  1. '**************************************************************************
  2. '*************************  Setup Detect API's  ***************************
  3. '**************************************************************************
  4.  
  5. ''detect
  6.  
  7. DECLARE FUNCTION CbGetVersionOfFile LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  8. DECLARE FUNCTION LGetVersionNthField LIB "msdetstf.dll" (szVersion$, nField%) AS LONG
  9. DECLARE FUNCTION LcbGetSizeOfFile LIB "msdetstf.dll" (szFile$) AS LONG
  10. DECLARE FUNCTION FGetValidDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  11. DECLARE FUNCTION FGetLocalHardDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  12. DECLARE FUNCTION FGetRemovableDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  13. DECLARE FUNCTION FGetNetworkDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  14. DECLARE FUNCTION LcbTotalDrive LIB "msdetstf.dll" (nDrive%) AS LONG
  15. DECLARE FUNCTION LcbFreeDrive LIB "msdetstf.dll" (nDrive%) AS LONG
  16. DECLARE FUNCTION FIsValidDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  17. DECLARE FUNCTION FIsLocalHardDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  18. DECLARE FUNCTION FIsRemoveDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  19. DECLARE FUNCTION FIsRemoteDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  20. DECLARE FUNCTION FDirExists LIB "msdetstf.dll" (szDir$) AS INTEGER
  21. DECLARE FUNCTION FDoesFileExist LIB "msdetstf.dll" (szFileName$, mode%) AS INTEGER
  22. DECLARE FUNCTION CbGetDateOfFile LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  23. DECLARE FUNCTION FDoesIniSectionExist LIB "msdetstf.dll" (szFile$, szSect$) AS INTEGER
  24. DECLARE FUNCTION FDoesIniKeyExist LIB "msdetstf.dll" (szFile$, szSect$, szKey$) AS INTEGER
  25. DECLARE FUNCTION CbGetIniKeyString LIB "msdetstf.dll" (szFile$, szSect$, szKey$, szBuf$, cbBuf%) AS INTEGER
  26. DECLARE FUNCTION WGetDOSMajorVersion LIB "msdetstf.dll" AS INTEGER
  27. DECLARE FUNCTION WGetDOSMinorVersion LIB "msdetstf.dll" AS INTEGER
  28. DECLARE FUNCTION CbGetEnvVariableValue LIB "msdetstf.dll" (szEnvVar$, szBuf$, cbBuf%) AS INTEGER
  29. DECLARE FUNCTION WGetNumWinApps LIB "msdetstf.dll" AS INTEGER
  30. DECLARE FUNCTION FGetParallelPortsList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  31. DECLARE FUNCTION FGetSerialPortsList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  32. DECLARE FUNCTION FHas87MathChip LIB "msdetstf.dll" AS INTEGER
  33. DECLARE FUNCTION FHasMonochromeDisplay LIB "msdetstf.dll" AS INTEGER
  34. DECLARE FUNCTION FHasMouseInstalled LIB "msdetstf.dll" AS INTEGER
  35. DECLARE FUNCTION WGetConfigSmartdrvSize LIB "msdetstf.dll" AS INTEGER
  36. DECLARE FUNCTION WGetConfigRamdriveSize LIB "msdetstf.dll" AS INTEGER
  37. DECLARE FUNCTION WGetConfigNumBuffers LIB "msdetstf.dll" AS INTEGER
  38. DECLARE FUNCTION WGetConfigNumFiles LIB "msdetstf.dll" AS INTEGER
  39. DECLARE FUNCTION WGetConfigLastDrive LIB "msdetstf.dll" AS INTEGER
  40. DECLARE FUNCTION FIsDriverInConfig LIB "msdetstf.dll" (szDrv$) AS INTEGER
  41. DECLARE FUNCTION CbFindTargetOnEnvVar LIB "msdetstf.dll" (szFile$, szEnvVar$, szBuf$, cbBuf%) AS INTEGER
  42. DECLARE FUNCTION CbFindFileInTree LIB "msdetstf.dll" (szFile$, szDir$, szBuf$, cbBuf%) AS INTEGER
  43. DECLARE FUNCTION GetTypeFaceNameFromTTF LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  44. DECLARE FUNCTION GetExistingFOTFileForTTF LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  45.  
  46.  
  47.  
  48. '*************************************************************************
  49. '****************  Detect Basic Wrapper Declarations  ********************
  50. '*************************************************************************
  51.  
  52.  
  53. '' detect
  54.  
  55. DECLARE FUNCTION IsDriveValid (szDrive$) AS INTEGER
  56. DECLARE FUNCTION GetFreeSpaceForDrive (szDrive$) AS LONG
  57. DECLARE FUNCTION DoesFileExist (szFile$, mode%) AS INTEGER
  58. DECLARE FUNCTION GetDateOfFile (szFile$) AS STRING
  59. DECLARE FUNCTION GetVersionOfFile (szFile$) AS STRING
  60. DECLARE FUNCTION GetVersionNthField (szVersion$, nField%) AS LONG
  61. DECLARE FUNCTION DoesDirExist (szDir$) AS INTEGER
  62. DECLARE FUNCTION GetIniKeyString (szFile$, szSect$, szKey$) AS STRING
  63.  
  64. FUNCTION IsDriveValid (szDrive$) STATIC  AS INTEGER
  65.     IsDriveValid = FIsValidDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  66. END FUNCTION
  67.  
  68. FUNCTION GetFreeSpaceForDrive (szDrive$) STATIC  AS LONG
  69.     GetFreeSpaceForDrive = LcbFreeDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  70. END FUNCTION
  71.  
  72. FUNCTION DoesFileExist (szFileName$, mode%) STATIC  AS INTEGER
  73.     DoesFileExist = FDoesFileExist(szFileName$, mode%)
  74. END FUNCTION
  75.  
  76. FUNCTION GetDateOfFile (szFile$) STATIC  AS STRING
  77.     cb% = 20
  78.     szBuf$ = STRING$(cb%, 32)
  79.     cbRet% = CbGetDateOfFile(szFile$, szBuf$, cb%)
  80.     GetDateOfFile = szBuf$
  81.     szBuf$ = ""
  82. END FUNCTION
  83.  
  84. FUNCTION GetVersionNthField (szVersion$, nField%) STATIC  AS LONG
  85.     GetVersionNthField = LGetVersionNthField(szVersion$, nField%)
  86. END FUNCTION
  87.  
  88. FUNCTION GetVersionOfFile (szFile$) STATIC  AS STRING
  89.     cb% = 30
  90.     szBuf$ = STRING$(cb%, 32)
  91.     cbRet% = CbGetVersionOfFile(szFile$, szBuf$, cb%)
  92.     GetVersionOfFile = szBuf$
  93.     szBuf$ = ""
  94. END FUNCTION
  95.  
  96. FUNCTION DoesDirExist (szDir$) STATIC  AS INTEGER
  97.     DoesDirExist = FDirExists(szDir$)
  98. END FUNCTION
  99.  
  100. FUNCTION GetIniKeyString (szFile$, szSect$, szKey$) STATIC  AS STRING
  101.     cb% = 512
  102.     szBuf$ = STRING$(cb%, 32)
  103.     cbRet% = CbGetIniKeyString(szFile$, szSect$, szKey$, szBuf$, cb%)
  104.     GetIniKeyString = szBuf$
  105.     szBuf$ = ""
  106. END FUNCTION
  107.