#include-once #Region include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #EndRegion #Region Declarations Global $awctmpf, $hGraphic, $hImage #EndRegion #Region Compiling Process #AutoIt3Wrapper_Res_CompanyName=AWC Systems #AutoIt3Wrapper_Res_LegalCopyright=Copyright © 2018 #EndRegion #Region Preprocessor Config #NoTrayIcon #EndRegion #AWC Functions OnAutoItExitRegister("AWCexit") Func pngpic($guih="", $png="", $lpos=0, $tpos=0) If $guih = "" Then Return 0 else _GDIPlus_StartUp() $hImage = _GDIPlus_ImageLoadFromFile($png) $hImage = _GDIPlus_ImageResize($hImage, 64, 64) ; Draw PNG image $hGraphic = _GDIPlus_GraphicsCreateFromHWND($guih) _GDIPlus_GraphicsDrawImage($hGraphic, $hImage, $lpos, $tpos) EndIf EndFunc Func AWCexit() ; Clean up resources _GDIPlus_GraphicsDispose($hGraphic) _GDIPlus_ImageDispose($hImage) _GDIPlus_ShutDown() FileDelete($awctmpf) EndFunc Func pupd($percent, $end) For $i = $percent To $end Step 1 ProgressSet($i, $i & "%") Next EndFunc Func about($prog, $ver, $img="") $a = GUICreate("About", 376, 225, 302, 218, $WS_SYSMENU) GUISetBkColor($COLOR_YELLOW, $a) GUICtrlCreateGroup("", 17, 17, 336, 167, BitOR($GUI_SS_DEFAULT_GROUP,$WS_BORDER)) GUICtrlCreatePic("", 26, 34, 113, 105, BitOR($GUI_SS_DEFAULT_PIC,$WS_BORDER)) GUICtrlCreateLabel($prog, 172, 42, 150, 18) GUICtrlCreateLabel("Version : " & $ver, 172, 68, 100, 18) GUICtrlCreateLabel("AWC Systems - Copyright © " & @YEAR, 80, 155, 206, 22) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlCreateLabel("Licensed To : " & @UserName, 172, 120, 150, 18) GUICtrlCreateLabel("Developped By AWC", 172, 94, 105, 18) GUICtrlCreateGroup("", -99, -99, 1, 1) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd EndFunc #EndRegion