HFile = CreateFileMapping(&HFFFFFFFF, 0, PAGE_READWRITE, 0, memSize, vbNullString) Public Function GetMemShared95(ByVal memSize As Long, hFile As Long) As Long Private Const PAGE_EXECUTE_WRITECOPY = &H80& Private Const PAGE_EXECUTE_READWRITE = &H40& Private Declare Function CloseHandle Lib 'kernel32' (ByVal hObject As Long) As Long Private Declare Function VirtualFreeEx Lib 'kernel32' (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long Private Declare Function VirtualAllocEx Lib 'kernel32' (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long Private Declare Function OpenProcess Lib 'kernel32' (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function UnmapViewOfFile Lib 'kernel32' (lpBaseAddress As Any) As LongĬonst 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Ĭonst FILE_MAP_ALL_ACCESS = SECTION_ALL_ACCESS Private 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

Private Declare Function CreateFileMapping Lib 'kernel32' Alias 'CreateFileMappingA' (ByVal hFile As Long, ByVal lpFileMappigAttributes As Long, ByVal flProtect As Long, ByVal dwMaximumSizeHigh As Long, ByVal dwMaximumSizeLow As Long, ByVal lpName As String) As Long Private Declare Function GetVersionEx Lib 'kernel32' Alias 'GetVersionExA' (LpVersionInformation As OSVERSIONINFO) As Long 'VirtualAllocEx function to reserve memory inside target process. But we can't use this trick for NT - NT map

'For Win95/98/ME we can use File Mapping, because OS place mapped files 'memory space and target process can not achive this address. 'process GPF can occure, because structure address belong to calling process But if you try to send this message to different If you're sending such message to window belong to your 'Some API (SendMessage for example) use pointers to structures to be filled Private Sub Form_Unload(Cancel As Integer)Įnd SubAdd 2 modules to your project. If StoreDeskTopInfo Then Timer1.Enabled = True

Vb6 listview control gpf