Type BITMAPINFO
      Field biSize:Int
      Field biWidth:Int
      Field biHeight:Int
      Field biPlanes:Short
      Field biBitCount:Short
      Field biCompression:Int
      Field biSizeImage:Int
      Field biXPelsPerMeter:Int
      Field biYPelsPerMeter:Int
      Field biClrUsed:Int
      Field biClrImportant:Int
      
      Field R:Byte
      Field G:Byte
      Field B:Byte
      Field Res:Byte
   End Type
   
   
   Const HORZRES:Int = 8
   Const VERTRES:Int = 10
   
   Local HwndDesktop:Int
   Local hdcDesktop:Int
   Local hdcMem:Int
   Local DesktopWidth:Int
   Local DesktopHeight:Int
   Local bmpMem:Int
   Local INFO:BITMAPINFO
   Local FinalPixmap:TPixmap
   
   HwndDesktop = GetDesktopWindow()
   
   If Not HwndDesktop
      Return Null
   EndIf
   
   
   hdcDesktop = GetWindowDC(HwndDesktop)
   
   If Not HdcDesktop
      Return Null
   EndIf
   
   
   hdcMem = CreateCompatibleDC(hdcDesktop)
   
   If Not HdcMem
      Return Null
   EndIf
   
   
   DesktopWidth = GetDeviceCaps(hdcDesktop, HORZRES)
   DesktopHeight = GetDeviceCaps(hdcDesktop, VERTRES)
   
   If DesktopWidth = 0 Or DesktopHeight = 0
      Return Null
   EndIf
   
   
   bmpMem  = CreateCompatibleBitmap(hdcDesktop, DesktopWidth, DesktopHeight)
   
   If Not BmpMem
      Return Null
   EndIf
   
   
   If Not SelectObject(HdcMem, bmpMem)
      Return Null
   EndIf
   
   Info            = New BITMAPINFO
   Info.bisize         = SizeOf(INFO)
   info.BiWidth      = DesktopWidth
   Info.biHeight      = DesktopHeight
   Info.biPlanes      = 1
   info.biBitCount      = 24
   Info.biCompression   = 0
   
   FinalPixmap = CreatePixmap(info.biWidth, info.biHeight, PF_BGR888)
      
   'MemCopy(FinalPixmap.PixelPtr(0,0), hdcDesktop, Info.biHeight*Info.biWidth*4)
   'Print "Src: "+ROP_SRCCOPY
   If Not BitBlt(hdcMem,0,0,Info.biWidth,Info.biHeight, hdcDesktop,0,0,ROP_SRCCOPY)   
      Return Null
   EndIf
   'Print MilliSecs()-ms
   If Not GetDIBits(hdcMem, bmpMem, 0, Info.biHeight, FinalPixmap.PixelPtr(0,0), info, 0)
      Return Null
   EndIf
   'Print MilliSecs()-ms
      
      
   'MemCopy(FinalPixmap.PixelPtr(0,0), bmpMem, 1280*1024*4)
   
   FinalPixmap = YFlipPixmap(FinalPixmap)
   
   DeleteDC(HdcMem)
   DeleteObject(bmpMem)
   ReleaseDC(hwndDesktop, hdcDesktop)

;Image pixel data offset

Include "MemoryAccess.bb"

Graphics 640,480,0,2
SetBuffer BackBuffer()

image=LoadImage("test.bmp") ;8x8
bufferimage=ImageBuffer(image)

WritePixel 0,0,33,bufferimage
WritePixel 1,0,44,bufferimage
WritePixel 2,0,55,bufferimage

width=PeekI(bufferimage+92) ;bufferimage+28 for Blitz+ not tested !!
height=PeekI(bufferimage+96) ;bufferimage+32
videoaddress=PeekI(bufferimage+72) ;bufferimage+76

Dim pixel(8,8)

pixel(0,0)=PeekB(videoaddress)
pixel(1,0)=PeekB(videoaddress+4)
pixel(2,0)=PeekB(videoaddress+8)

Print "bufferimage="+bufferimage
Print "width="+width
Print "height="+height
Print "videoaddress="+videoaddress
Print "pixel(0,0)="+pixel(0,0)
Print "pixel(1,0)="+pixel(1,0)
Print "pixel(2,0)="+pixel(2,0)
Print ""

For offset=0 To 12-1
 byte=PeekB(videoaddress+offset)
 Print "address="+(videoaddress+offset)+" byte="+byte
Next
Print ""

For offset=0 To 12-1 Step 4
 rgba=PeekI(videoaddress+offset)
 PokeI(videoaddress+offset,$FF0000) ;Red
 Print "address="+(videoaddress+offset)+" rgba="+rgba
Next
Print ""

Print "Let's see what we poked in"
For offset=0 To 12-1 Step 4
 rgba=PeekI(videoaddress+offset)
 Print "address="+(videoaddress+offset)+" rgba="+Hex(rgba)
Next

DrawImage image,256,16

WaitKey()
End

.lib "user32.dll"
GetSystemMetrics%( index% )

Local breite = GetSystemMetrics( 0 )
Local hoehe = GetSystemMetrics( 1 )

; DesktopBuffer initialisieren
InitDesktopBuffer( )

Graphics 800, 600, 0, 2

Local w = GraphicsWidth( )
Local h = GraphicsHeight( )

;Local img = CreateImage( w, h )
Local img = CreateImage( 200, 200 )
MaskImage img,255,0,255

; Desktop in den ImageBuffer von "img" kopieren
GrabDesktop( ImageBuffer( img ), 50, 50, 100, 100 )

While Not KeyDown( 1 )
   Cls
   Color 64,64,64:Rect 0,0,w,h,1
   DrawImage img, MouseX(), MouseY()
   Flip
Wend

End