Einen Punkt auf den Desktop zeichen

#include <WindowsConstants.au3>
#include <WinAPI.au3>

Global $aButton[5],$i

$gui = GUICreate("Test", 150, 150, @DesktopWidth-170, -1, $WS_POPUP, $WS_EX_TOPMOST)
GUICtrlCreateIcon ("Ball1.ico","-1",0,0)
GUISetState(@SW_SHOW)

$pos = WinGetPos($gui)
_GuiHole($gui, 0, 0, 150, 150)

While 1
WinMove("Test", "", 0 + $i, 0, 150, 150)
$i += 0.01
WEnd

Func _GuiHole($h_win, $i_x, $i_y, $i_sizew, $i_sizeh)
Local $outer_rgn, $inner_rgn, $combined_rgn
$combined_rgn = _WinAPI_CreateRectRgn(0, 0, 0, 0)
_WinAPI_DeleteObject($outer_rgn)
_WinAPI_DeleteObject($inner_rgn)
_AddCtrlRegion($combined_rgn, $aButton)
_WinAPI_SetWindowRgn($h_win, $combined_rgn)
EndFunc ;==>_GuiHole

Func _AddCtrlRegion($full_rgn, $ctrl_id)
Local $ctrl_pos, $ctrl_rgn
If IsArray($ctrl_id) Then
For $i = 0 To UBound($ctrl_id) -1
$ctrl_pos = ControlGetPos($gui, "", $ctrl_id[$i])
$ctrl_rgn = _WinAPI_CreateRectRgn($ctrl_pos[0], $ctrl_pos[1], $ctrl_pos[0] + $ctrl_pos[2], $ctrl_pos[1] + $ctrl_pos[3])
_WinAPI_CombineRgn($full_rgn, $full_rgn, $ctrl_rgn, $RGN_OR)
_WinAPI_DeleteObject($ctrl_rgn)
Next
Else
$ctrl_pos = ControlGetPos($gui, "", $ctrl_id)
$ctrl_rgn = _WinAPI_CreateRectRgn($ctrl_pos[0], $ctrl_pos[1], $ctrl_pos[0] + $ctrl_pos[2], $ctrl_pos[1] + $ctrl_pos[3])
_WinAPI_CombineRgn($full_rgn, $full_rgn, $ctrl_rgn, $RGN_OR)
_WinAPI_DeleteObject($ctrl_rgn)
EndIf
EndFunc

#include <GuiConstants.au3>
#include <GDIPlus.au3>
#include <Misc.au3>

Global $width = 640
Global $height = 400
Global $titel = "Test"

$hGUI = GUICreate($Titel, $width, $height,-1,-1)
$hWnd = WinGetHandle($Titel)

GUISetState()

_GDIPlus_Startup ()

$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hWnd)
$Bitmap = _GDIPlus_BitmapCreateFromGraphics($width, $height, $hGraphic)
$Buffer = _GDIPlus_ImageGetGraphicsContext($Bitmap)
_GDIPlus_GraphicsSetSmoothingMode($Buffer, 4)
_GDIPlus_GraphicsClear($Buffer,0xFF000000)
$hPen = _GDIPlus_PenCreate (0xFF00FF00,4)
$hBrush1 = _GDIPlus_BrushCreateSolid (0xFFFF0000)

While 1

_GDIPlus_GraphicsClear($Buffer, 0xFF000000)

_GDIPlus_GraphicsFillEllipse($Buffer,10,10,100,100,$hBrush1)

_GDIPlus_GraphicsDrawImageRect($hGraphic, $Bitmap,0,0, $width, $height)

WEnd

_GDIPlus_GraphicsDispose ($hGraphic)
_GDIPlus_BitmapDispose($Bitmap)
_GDIPlus_GraphicsDispose($Buffer)
_GDIPlus_PenDispose ($hPen)
_GDIPlus_BrushDispose($hBrush1)

_GDIPlus_Shutdown ()