home *** CD-ROM | disk | FTP | other *** search
/ Becoming a Computer Animator / COMPANIMATE.ISO / pc / windemos / pcanim / msdetect.in_ / msdetect.bin
Text File  |  1993-01-12  |  2KB  |  54 lines
  1. '**************************************************************************
  2. '*************************  Setup Detect API's  ***************************
  3. '**************************************************************************
  4.  
  5. ''detect
  6.  
  7. DECLARE FUNCTION LcbFreeDrive LIB "msdetstf.dll" (nDrive%) AS LONG
  8. DECLARE FUNCTION FDirExists LIB "msdetstf.dll" (szDir$) AS INTEGER
  9. DECLARE FUNCTION FIsValidDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  10. DECLARE FUNCTION FHasMouseInstalled LIB "msdetstf.dll" AS INTEGER
  11.  
  12.  
  13.  
  14. '*************************************************************************
  15. '****************  Detect Basic Wrapper Declarations  ********************
  16. '*************************************************************************
  17.  
  18.  
  19. '' detect
  20.  
  21. DECLARE FUNCTION IsDriveValid (szDrive$) AS INTEGER
  22. DECLARE FUNCTION GetFreeSpaceForDrive (szDrive$) AS LONG
  23. DECLARE FUNCTION HasMouseInstalled AS INTEGER
  24.  
  25.  
  26. '*************************************************************************
  27. FUNCTION IsDriveValid (szDrive$) STATIC  AS INTEGER
  28. '$ifdef DEBUG
  29.     if FValidDrive(szDrive$) = 0 then
  30.         BadArgErr 1, "IsDriveValid", szDrive$
  31.     end if
  32. '$endif ''DEBUG
  33.     IsDriveValid = FIsValidDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  34. END FUNCTION
  35.  
  36.  
  37. '*************************************************************************
  38. FUNCTION GetFreeSpaceForDrive (szDrive$) STATIC  AS LONG
  39. '$ifdef DEBUG
  40.     if FValidDrive(szDrive$) = 0 then
  41.         BadArgErr 1, "GetFreeSpaceForDrive", szDrive$
  42.     end if
  43. '$endif ''DEBUG
  44.     GetFreeSpaceForDrive = LcbFreeDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  45. END FUNCTION
  46.  
  47.  
  48. '*************************************************************************
  49. FUNCTION HasMouseInstalled STATIC  AS INTEGER
  50.     HasMouseInstalled = FHasMouseInstalled
  51. END FUNCTION
  52.  
  53.  
  54.