Здравствуйте.
Нашел на форуме скрипт вывода пнг-картинки на рабочий стол.
Подскажите, как добавить в этот скрипт - возможность перетаскивания этого рисунка мышкой - по рабочему столу ?
Нашел на форуме скрипт вывода пнг-картинки на рабочий стол.
Подскажите, как добавить в этот скрипт - возможность перетаскивания этого рисунка мышкой - по рабочему столу ?
Код:
#include <GDIPlus.au3>
#include <WinAPISys.au3>
#include <WindowsConstants.au3>
$sFilePath = @ScriptDir & "\картинка.png"
If Not FileExists($sFilePath) Then Exit MsgBox(0, "Ошибка", "Файл не найден")
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile($sFilePath)
$hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
$hGUI = GUICreate("", _GDIPlus_ImageGetWidth($hImage), _GDIPlus_ImageGetHeight($hImage), -1, -1, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
GUISetState()
_WinAPI_UpdateLayeredWindowEx($hGUI, -1, -1, $hBitmap, 255, 1)
_WinAPI_DeleteObject($hBitmap)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()
Do
Until GUIGetMsg() = -3