home *** CD-ROM | disk | FTP | other *** search
/ Dan Appleman's Visual Bas…s Guide to the Win32 API / Dan.Applmans.Visual.Basic.5.0.Programmers.Guide.To.The.Win32.API.1997.Ziff-Davis.Press.CD / VB5PG32.mdf / vbpg32 / samples4 / ch14 / chkstand.bas < prev    next >
Encoding:
BASIC Source File  |  1997-02-16  |  4.0 KB  |  76 lines
  1. Attribute VB_Name = "CheckStandModule"
  2. Option Explicit
  3. ' Copyright ⌐ 1997 by Desaware Inc. All Rights Reserved
  4.  
  5. Type CheckStand
  6.     Prices(99) As Single
  7.     Done As Long    ' Indication that client is done
  8.     Total As Single ' Set when server is done
  9.     Client As String * 8
  10. End Type
  11.  
  12. Type SECURITY_ATTRIBUTES
  13.         nLength As Long
  14.         lpSecurityDescriptor As Long
  15.         bInheritHandle As Long
  16. End Type
  17.  
  18. Public Const DELETE = &H10000
  19. Public Const READ_CONTROL = &H20000
  20. Public Const WRITE_DAC = &H40000
  21. Public Const WRITE_OWNER = &H80000
  22. Public Const SYNCHRONIZE = &H100000
  23. Public Const FILE_SHARE_READ = &H1
  24. Public Const FILE_SHARE_WRITE = &H2
  25.  
  26. Public Const STANDARD_RIGHTS_READ = (READ_CONTROL)
  27. Public Const STANDARD_RIGHTS_WRITE = (READ_CONTROL)
  28. Public Const STANDARD_RIGHTS_EXECUTE = (READ_CONTROL)
  29. Public Const STANDARD_RIGHTS_REQUIRED = &HF0000
  30. Public Const STANDARD_RIGHTS_ALL = &H1F0000
  31.  
  32. Public Const MUTEX_ALL_ACCESS = &H1F0001
  33.  
  34. Public Const SECTION_QUERY = &H1
  35. Public Const SECTION_MAP_WRITE = &H2
  36. Public Const SECTION_MAP_READ = &H4
  37. Public Const SECTION_MAP_EXECUTE = &H8
  38. Public Const SECTION_EXTEND_SIZE = &H10
  39. Public Const SECTION_ALL_ACCESS = STANDARD_RIGHTS_REQUIRED Or SECTION_QUERY Or SECTION_MAP_WRITE Or SECTION_MAP_READ Or SECTION_MAP_EXECUTE Or SECTION_EXTEND_SIZE
  40.  
  41. Public Const FILE_MAP_COPY = SECTION_QUERY
  42. Public Const FILE_MAP_WRITE = SECTION_MAP_WRITE
  43. Public Const FILE_MAP_READ = SECTION_MAP_READ
  44. Public Const FILE_MAP_ALL_ACCESS = SECTION_ALL_ACCESS
  45.  
  46. Public Const GENERIC_READ = &H80000000
  47. Public Const GENERIC_WRITE = &H40000000
  48. Public Const CREATE_ALWAYS = 2
  49. Public Const FILE_ATTRIBUTE_NORMAL = &H80
  50. Public Const FILE_FLAG_RANDOM_ACCESS = &H10000000
  51. Public Const PAGE_READWRITE = 4&
  52.  
  53. Public Const WAIT_FAILED = -1&
  54. Public Const WAIT_OBJECT_0 = 0
  55. Public Const WAIT_ABANDONED = &H80&
  56. Public Const WAIT_ABANDONED_0 = &H80&
  57. Public Const WAIT_TIMEOUT = &H102&
  58.  
  59.  
  60. Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
  61. Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
  62. Declare Function CreateFileMapping Lib "kernel32" Alias "CreateFileMappingA" (ByVal hFile As Long, lpFileMappigAttributes As SECURITY_ATTRIBUTES, ByVal flProtect As Long, ByVal dwMaximumSizeHigh As Long, ByVal dwMaximumSizeLow As Long, ByVal lpname As String) As Long
  63. Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Long) As Long
  64. Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, ByVal lpOverlapped As Long) As Long
  65. Declare Function FlushFileBuffers Lib "kernel32" (ByVal hFile As Long) As Long
  66. Declare Function MapViewOfFile Lib "kernel32" (ByVal hFileMappingObject As Long, ByVal dwDesiredAccess As Long, ByVal dwFileOffsetHigh As Long, ByVal dwFileOffsetLow As Long, ByVal dwNumberOfBytesToMap As Long) As Long
  67. Declare Function UnmapViewOfFile Lib "kernel32" (ByVal lpBaseAddress As Long) As Long
  68. Declare Function OpenFileMapping Lib "kernel32" Alias "OpenFileMappingA" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal lpname As String) As Long
  69. Declare Function GetLastError Lib "kernel32" () As Long
  70. Declare Function CreateMutexBynum Lib "kernel32" Alias "CreateMutexA" (ByVal lpMutexAttributes As Long, ByVal bInitialOwner As Long, ByVal lpname As String) As Long
  71. Declare Function OpenMutex Lib "kernel32" Alias "OpenMutexA" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal lpname As String) As Long
  72. Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
  73. Declare Function ReleaseMutex Lib "kernel32" (ByVal hMutex As Long) As Long
  74.     
  75.  
  76.