wakillon

DesktopClock updated Bug fixed : Gui Position was not saved when PC restart and Gui do not stay always on top

DesktopClock updated Now via traymenu / Options you can set Dark Color / Light Color / Outline color and set Font Size

DesktopClock v1.0.0.4.au3 updated

You are right I just thought of another problem The "pixelgetcolor" function is done on the left side of the GUI, it would be necessary to detect if the GUI is at the extreme left of the screen to use the function on the right

DesktopClock v1.0.0.3.au3 updated to GDI+ Version

Something like this ?

Hallo UEZ und vielen Dank 😉 1) I figured you were going to ask that 😂 I wanted to do something simple with Labels, but no problem, i will do a second version with gdi+ to improve the display 2) Instead of _StringProper could you try with _StringTitleCase to find out if it works for German language 3) For the color check, are you talking about each line of text ? 4) After all these years, you haven't noticed that most of my scripts have a blinking icon ? 😉

Before I used the free DesktopDigitalClock from softwareok.com which is very good But sometimes the clock bothered me because I couldn't see what was behind it on the screen and there was no way to move it quickly The second problem was that the clock's display color made the time become unreadable depending on the color of the window behind it So, why not create my own that would be draggable and would adapt its display color (dark/light) to the window located behind it See tray menu for options Script available in download section : DesktopClock v1.0.0.6

Flag in the Wind... 🫡 #Region ;************ Includes ************ #include <StaticConstants.au3> #include <GUIConstantsEx.au3> #include <SendMessage.au3> #include <GDIPlus.au3> #include <Array.au3> #EndRegion ;************ Includes ************ Opt('MustDeclareVars', 1) HotKeySet('{ESC}', '_Exit') #Region ------ Global Variables ------------------------------ Global $hGui, $idPic, $hPic, $hImage, $iMargin = 15, $iThickness = 6, $fAngle = 45 Global $iGuiW, $iGuiH, $iX = $iMargin, $iY = $iMargin, $iW, $iH, $iMove Global $aColors[12] = [0xFFFF3333, _ 0xFFFF3333, _ 0xFFFF6633, _ 0xFFFFFF33, _ 0xFF66FF33, _ 0xFF33FF33, _ 0xFF33FFCC, _ 0xFF3399FF, _ 0xFF3333FF, _ 0xFF9933FF, _ 0xFFFF3399, _ 0xFFFF3333] #EndRegion ------ Global Variables ------------------------------ #Region ------ Init ------------------------------ _GDIPlus_Startup() $hImage = _GDIPlus_BitmapCreateFromMemory(EuropeanFlagjpg()) $iGuiW = _GDIPlus_ImageGetWidth($hImage) * 1.5 $iGuiH = _GDIPlus_ImageGetHeight($hImage) * 1.5 $iW = $iGuiW - $iMargin * 2 $iH = $iGuiH - $iMargin * 2 $hGui = GUICreate('Flag in the Wind', $iGuiW, $iGuiH) $idPic = GUICtrlCreatePic('', $iX - $iThickness, $iY - $iThickness, $iW + 2 * $iThickness, $iH + 2 * $iThickness) $hPic = GUICtrlGetHandle(-1) GUISetState() AdlibRegister('_FillPath', 150) #EndRegion ------ Init ------------------------------ #Region ------ Main Loop ------------------------------ While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE _Exit() EndSwitch Sleep(30) WEnd #EndRegion ------ Main Loop ------------------------------ Func _Base64Decode($input_string) ; by trancexx Local $struct = DllStructCreate('int') Local $a_Call = DllCall('Crypt32.dll', 'int', 'CryptStringToBinary', 'str', $input_string, 'int', 0, 'int', 1, 'ptr', 0, 'ptr', DllStructGetPtr($struct, 1), 'ptr', 0, 'ptr', 0) If @error Or Not $a_Call[0] Then Return SetError(1, 0, '') Local $a = DllStructCreate('byte[' & DllStructGetData($struct, 1) & ']') $a_Call = DllCall('Crypt32.dll', 'int', 'CryptStringToBinary', 'str', $input_string, 'int', 0, 'int', 1, 'ptr', DllStructGetPtr($a), 'ptr', DllStructGetPtr($struct, 1), 'ptr', 0, 'ptr', 0) If @error Or Not $a_Call[0] Then Return SetError(2, 0, '') Return DllStructGetData($a, 1) EndFunc ;==>_Base64Decode Func _Exit() AdlibUnRegister('_FillPath') _GDIPlus_BitmapDispose($hImage) _GDIPlus_Shutdown() GUIDelete($hGui) Exit EndFunc ;==>_Exit Func _FillPath() Local $hBitmap = _WinAPI_CreateBitmap($iW + 2 * $iThickness, $iH + 2 * $iThickness, 1, 32) Local $hCDC = _WinAPI_CreateCompatibleDC(0) Local $hOld = _WinAPI_SelectObject($hCDC, $hBitmap) Local $hGraphic = _GDIPlus_GraphicsCreateFromHDC($hCDC) ;~ _GDIPlus_GraphicsClear($hGraphic, 0x00000000) $iMove += 1 If $iMove >= 6 Then _GDIPlus_GraphicsDrawImageRect($hGraphic, $hImage, $iThickness + 1, $iThickness + 1, $iW - 1 * 2, $iH - 1 * 2) $iMove = 0 Else _GDIPlus_GraphicsDrawImageRect($hGraphic, $hImage, $iThickness, $iThickness, $iW, $iH) EndIf Local $hPath = _GDIPlus_PathCreate() _GDIPlus_PathAddRectangle($hPath, 0, 0, $iW + 2 * $iThickness, $iH + 2 * $iThickness) _GDIPlus_PathAddRectangle($hPath, $iThickness, $iThickness, $iW, $iH) Local $tRect = _GDIPlus_RectFCreate(0, 0, $iW + 2 * $iThickness, $iH + 2 * $iThickness) Local $hBrush = _GDIPlus_LineBrushCreateFromRectWithAngle($tRect, 0xFFFF0000, 0xFFFFFFFF, $fAngle) _ArrayPush($aColors, $aColors[0]) Local $aInterpolations[12][2] $aInterpolations[0][0] = UBound($aInterpolations) - 1 For $i = 1 To $aInterpolations[0][0] $aInterpolations[$i][0] = $aColors[$i] $aInterpolations[$i][1] = Round(($i - 1) / 10, 1) Next _GDIPlus_LineBrushSetPresetBlend($hBrush, $aInterpolations) _GDIPlus_GraphicsFillPath($hGraphic, $hPath, $hBrush) _GDIPlus_PathDispose($hPath) _GDIPlus_BrushDispose($hBrush) _GDIPlus_GraphicsDispose($hGraphic) _WinAPI_SelectObject($hCDC, $hOld) _WinAPI_DeleteDC($hCDC) Local $hObj = _SendMessage($hPic, $STM_SETIMAGE, 0, $hBitmap) _WinAPI_DeleteObject($hObj) _WinAPI_DeleteObject($hBitmap) $aInterpolations = 0 EndFunc ;==>_FillPath Func EuropeanFlagjpg() ; Code Generated by BinaryToAu3Kompressor. Local $sFileBin = '/9j/4QDCRXhpZgAASUkqAAgAAAAHABIBAwABAAAAAQAAABoBBQABAAAAYgAAABsBBQABAAAAagAAACgBAwABAAAAAgAAADEBAgAOAAAAcgAAADIBAgAUAAAAgAAAAGmHBAABAAAAlAAAAAAAAABIAAAAAQAAAEgAAAABAAAAUGhvdG9GaWx0cmUgNwAyMDI2OjAyOjIxIDE1OjIxOjA0AAMAAJAHAAQAAAAwMjEwAqADAAEAAAAsAQAAA6ADAAEAAADMAAAA/9sAQwADAgIDAgIDAwMDBAMDBAUIBQUEBAUKBwcGCAwKDAwLCgsLDQ4SEA0OEQ4LCxAWEBETFBUVFQwPFxgWFBgSFBUU/9sAQwEDBAQFBAUJBQUJFA0LDRQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQU/8AAEQgAzAEsAwEiAAIRAQMRAf/EAB8AAAEFAQEBAQEBAAAAAAAAAAABAgMEBQYHCAkKC//EALUQAAIBAwMCBAMFBQQEAAABfQECAwAEEQUSITFBBhNRYQcicRQygZGhCCNCscEVUtHwJDNicoIJChYXGBkaJSYnKCkqNDU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2drh4uPk5ebn6Onq8fLz9PX29/j5+v/EAB8BAAMBAQEBAQEBAQEAAAAAAAABAgMEBQYHCAkKC//EALURAAIBAgQEAwQHBQQEAAECdwABAgMRBAUhMQYSQVEHYXETIjKBCBRCkaGxwQkjM1LwFWJy0QoWJDThJfEXGBkaJicoKSo1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoKDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uLj5OXm5+jp6vLz9PX29/j5+v/aAAwDAQACEQMRAD8A/M+3t4jbxExISVHVR6VJ9mh/54p/3yKLb/j2h/3B/KpK/rfC4XDvD0/3a+FdF2PCbd3qR/Zof+eKf98ij7ND/wA8U/75FSUV1fVMP/z7j9yJu+5H9mh/54p/3yKPs0P/ADxT/vkVJRR9Uw//AD7j9yC77kf2aH/nin/fIo+zQ/8APFP++RUlFH1TD/8APuP3ILvuR/Zof+eKf98ij7ND/wA8U/75FSUUfVMP/wA+4/cgu+5H9mh/54p/3yKPs0P/ADxT/vkVJRR9Uw//AD7j9yC77kf2aH/nin/fIo+zQ/8APFP++RUlFH1TD/8APuP3ILvuR/Zof+eKf98ij7ND/wA8U/75FSUUfVMP/wA+4/cgu+5H9mh/54p/3yKPs0P/ADxT/vkVJRR9Uw//AD7j9yC77kf2aH/nin/fIo+zQ/8APFP++RUlFH1TD/8APuP3ILvuR/Zof+eKf98ij7ND/wA8U/75FSUUfVMP/wA+4/cgu+5H9mh/54p/3yKPs0P/ADxT/vkVJRR9Uw//AD7j9yC77kf2aH/nin/fIo+zQ/8APFP++RUlFH1TD/8APuP3ILvuR/Zof+eKf98ij7ND/wA8U/75FSUUfVMP/wA+4/cgu+5H9mh/54p/3yKPs0P/ADxT/vkVJRR9Uw//AD7j9yC77kf2aH/nin/fIo+zQ/8APFP++RUlFH1TD/8APuP3ILvuR/Zof+eKf98ij7ND/wA8U/75FSUUfVMP/wA+4/cgu+5H9mh/54p/3yKPs0P/ADxT/vkVJRR9Uw//AD7j9yC77kf2aH/nin/fIrH1mNY7lAqhRsBwBjua3Kxdb/4+k/3B/M18Nxnh6MMplKEEnzR2SOnDt85rW3/HtD/uD+VSVHbf8e0P+4P5VJX3OF/3en/hX5HM92FFFFdQgooooAKKKKACiiigAooooAKKKKACiiigAooq3Z6Te6hGz2tnPcIp2s0UTMAfQ4FRKUYK8nZBuVMZor6l/Yq/Z/PxQ1HxzLrFo8VpBosunW7TxFdt1cqyI4z3RVY+2RXzleeENbsrya2m0m9SaJzG6fZ3yGBwR09a+TwPFOXY/N8bk1Ka9rhVTc9V/wAvE5K3olr6o7KmFqU6MK8lpO9vkY9FOlieCRo5EZJEJVlYYIPoRTa+uTvqjjCiiimAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAVi63/wAfSf7g/ma2qxdb/wCPpP8AcH8zXwfGv/Iol/iidOH/AIhrW3/HtD/uD+VSVHbf8e0P+4P5VJX2WF/3en/hX5HO92FFFFdQgooooAKKKKACiiigAooooAKUKTSV6h8DvjxqXwX1rzBpeneIdEnYG60nU7ZJEf8A2o3ZSY3x3HHqDXl5nXxmGwlStgKCrVYq6g5cnN5KTUkn2urX3aWprSjCU0qkrLva9vkdz+zB+z4fi74G+KOqy23nSWGkG30vIzm+JEw2++2Er/21r54KHPb86/bT4ZX+ka74H0jXNF0RdBsdXtY9QWzFtHA6h1BBdUGM4xz3GK+Of20P2hT8OvEd34D8L+EdL0e+EMclxrs+n27SOkiBh9nG35euC55yDgDGa/kLgTxezziXi3H5VSy7m9pJOMZVVFUI00qdTmfLLmTlZ2ir3bsnuvs8xyShhMFTrurt1t8V9V6adz4PrtvhP8ZPFfwW8RprHhbU5LKU4We2Ylre5T+5KmcMP1HUEGuKd2kdmYlmY5JPc0+3MQuIzMHMO4bxHjdtzzjPfFf2FjsFhsxw08JjaSqU5q0oySaa7NPRnxcJypyU4OzXU/an4RePbr4lfDLw54p1DTf7FuNVtlnNmZd4XcxClScHDgBlB5wwHJr5d/bv/aW8cfDnWIPBHh4todnqFgtzJrMMhNxMjFlaOM/8ssFSCR8x4wQOvyV8Xf2j/FXxXutOgadtC8PaSI00vRNPkZIbRYwFjYngvIAo+c8+gUcVD8Tvj1rPxi8HeHtO8VIuoa5oTyR2+t5xLPbOBmOYfxMrKCH6nLZyea/jLhDwJqZJxDh88zGhSq0JSqN0HeXsL3dJpybVXk0jK+1+Zc9uZfb43iH6xhZYem2pJL3v5u/pfdfoeYyyvPI8kjs8jkszMckk9STTQM0V1nw0+Il18NPEkWqQ6bpetQcLcadrFlHc286d1IYEqfRlwR69q/tDFTrUcPOeGpqc0tIt8t32vZ2v6W723Ph4qLklJ2R337IvwhtvjL8Z7HR9Sh83Rba2mvL4H/nmq7V/OR4/1ryrxT4du/CXibVtEvV23mm3UtpMOnzxuVP6iv1q/Zp8R+CviJ4Eh8YeFPBdn4Rku2e0uYoLGKFi8ZBZQ6KPMTJGDxyOQCDXl/7ZHxU8J/BOK1WH4caFrnirXkkni1LU9LgkgTadrO7Fd0smSPlyByCT2P8AHeT+Mmc4/jvEZNDLJuUoxpKi6kE4TpOcqk3LWNmpO9r3UI2ufbV8joUsujiHWW7d7PVO1lbfp+LPzQ6UVd1nV7jXtUudQu/K+03DmR/JhSFMn+6iAKo9gABVKv7Ng5OKc1Z9bO6v5Oyv62XofDvyCiiirEFFFFABRRRQAUUUUAFFFFABWLrf/H0n+4P5mtqsXW/+PpP9wfzNfB8a/wDIol/iidOH/iGtbf8AHtD/ALg/lUlR23/HtD/uD+VSV9lhf93p/wCFfkc73YUUUV1CCiiigAooooAKKKKACilwfSvpP9nj9n//AIWT8CPi14ie2E15bWiQaS2Mt50JW5mC+5RUT/gZr5riHiDBcM4JY/HytT56cPnUnGCfor8z8kzpw+HqYqfs6a1s39yufNdXNH+xf2rZ/wBpGUaf5yfafs4Bk8vI3bc8bsZxnvVTHNJX0U488XG9r9tznTtqe/fFT9szx3458RafPoF9N4N0LSJEbS9M02THlhBtQyt/y1bbxgjbjgL1' $sFileBin &= 'zzvx6+Og+PkPhvV9U01LHxZp9s1hf3FsMQXkQbdFIF6owLSAryOQRjoPI6K+Ly/grh/KamFrYDCRpTw6koSjpK0k1JSe8+a93zt3l73xanbUxuIrKUak21Lf5beny6aBRRRX25whRRRQAUDrRRQB9D+Jv2ttX0X4Z+Hvh58OpLjw1ommWqR3WqRtsvb6cnfKwI/1SGRmIAO4jGT/AA1Q+Kv7S03x0+Eml6L4vt9/i/Q7sTWmsQIAt5C67JUlUY2vxG25eG2nIB5Pg9Ffn+G4D4ewlWliaGGUa9OpKqqn/Lxznfncp7y502pJ+7Z2SVo29CWPxM4uEp+61a3Sy208ugUUoBNe/fsd/AqL43eMfEdvfRBtPsdFuQJD0W6mQxW5+oZmcf8AXOvoOIM8wfDWV183x7tSpK7+9JJebbSXmznw9CeJqxo01qzwCirN/p8+m31xaXMZiuIJGikjbqrKcEH6EGq1e9GSklKLumc4UUUVQBRRRQAUUUUAFFFFABWLrf8Ax9J/uD+ZrarF1v8A4+k/3B/M18Hxr/yKJf4onTh/4hrW3/HtD/uD+VSVHbf8e0P+4P5VJX2WF/3en/hX5HO92FFFFdQgooooAKKKKACiiigD1n4D/tGeIPgbqw+zQW+taBM+660a/RWjfsWRiCY3x/EOD3BFfrb4QvYNX8LaZqUGltpEd/axXhsXjRHh8xA21wnG4ZwfpX4neFbrTbHxJplzrNvLeaVDcRy3VtCQHmjVgWQE8DcBjPbOcHpXqnxL/a5+InxE8a2evxazN4ej02Yy6Zp+lSGOG09OP+WjY4JfORkYAOK/lTxX8I6nHmZYeplUIUJ8snVrO9pPRU48kfile/NNq8Y21lpE+uybOVltOSq3ktLLt3d+np1Z7r+2v+054g8P+LdW+HPh/SoPDtvbKq3WqLEhubpXRWHlMB+6QhhyPmPqOlfEJOTk8mvUPjr8am+Ot9oWu6np0dl4mtrIWGoT23EF2EYmOUJ/A2GZWHI+VSMdB5fX694dcM0uFuHsPgvqyo1+Ve1s+bmqLSU+a7bUmuaN3pFpWVrLxcyxTxeJlU5rx6dLLtby6hRRRX6aeWFFFFABRRRQAUUUUAFFFFAHd/CP4vap8IfEK6hZWWn6tZyFRdaZqtqlxBcKO2GBKN6MuCPcZB/WL4E+JNB8efDvS/FmgeGYvDEOsRmR7VLWKJyUdkyTGBvXIbax6g5wM1+MsQVpUDtsQkAtjOB64r3z4l/te+Jtd0rRPDPgqe68G+ENChggs4LSXZdT+UAEkmkXvkbti/KCedx5r+ZfF3wyq8d1MJDK4KnWk37Ws21FU4rSMor45OTXK7XSi05JWPqclzWOXc8quq6Lrf16K2/qfS37a3x4tvg9qEPhvQfBmkf29qdr9tOvX2m28qxqzMv7tSh3yZU5Z+Bxwc5H54Xt5NqF3NdXEhlnmcyO56sxOSa9i+M37Q8/x48DeG4fE1oo8Y6FJJENUt1Cx3ttIAT5iD7sisoPy/KdzcKevi9fceFvCX+qOQU8JiqChi7tVZcznztSajJSevI42ajpy3acVK55+bYz65iXUg7w6K1reVu9wooor9iPGCiiigAooooAKKKKACsXW/8Aj6T/AHB/M1tVi63/AMfSf7g/ma+D41/5FEv8UTpw/wDENa2/49of9wfyqSo7b/j2h/3B/KpK+ywv+70/8K/I53uwooorqEFFFFABRRRQAUUUYoAKK938Lfs/vrf7KPiv4jtA5vrLVYBa472seUnI9t8yH/tia8IxXg5XneCzipiqWDlzPD1HSn5TUYya+XMl6p9jerQnRUHNfErr01/yCiiiveMAooooAKKKKACiiigAooooAKKKKACiijGaACivV/2YPhLF8ZvjLovh29RzpRElzfshwVgRSTz7ttX/AIFXnvirw5d+EfE2q6JeoVvNOupbSYYI+dHKn9RXiU85wdXNKuTxn+/pwhUa/uzlOK/GDv2vHubujNUlWa91tr5q3+ZlUUUV7ZgFFFFABRRRQAUUUUAFYut/8fSf7g/ma2qxdb/4+k/3B/M18Hxr/wAiiX+KJ04f+Ia1t/x7Q/7g/lUlR23/AB7Q/wC4P5VJX2WF/wB3p/4V+RzvdhRRRXUIKKKKACiiigAr3X9nb44eFfBF5DovjzwHonizQJpMC9k0yGS+tM9wxXMq/wCwxz/dI6Hwquu+E2saF4d+Imh6x4kimudH024W9mtbdQXuDH86RDPADOFBJ4AJPPSvluJ8rw2b5TXw+KpymuVtKEnGfMk2uSSaal0WttbO6bR1YWrKjWjKDS9dV812P2U0zwd4esvCo8P2eiWFr4fkiaM6UtqqW5RyWZTFjGCSSQR1JzX5x/tW/GbwhBrus+CfBHw30Hw81jPJZ32sTaPAl28iMVdYRt/drkH5/vHtt75viD9vn4map8RoPEljdQ6ZpduSsfh5V32jxk8iXOGkY4Hz8Efw7elebftB/EHRfix8RJvGGj2cumSavbxTX9hKd3kXarsk2sPvK20OGwD8xyMiv5R8LvCXOuGM9jjeJU6sakHNctSTjCtzLSrHRTk4ttSfNDmTV2+Vv7DN85oYzD+zwujTtqlrHy7a9NGeaUUUV/a58KFFFFABRRRQAUUUUAFFFFABRRRQAV1Hw68aW3gXxHFqF74d0rxRY/dn03Vod8ciZ52sPmRvRh+II4rl6BXLisNSxlCeHrK8ZKz1advJppp9mmmt0yoycJKUd0frf+zEnws8WeGf+E1+HvhK28NzXAawuwLcxyxsNjvFuyQ652HcvB4zgggee/tfa/8ACb4Pgalq3w20vxN4x17zJoGubUrE7KQGlmkBGcEj5V5Oeqg5r5uuf2vLn4a/CDw98PPhnu097W2D6l4hdP3stzIfMlECn7qhm272G4hRgL3zPi/+0xB+0D8HNO0zxVara+ONCuxNbahbx4hv4XXZKpUf6uTiNuPlOw42ng/wplHhRxBR4thnmLdZ5fUrShy+3n7f2OvspVGrS9m5cvNHm54x1klZtff1s4w0sD9Xgo+0STvyrlv1t5262s3seC67q7a7q91fta2liZ3L/ZrGEQwxj+6iDoB/nNUKKK/vGnCNKChBWSVl8j8/bu7sKKKK0EFFFFABRRRQAVi63/x9J/uD+ZrarF1v/j6T/cH8zXwfGv8AyKJf4onTh/4hrW3/AB7Q/wC4P5VJUdt/x7Q/7g/lUlfZYX/d6f8AhX5HO92FFFFdQgooooAKKKKACiiigAoor0n4c/Bq++IHw5+IfiqDeIvC1nBcBQOJWeUBxn/ZiWR/wFebmGY4XK6CxOMmoQ5oRu+85xhFfOUkjSnTlVlywV3q/uV3+B5tRRRXpGYUUUUAFFFFABRRRQAUUUUAFFFFABRRXoPwG+FE/wAavihpPhSGR4Eu/Mea4QZ8qNI2Yt+gH1Irzsxx+GyrB1sfjJctKlGU5PtGKu39yNKdOVWapwV23ZfM8+oqxqNhPpV/c2V1GYbm3kaGWNuqupIYH6EGq9d8ZKaUou6ZnsFFFFUAUUUUAFFFFABRRRQAVi63/wAfSf7g/ma2qxdb/wCPpP8AcH8zXwfGv/Iol/iidOH/AIhrW3/HtD/uD+VSVHbf8e0P+4P5VJX2WF/3en/hX5HO92FFFFdQgooooAKKKKACiiigD1v4DXPwmvNUGkfE7TtSt4LiTEOuadeMiwZ7TR7Wyv8AtLyO4I5H6a/Cf4HeBfh/8O9Q0Hwwj33h3XleeeaW5Fx9pjliEfEgABQp0x6k96/IPwtpEWv+I9M06e8h063urhIpby4YLHAhYbpGJ6BRkn6V9r+M/wDgodY+EPEGj6H8PPD0F94N0hUtZJr4NFJeQouxViA/1SgAEMwJJ6gDIP8AIHjPwbxJxLjMPhOGqtafOpTqQdRqhHktyNcztGcpXUYp2vHmtGzkfZ5FjsLhIyni4rTRO3vO+/yS3OR/aU8Dfs/fBNrrRNJsNX1/xko2tZLq' $sFileBin &= 'rC3syRwZm2ZJ5B8tTn1K18hHk+le6/tceLPCvxO8dad498J3OYNdsY/t9lMAtxaXcQ8tlkUccoIyGGQ3ODwQPCq/cvDrBYrC8PYepmFatUxM4p1PbylKUZrSUUnpGMZJpWWqs23oz5/MpwniZKlGKinpyrS3R/cFFFFfpp5gUUUUAFFFFABRRRQAUUUUAdZ8NNU8JaZ4kjPjXRbzWdCkwko067+z3EPP30JBVsf3W6+o61+mn7MfwY+Enh5D46+Gl1dakmoWxs/tFzdeaYVLK7xlCoMb5Vcg849jk/k+OTX2bpX7WGk/s4fBPw74I8DQ2uueLfJ+16rqEw3WltcSne8YwR5zqCsZwdo29WPA/mbxo4XzriHCUMHw/Vre2ry5J01Nqi6aTcp1E/djyvlV1Zy5rcsnY+pyLF4fC1JVMTFcsVdO3vX6JHof7UPwm/Z/+G13qPifxZBq0viHWppbyLSNMv8AY9zIzEswUqRGm7OWJx1wCeK/P3W7uzvtWup9Psf7NsncmG084ymJewLnlj74H0FfTP7S3xz8M/tL/CrQNdjjTRPG3h+5MF7pUj5E1vMBmSBv41WRF+U/Mu89RzXyxX03hHlGaZZkKWe1a0sXFyhONWblGHI7RVNX5eVw5ZKSve9lK2hyZxWo1sS3h4xUHqmlvfe/W9+gUUUV+5nghRRRQAUUUUAFFFFABWLrf/H0n+4P5mtqsXW/+PpP9wfzNfB8a/8AIol/iidOH/iGtbf8e0P+4P5VJUdt/wAe0P8AuD+VSV9lhf8Ad6f+Ffkc73YUUUV1CCiiigAooooAKKKKACiiigAoor2L4A6J8IvF+ojRfiNfa14cupmxbavZ3UYtCT0WZWiYx/7+dvrt6142b5nHJ8HPHTpTqRhq1TjzSt1aje7t2V35G1Gk601TTSv30X3nO+DvhDqPi/4XeOPGkG8Wnhn7JvQLnzfNkKtg/wCyMMfY15/X7D/Dj9nTwf8AD/4Tax4G0x7q/wBC1tZmu7i4lR5ZhNGEyHVQvCgbSB7818R/tG/Cb4EfBJbnSNN1XxH4h8YKNv8AZ8V/B5No3rcOIeD38tfm9dvWv544K8asFxTneMyylQq1L1F7Hlp3tS5Ixbm7pQXOpSvJ6c6V9Ej6XH5FUweHhWlJLT3rvrd7d9Lbdj5Uooor+oD5QKK67wD8NNU+Idr4nuNOUeXoGky6vckgnMcbKCB7/MT/AMBNcjXHSxdCtWqYenNOdO3Muqurq/qtS3CSSk1owoortPhY/gR/ESW3xAi1hdGmIU3uizIstsf7xR0YOvqBg+mehWMxLweHniFTlPlV+WCvJ+iurvy3eyu9AhHnko3tfvsWvgl8JNQ+NPjgeHNPYxy/Yrq7aQDO3yomZQf959if8Drg3QxuysCrA4IIwQa/WT9mX9nz4dfDAXHizwHrV34hh1i2WKO+uLiOZVjDhiE2IuCWC7g3I2gEDmvDf2kf2ffgH8KptQ17xJrPiGLV9Umlu7fQtLu4DJKzsWIRTEfLjBJG5jgYwNx4r+Ysn8c8uzTirEZTToVp03GnGlGNJ+09ouf2vNHRx3itdEoNu1z6uvw/Vo4ONdyinrfXS2lrPr1+8+C6KsahLbTX08lnA9raM5MUMsvmMi9gWwNx98D6Cq9f1RFuSTat5f8ADaHyIUUUVQBRRRQAUUUUAFFFFABRRRQAVi63/wAfSf7g/ma2qxdb/wCPpP8AcH8zXwfGv/Iol/iidOH/AIhrW3/HtD/uD+VSVHbf8e0P+4P5VJX2WF/3en/hX5HO92FFFFdQgooooAKKKKACiiigAooooAK3fAvh+LxV4w0fSbi7h0+1u7pI7i8uJBHHbxZ/eSMx4AVdzH6VhUZxWFeE6lKcKUuWTTSdr2dtHbrbexUWk02rn6AeLf8AgonoHhLxbpmieDvDg1XwXp4FrcXUrGGWaJVCL9mXooUAY3j5umF6183ftc6h4a8WfFH/AITTwjfR3ui+JbWO9ZVASS3uQPLmikTqj5UOc9fMyCQc14hRX5Rwz4X5DwfjqWYZMpQqKEqdRuTl7VSaled/tqSTUopK142ta3r4rNcRjabp12mr3WlrdNPKwV6V8E/BngTx7rn9j+MPFt14NnnYC1vjaJNaMf7sjF1MZ9GOV9Stea1PYWU+pX1vaWsbTXM8ixRRoMl3Y4AH1JFfpWZ4api8HUo0cRKhJrSceVuL72mpRfmmmrfeeXSkoTUpR5l2d9fu1P1k/Z5/ZV0T4FaJ4ls01R/Ef/CQIkU881usQ+zhHHlgBmBB8xjnPPHpXyl8av2QPht8C9GN94h+Jt8LmVSbPSYNMie7ucf3V80YXsXbCj3PFev6v+174I/Zo0Dwn8PdKik8Z3ejW8NlqtxY3AEUBUfvtjnIkk3lsKPlHQsMYHz3+3DeeH/Hfirw78R/CeoJqWjeILEQTMuQ8F1BhWjkU8o3ltEdp64JGRzX8LeHuD47q8XPGZtjK1HDY9tqr7KmnX9imqacZRkqPNTTkvdTlFe7f4l99mVTLlglChCLnT6Xfu82/wDis/u/A+aZtnmv5W7y9x27uuO2aaqlmAAyT2pKK/vzofnh9yw/tZaD+zJ8J/C/gPwZaWnibxNaQJNq107k2UNxIfMnTcpBlcFtmQdq7RySMVwP7W3xT8J/tD+CvCnjnQj9g8Qaez6Zq2j3BHnxI37yJwf+WkYYSAOOm8AgEjPyxRX43lfhZkmUZnSz3DSn9djOc51W23VdS6nGUfh5dfdSScWk7vXm9qrm2IrUXh529nZJLtbZrz79wooor9lPFCiiigAooooAKKKKACiiigAooooAKxdb/wCPpP8AcH8zW1WLrf8Ax9J/uD+Zr4PjX/kUS/xROnD/AMQ1rb/j2h/3B/KpKjtv+PaH/cH8qkr7LC/7vT/wr8jne7CiiiuoQUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAU6ORoZFdGKOpyGU4INNopbgFO8x/LKbjsJBK54JHQ/qabRQAUUUUwCiiigAooooAKKKKACiiigAooooAKKKKACiiigArF1v/j6T/cH8zW1WLrf/AB9J/uD+Zr4PjX/kUS/xROnD/wAQ1rb/AI9of9wfyqSvsnTv2MPBcsohOra+FVeCJ7fPH/bGnTfsZ+C474QjVtf27gMme3zz/wBsanD8WYGFGEXCeiXRdv8AEDoSufGlFfZ2o/sYeC7Qps1bXzuzndPb/wDxin3H7FvgqKzWUat4gLELwZ7fHP8A2wrf/W7AfyT+6P8A8kL2Ej4uor7Rtf2LfBU1o0rat4gDDPAnt8cf9sKj079jDwXds4fVtfGAPuz2/wD8Zo/1uwH8k/uj/wDJB7CR8ZUV9lx/sZeC31AwHVtf2biM+fb54/7Y0X37GXgu2uFRdW18ggHme3/+M0f63YD+Sf3R/wDkg9hI+NKK+0NQ/Yt8FWsasmreICS2OZ7f/wCMUv8Awxb4K/s/z/7W8Qb9ucefb4/9EUf63YD+Sf3R/wDkg9hI+LqK+0NP/Yt8FXUbM+reIAQ2OJ7f/wCMVFYfsZeC7mdkbVtfACk8T2/r/wBcaP8AW7AfyT+6P/yQewkfGlFfZcn7GXgtNQEA1bX9m4DPn2+ef+2NO1D9jDwXaMgTVtfO4EndPb//ABmj/W7AfyT+6P8A8kHsJHxlRX2jdfsW+CoLRZV1bxAWOOs9vjn/ALYUW/7FvgqWzaU6t4gDANwJ7fHH/bCj/W7AfyT+6P8A8kHsJHxdRX2dp37GHgu7Mm/VtfG3GNs9v/8AGKZD+xn4LkvjCdW1/aCwyJ7fPH/bGj/W7AfyT+6P/wAkHsJHxpRX2XefsZeC7e5Ea6tr5BAPM9v/APGal1D9i7wVaohTVvEByccz2/8A8Yo/1uwH8k/uj/8AJB7CR8X0V9ot+xb4KGn+f/a3iDftBx59vj/0RRYfsW+CrqJ2fVvEAIbHE9v6f9cKP9bsB/JP7o//ACQewkfF1FfZdh+xl4LupmR9' $sFileBin &= 'W18ALnie39f+uND/ALGXgtb/AMj+1tf2bgM+fb5/9E0f63YD+Sf3R/8Akg9hI+NKK+zNQ/Yx8F2roE1bXzkZ5nt//jNS3n7Fvgq3tlkXVvEBYkdZ7f8A+MUf63YD+Sf3R/8Akg9hI+LqK+0YP2LfBUli0x1bxBuAY4E9vjj/ALYUzTv2L/BV35m/VtfG3GNs9v8A/GKf+t2A/kn90f8A5IPYSPjGivsu3/Yy8Fy3phOra/tBYZE9vnj/ALY0Xf7GXguC6Ea6tr5U46z2+ef+2NL/AFuwH8k/uj/8kHsJHxpRX2fqP7F3gq0CFNW8QHcSPmnt/wD4xTn/AGLfBS6f541bxBv2g48+3x1/64Uf63YD+Sf3R/8Akg9hI+LqK+0bD9i3wVdQM7at4gBDEcT2/p/1wqLT/wBjLwXdSMr6tr4AXPE9v/8AGaf+t2A/kn90f/kg9hI+M6K+zD+xl4L+3+R/a2v7N2M+fb5/9E0ah+xj4LtZFVNW18grnme3/wDjNL/W7AfyT+6P/wAkHsJHxnWLrf8Ax9J/uD+Zr7rvf2LfBVtbLIureICSQOZ7f0/64VHD+wv4D1WFJ5tX8Rh8bcJcW4HU/wDTCvk+J+IcJj8udClGSd1ulb8GzejSlGd2f//Z' $sFileBin = Binary(_Base64Decode($sFileBin)) Return SetError(0, 0, $sFileBin) EndFunc ;==>EuropeanFlagjpg

I just re upload 7z archive Try again

Updated See first post

With the last version, isSlideShow.dll v1.03 (2011) the speed of transition can be set. In this example, 4 pictures are displayed at the same time in fullscreen Press ESC for exit the SlideShow Source+Dlls+Pictures are in archive isSlideShow v1.03.7z

With isSlideShow.dll v1.02 (2010), an easy to use InnoSetup plugin, we can create SlideShow with various Transition effects Jpg, png, bmp are supported #Region ;************ Includes ************ #include <GUIConstantsEx.au3> #include <File.au3> #EndRegion ;************ Includes ************ Opt('MustDeclareVars', 1) #Region ------ Global Variables ------------------------------ Global $hGui, $iGuiWidth = 600, $iGuiHeight = 450 Global $hSlideShowDll = DllOpen('isSlideShow.dll') ; InnoSetup plugin Global $aPicList, $iIndex, $iStretch = 2, $iTimer = 3000, $iTransitionEffect = 1 ; 1 = random #EndRegion ------ Global Variables ------------------------------ #Region ------ Init ------------------------------ $hGui = GUICreate('isSlideShow.dll Transition effect Example', $iGuiWidth, $iGuiHeight) $aPicList = _FileListToArray(@ScriptDir & '\Slides', '*', $FLTA_FILES, True) GUISetState() _InitializeSlideShow() _ShowImage() AdlibRegister('_ShowImage', $iTimer) #EndRegion ------ Init ------------------------------ #Region ------ Main Loop ------------------------------ While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE AdlibUnRegister('_ShowImage') _DeinitializeSlideShow() DllClose($hSlideShowDll) GUIDelete($hGui) Exit EndSwitch Sleep(30) WEnd #EndRegion ------ Main Loop ------------------------------ Func _DeinitializeSlideShow() ;~ procedure DeinitializeSlideShow Local $aRet = DllCall($hSlideShowDll, 'int', 'DeinitializeSlideShow') If Not @error Then Return $aRet[0] EndFunc ;==>_DeinitializeSlideShow Func _InitializeSlideShow() ;~ procedure InitializeSlideShow(Hwnd:Thandle; l,t,w,h:integer;Animate:boolean; Stretch:integer) Local $aRet = DllCall($hSlideShowDll, 'int', 'InitializeSlideShow', _ 'hwnd', $hGui, _ ; Window handle 'int', 0, _ ; x 'int', 0, _ ; y 'int', $iGuiWidth, _ ; w 'int', $iGuiHeight, _ ; h 'bool', True, _ ; Animate - Enable/disable 'int', $iStretch) ; Stretch - Determines the type of image stretching, Possible values : ;~ 0 - True image size. ;~ 1 - Proportional stretching of the image to the window size. ;~ 2 - Stretching the image to fill the window. If Not @error Then Return $aRet[0] EndFunc ;==>_InitializeSlideShow Func _ShowImage() ;~ Transition effect possible values: 1 - Random effect. ;~ 2 - Alpha Blend. ;~ 3 - Blocks. ;~ 4 - Circle. ;~ 5 - Diagonal. ;~ 6 - Fuse. ;~ 7 - InterLaced. ;~ 8 - Page. ;~ 9 - Radial. ;~ 10 - Roll. ;~ 11 - Waterfall. ;~ 12 - Wipe. $iIndex = ($iIndex = UBound($aPicList) - 1) ? 1 : $iIndex + 1 ;~ procedure ShowImage(ipath:PAnsiChar; Effect:integer) Local $aRet = DllCall($hSlideShowDll, 'int', 'ShowImage', 'str', $aPicList[$iIndex], 'int', $iTransitionEffect) If Not @error Then Return $aRet[0] EndFunc ;==>_ShowImage Source+Dll+Pictures are in following archive for test it SlideShow Transition effect.7z Happy New Year 🫡