home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / fcc110 / fcc.bas next >
BASIC Source File  |  1993-10-12  |  2KB  |  51 lines
  1. Global Const FCC_RDONLY = (1)
  2. Global Const FCC_CREATE = (2)
  3. Global Const FCC_RDWR = (4)
  4. Global Const FCC_WCACHE = (8)
  5.  
  6. Global Const FCC_SEEKSET = (1)
  7. Global Const FCC_SEEKCUR = (2)
  8. Global Const FCC_SEEKEND = (3)
  9.  
  10. Global Const FCC_ERR_OPEN = (1)
  11. Global Const FCC_ERR_WRITE = (2)
  12. Global Const FCC_ERR_READ = (3)
  13. Global Const FCC_ERR_CLOSE = (4)
  14. Global Const FCC_ERR_SEEK = (5)
  15. Global Const FCC_ERR_CACCESS = (6)
  16. Global Const FCC_ERR_VERSION = (7)
  17. Global Const FCC_ERR_NOMEM = (8)
  18. Global Const FCC_ERR_PARAM = (9)
  19. Global Const FCC_ERR_CANCELED = (10)
  20. Global Const FCC_ERR_UNKNOWN = (11)
  21.  
  22. Global Const FCC_CNONE = (-1)
  23. Global Const FCC_CDEFAULT = (0)
  24.  
  25. Type FCC_COPYT
  26.     hWnd    As Integer
  27.     message As Integer
  28.     wparam  As Integer
  29.     lparam  As Long
  30.  
  31.     cancel  As Integer
  32.     length  As Long
  33.     plength As Long
  34.     curpos  As Long
  35. End Type
  36.  
  37. Declare Function FCC_open Lib "FCCWIN.DLL" (h%, ByVal s$, ByVal flags%, ByVal compress%, ByVal kbytes%, ByVal blocksize%) As Integer
  38. Declare Function FCC_close Lib "FCCWIN.DLL" (ByVal handle%) As Integer
  39. Declare Function FCC_read Lib "FCCWIN.DLL" (ByVal handle%, buff As Any, ByVal bytes&, rbytes&) As Integer
  40. Declare Function FCC_write Lib "FCCWIN.DLL" (ByVal handle%, buff As Any, ByVal bytes&, wbytes&) As Integer
  41. Declare Function FCC_seek Lib "FCCWIN.DLL" (ByVal handle%, ByVal ofs&, ByVal where%, newpos&) As Integer
  42. Declare Function FCC_tell Lib "FCCWIN.DLL" (ByVal handle%, pos&) As Integer
  43. Declare Function FCC_length Lib "FCCWIN.DLL" (ByVal handle%, ln&) As Integer
  44. Declare Function FCC_plength Lib "FCCWIN.DLL" (ByVal handle%, ln&) As Integer
  45. Declare Function FCC_exists Lib "FCCWIN.DLL" (ByVal s$, v%, l&, p&) As Integer
  46. Declare Function FCC_version Lib "FCCWIN.DLL" () As Integer
  47. Declare Function FCC_copy Lib "FCCWIN.DLL" (ByVal src$, ByVal dst$, ByVal blksize%, ByVal compress%, p As Any) As Integer
  48.  
  49.  
  50.  
  51.