#include <WindowsConstants.au3>
#include <ProgressConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include-once
#NoTrayIcon
;~ © 2013-2014 Marcel Bach. Alle Rechte vorbehalten.
Opt("GUIOnEventMode", 1)
Global $Programmname = "Dein Programname"
Global $Process = "taskmgr.exe"
$hGUI = GUICreate("Avera Music", 314, 225, -1, -1, BitOR ($WS_SYSMENU ,$WS_POPUP ), $WS_EX_CONTROLPARENT )
$hGUI_BG_PIC = GUICtrlCreatePic("GUI-1 - Kopie.jpg", 0, 0, 320, 424)
GUICtrlSetState (-1,$GUI_DISABLE )
$hGUI_Exit_Button = GUICtrlCreateLabel(" ", 19, 16, 11, 17)
GUICtrlSetTip(-1,"Beenden")
GUICtrlSetOnEvent(-1,"_Exit")
GUICtrlSetBkColor(-1,-2)
$hGUI_Minimize_Button = GUICtrlCreateLabel(" ", 40, 16, 11, 17)
GUICtrlSetTip(-1,"Minimieren")
GUICtrlSetOnEvent(-1,"_Minimize")
GUICtrlSetBkColor(-1,-2)
$Label1 = GUICtrlCreateLabel("Status:", 18, 120, 52, 24)
GUICtrlSetFont(-1, 11, 400, 0, "Roboto")
GUICtrlSetColor(-1,0xFFFFFF)
GUICtrlSetBkColor(-1,-2)
$sStatus = GUICtrlCreateLabel("Wird ausgeführt...", 75, 120, 200, 24)
GUICtrlSetFont(-1, 11, 400, 0, "Roboto Light")
GUICtrlSetBkColor(-1,-2)
GUICtrlSetColor(-1,0x018fca)
$Progress1 = GUICtrlCreateProgress(18, 144, 278, 25, $PBS_MARQUEE)
$Label2 = GUICtrlCreateLabel("", 186, 184, 108, 25)
GUICtrlSetBkColor(-1,"0x3399ff")
GUICtrlSetState(-1,$GUI_DISABLE)
$Label4 = GUICtrlCreateLabel("Abbrechen", 186, 187, 108, 25, $SS_CENTER)
GUICtrlSetFont(-1, 11, 400, 0, "Roboto Light")
GUICtrlSetColor(-1,0xFFFFFF)
GUICtrlSetOnEvent(-1,"_Exit")
GUICtrlSetBkColor(-1,-2)
GUICtrlSetCursor(-1,0)
$Label5 = GUICtrlCreateLabel($Programmname, 16, 50, 291, 29)
GUICtrlSetFont(-1, 14, 400, 0, "Roboto")
GUICtrlSetColor(-1,0xFFFFFF)
GUICtrlSetBkColor(-1,-2)
GUISetState(@SW_SHOW)
AdlibRegister("_Set_Progress",10)
While 1
Sleep(100)
WEnd
Func _Set_Progress()
If ProcessExists($Process) Then
Local $sProcess = guictrlread($Progress1)
If $sProcess = 100 Then $sProcess = 0
$sProcess = $sProcess + 10
GUICtrlSetData($Progress1,$sProcess)
Else
MsgBox(16,"Fatal Error","Der Prozess "& $Process & " wurde unerwartet beendet oder ist noch nicht gestartet.")
AdlibUnRegister("_Set_Progress")
GUICtrlSetData($sStatus,"ERROR Prozess Beendet")
EndIf
EndFunc
Func _Exit()
Exit
EndFunc
Func _Minimize()
GUISetState(@SW_MINIMIZE,$hGUI)
EndFunc
;~ © 2013-2014 Marcel Bach. Alle Rechte vorbehalten.