Zaramot
I ♥ AutoIt
- Сообщения
- 1,160
- Репутация
- 660
При запуске этого скрипта:
выдаёт такую ошибку:
Почёму ?!
P.S. Раньше скрипт работал.
Код:
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <WinAPIEx.au3>
#include <WindowsConstants.au3>
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & '\bg.png')
$hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
_GDIPlus_ImageDispose($hImage)
$hForm = GUICreate('', 850, 568, 200, 200, $WS_POPUPWINDOW, $WS_EX_LAYERED)
_WinAPI_UpdateLayeredWindowEx($hForm, $hBitmap, 255)
$hPopup = GUICreate('', 850, 568, 200, 200, $WS_POPUP, $WS_EX_LAYERED, $hForm)
GUISetBkColor(0xABABAB)
_WinAPI_SetLayeredWindowAttributes($hPopup, 0xABABAB, 0, $LWA_COLORKEY)
GUIRegisterMsg($WM_MOVE, 'WM_MOVE')
GUIRegisterMsg($WM_NCHITTEST, 'WM_NCHITTEST')
GUISetState(@SW_SHOW, $hForm)
GUISetState(@SW_SHOW, $hPopup)
While 1
$Msg = GUIGetMsg()
_WinAPI_UpdateLayeredWindowEx($hForm, $hBitmap, 255)
Switch $Msg
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd
_GDIPlus_Shutdown()
Func WM_MOVE($hWnd, $iMsg, $wParam, $lParam)
Switch $hWnd
Case $hForm
WinMove($hPopup, '', BitAND($lParam, 0xFFFF), BitShift($lParam, 16))
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_MOVE
Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam)
Switch $hWnd
Case $hForm
Switch $iMsg
Case $WM_NCHITTEST
Return $HTCAPTION
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NCHITTEST
выдаёт такую ошибку:

Почёму ?!
P.S. Раньше скрипт работал.