Dragging a GUI window without borders

[GeekS]

What i want to do, is to make this GUI window drag-able from mouseclicking(draging) the background/image.

GUICreate("Gnu's little helper", x1, y1, x2, y2, BitOR($WS_POPUP,$WS_BORDER))
GUICtrlCreatePic(@WorkingDir & "\Images\XY", 0, 0, x1, y1)

Adding $GUI_WS_EX_PARENTDRAG like this does not work:

GUICreate("Gnu's little helper", x1, y1, x2, y2, BitOR($WS_POPUP,$WS_BORDER))
GUICtrlCreatePic(@WorkingDir & "\Images\XY", 0, 0, x1, y1, "", $GUI_WS_EX_PARENTDRAG)

Thanks in advance, Gnu / GeekS.

[Dampe]

GUICreate("Gnu's little helper", x1, y1, x2, y2, BitOR($WS_POPUP,$WS_BORDER))
GUICtrlCreatePic(@WorkingDir & "\Images\XY", 0, 0, x1, y1)
GUICtrlSetState (-1, $GUI_DISABLE)
GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST")



    Func WM_NCHITTEST($hWnd, $Msg, $wParam, $lParam)
        Local $iProc
   
        $iProc = DllCall("user32.dll", "int", "DefWindowProc", "hwnd", $hWnd, "int", $Msg, "wparam", $wParam, "lparam", $lParam)
        $iProc = $iProc[0]
   
        If $iProc = $HTCLIENT Then Return $HTCAPTION
   
        Return $GUI_RUNDEFMSG
    EndFunc

[martin]

What i want to do, is to make this GUI window drag-able from mouseclicking(draging) the background/image.

GUICreate("Gnu's little helper", x1, y1, x2, y2, BitOR($WS_POPUP,$WS_BORDER))
GUICtrlCreatePic(@WorkingDir & "\Images\XY", 0, 0, x1, y1)

Adding $GUI_WS_EX_PARENTDRAG like this does not work:

GUICreate("Gnu's little helper", x1, y1, x2, y2, BitOR($WS_POPUP,$WS_BORDER))
GUICtrlCreatePic(@WorkingDir & "\Images\XY", 0, 0, x1, y1, "", $GUI_WS_EX_PARENTDRAG)

Thanks in advance, Gnu / GeekS.

This works for me

#include <GuiConstantsex.au3>
#include <windowsconstants.au3>
GUICreate("Gnu's little helper",200, 200, 200,200, BitOR($WS_POPUP,$WS_BORDER))
GUICtrlCreatePic(@Systemdir & "\oobe\images\mslogo.jpg", 0, 0, 200,200, -1, $GUI_WS_EX_PARENTDRAG)
GUISetState()
while 1
sleep(30)
WEnd