_WinAPI_BitBlt zwischenspeichern

HotKeySet("{ESC}","_exit")
#include <WinAPI.au3>
#include <WindowsConstants.au3>
#Include <GDIPlus.au3>
_GDIPlus_Startup()

$x = 0
$y = 0
$width = @DesktopWidth
$height = @DesktopHeight
$hBitmap = Grab_Region($x, $y, $width, $height)

$hGui = GUICreate("_WinAPI_BitBlt", $width, $height, $x, $y, $WS_POPUP,$WS_EX_TOPMOST)
GUISetState(@SW_SHOW)
$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hGUI)
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hBitmap, 0, 0, $width, $height)

While GUIGetMsg() <> -3
Sleep(100)
WEnd

Func _exit()
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
Exit
EndFunc

Func Grab_Region($x, $y, $w, $h)
Local $hDC = _WinAPI_GetDC(0)
Local $hMemDC = _WinAPI_CreateCompatibleDC($hDC)
Local $memBitmap = _WinAPI_CreateCompatibleBitmap($hDC, $w, $h)
Local $hObj = _WinAPI_SelectObject($hMemDC, $memBitmap)
_WinAPI_BitBlt($hMemDC, 0, 0, $w, $h, $hDC, $x, $y, $SRCCOPY)

Local $aCursor = _WinAPI_GetCursorInfo()
If $aCursor[1] Then
Local $hIcon = _WinAPI_CopyIcon($aCursor[2])
Local $aIcon = _WinAPI_GetIconInfo($hIcon)
_WinAPI_DeleteObject($aIcon[4])
_WinAPI_DrawIcon($hMemDC, $aCursor[3] - $aIcon[2], $aCursor[4] - $aIcon[3], $hIcon)
_WinAPI_DestroyIcon($hIcon)
EndIf

Local $hBmp = _GDIPlus_BitmapCreateFromHBITMAP($memBitmap)
_WinAPI_DeleteDC($hMemDC)
_WinAPI_DeleteObject($memBitmap)
_WinAPI_ReleaseDC(0, $hDC)
_WinAPI_DeleteDC($hDC)
Return SetError(0, 0, $hBmp)
EndFunc