Zitat:

Die Anweisung in "0x4dc73d95" verweist auf Speicher in "0x0000015d". Der Vorgang "read" konnte nicht auf dem Speicher ausgeführt werden. Klicken Sie auf "OK", um das Programm zu beenden. Klicken Sie Auf "Abbrechen", um das Programm zu debuggen."

SendMessage(hwnd,4141,i,pFileMap)

Dim sFileName$ = "C:\TEMPPPP.PPP"
Dim pNull As IntPtr = 0
 
Dim hfile As IntPtr = CreateFile(sFileName, _
IO.FileAccess.ReadWrite, 0, pNull, _
ECreationDisposition.OpenAlways, FileAttribute.Normal, pNull)
 
Dim hFileMap As IntPtr = CreateFileMapping(hfile, pNull, _
  PageProtection.ReadWrite, 0, 16, "IconMapping")
Dim pFileMap As UInteger = MapViewOfFile(hFileMap, 2, 0, 0, 0)
 
Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" _
(ByVal lpFileName As String, ByVal dwDesiredAccess As IO.FileAccess, _
ByVal dwShareMode As IO.FileShare, ByVal lpSecurityAttributes As IntPtr, _
ByVal dwCreationDisposition As ECreationDisposition, _
ByVal dwFlagsAndAttributes As FileAttribute, _
ByVal hTemplateFile As IntPtr) As IntPtr
 
Declare Function CreateFileMapping Lib "kernel32" Alias "CreateFileMappingA" _
(ByVal hFile As IntPtr, ByVal lpFileMappingAttributes As IntPtr, _
ByVal flProtect As PageProtection, ByVal dwMaximumsizeHigh As UInteger, _
ByVal dwMaximumSizeLow As UInteger, ByVal lpname As String) As IntPtr
 
Declare Function MapViewOfFile Lib "kernel32" _
(ByVal hFileMappingObject As IntPtr, ByVal dwDesiredAccess As UInt32, _
ByVal dwFileOffsetHigh As UInt32, ByVal dwFileOffsetLow As UInt32, _
ByVal dwNumberOfBytesToMap As UInt32) As UInt32