#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=dein.ico
;### i hier dein icon eintragen,
;i nötig für GUICtrlCreateIcon("CleanmgrPlus.exe", 0, 35, 80, 32, 32, 0) ###
#AutoIt3Wrapper_Outfile=CleanmgrPlus.exe
;### i hier der Progname CleanmgrPlus.exe,
;i nötig für GUICtrlCreateIcon("CleanmgrPlus.exe", 0, 35, 80, 32, 32, 0) ###
#AutoIt3Wrapper_Res_Field=Original Name|Cleanmgr Plus
#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#AutoIt3Wrapper_Run_Tidy=y
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/striponly
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****

#NoTrayIcon
#RequireAdmin

Global $title = "CleanmgrPlus - Demo", $build = "  Build 2012 - 03 - 05", $version = "1.1.0.4"

#region GUI CleanmgrPlus - Demo ###
$GUI = GUICreate($title, 250, 300)
WinSetOnTop($GUI, '', 1)
GUICtrlCreateIcon("cleanmgr.exe", -1, 35, 24, 32, 32, 0)
$bnCl = GUICtrlCreateButton("Cleanmgr", 10, 10, 230, 56, 0x04000000)
GUICtrlSetFont(-1, 12, 400)
GUICtrlCreateIcon("CleanmgrPlus.exe", 0, 35, 80, 32, 32, 0)
$bnClPl = GUICtrlCreateButton("Cleanmgr Plus", 10, 66, 230, 56, 0x04000000)
GUICtrlSetFont(-1, 12, 400)
GUICtrlCreateIcon("shell32.dll", -81, 35, 136, 32, 32, 0)
$bnDefrag = GUICtrlCreateButton("Defrag", 10, 122, 230, 56, 0x04000000)
GUICtrlSetFont(-1, 12, 400)
GUICtrlCreateIcon("shell32.dll", -15, 35, 192, 32, 32, 0)
$bnUpdate = GUICtrlCreateButton("Update suchen", 10, 178, 230, 56, 0x04000000)
GUICtrlSetFont(-1, 12, 400)
GUICtrlCreateIcon("shell32.dll", -28, 35, 248, 32, 32, 0)
$bnClose = GUICtrlCreateButton("Beenden", 10, 234, 230, 56, 0x04000000)
GUICtrlSetFont(-1, 12, 400)

GUISetState(@SW_SHOW)
#endregion GUI CleanmgrPlus - Demo ###

#region Schleife CleanmgrPlus - Demo ###
While 1
	$msg = GUIGetMsg()
	Switch $msg
		Case -3, $bnClose
			ExitLoop
		Case $bnCl
			ShellExecute("cleanmgr.exe")
		Case $bnClPl
			Run(@ComSpec & " /c " & 'Cleanmgr /sageset:65535 & Cleanmgr /sagerun:65535', "", @SW_HIDE)
		Case $bnDefrag
			Switch @OSVersion
				Case "WIN_7", "WIN_VISTA"
					ShellExecute("dfrgui.exe")
				Case Else
					ShellExecute("dfrg.msc")
			EndSwitch
		Case $bnUpdate
			_UpdateCheck()
	EndSwitch
WEnd
#endregion Schleife CleanmgrPlus - Demo ###

#region Func CleanmgrPlus - Demo ###
Func _UpdateCheck()
	If MsgBox(262144 + 64 + 4, $title, $title & @CRLF _
			 & 'Die Datenträgerbereinigung aus dem Hause Microsoft wurde' & @TAB _
			 & @CRLF & 'hier stark erweitert und stellt, je nach Windowsversion,' _
			 & @CRLF & 'bis zu viermal mehr Optionen für die Bereinigung der' _
			 & @CRLF & 'Datenträger zur Verfügung, als in der Standardausgabe !' & @CRLF _
			 & @CRLF & 'Version :' & @CRLF & $version & $build & @CRLF & @CRLF & 'Autor :' _
			 & @CRLF & 'Ritzelrocker04' & @CRLF & "(www.AutoIt.de) und" & @CRLF _
			 & "(http://ritzelrocker04.bplaced.net/)" & @CRLF & @CRLF _
			 & "Weiter zum UpdateCheck ?") = 6 Then ShellExecute("http://ritzelrocker04.bplaced.net/")
EndFunc   ;==>_UpdateCheck
#endregion Func CleanmgrPlus - Demo ###
; Ende