; Events and messages
Global Const $GUI_EVENT_CLOSE			= -3
Global Const $GUI_EVENT_MINIMIZE		= -4
Global Const $GUI_EVENT_RESTORE			= -5
Global Const $GUI_EVENT_MAXIMIZE		= -6
Global Const $GUI_SHOW			= 16
Global Const $GUI_HIDE 			= 32
Global Const $GUI_ENABLE		= 64
Global Const $GUI_DISABLE		= 128
Global Const $GUI_UNCHECKED		= 4
Global Const $GUI_CHECKED		= 1
; Window Styles
Global Const $WS_TILED				= 0
Global Const $WS_OVERLAPPED 		= 0
Global Const $WS_MAXIMIZEBOX		= 0x00010000
Global Const $WS_MINIMIZEBOX		= 0x00020000
Global Const $WS_TABSTOP			= 0x00010000
Global Const $WS_GROUP				= 0x00020000
Global Const $WS_SIZEBOX			= 0x00040000
Global Const $WS_THICKFRAME			= 0x00040000
Global Const $WS_SYSMENU			= 0x00080000
Global Const $WS_BORDER				= 0x00800000
Global Const $WS_CAPTION			= 0x00C00000
Global Const $WS_OVERLAPPEDWINDOW	= 0x00CF0000
Global Const $WS_TILEDWINDOW		= 0x00CF0000
Global Const $WS_MAXIMIZE			= 0x01000000
Global Const $WS_CLIPCHILDREN		= 0x02000000
Global Const $WS_CLIPSIBLINGS		= 0x04000000
Global Const $WS_DISABLED 			= 0x08000000
Global Const $WS_VISIBLE			= 0x10000000
Global Const $WS_MINIMIZE			= 0x20000000
Global Const $WS_CHILD				= 0x40000000
Global Const $WS_POPUP				= 0x80000000
Global Const $WS_POPUPWINDOW		= 0x80880000
Global Const $DS_MODALFRAME 		= 0x80
Global Const $DS_SETFOREGROUND		= 0x00000200
Global Const $DS_CONTEXTHELP		= 0x00002000
; Window Extended Styles
Global Const $WS_EX_ACCEPTFILES			= 0x00000010
Global Const $WS_EX_MDICHILD			= 0x00000040
Global Const $WS_EX_APPWINDOW			= 0x00040000
Global Const $WS_EX_CLIENTEDGE			= 0x00000200
Global Const $WS_EX_CONTEXTHELP			= 0x00000400
Global Const $WS_EX_DLGMODALFRAME 		= 0x00000001
Global Const $WS_EX_LEFTSCROLLBAR 		= 0x00004000
Global Const $WS_EX_OVERLAPPEDWINDOW	= 0x00000300
Global Const $WS_EX_RIGHT				= 0x00001000
Global Const $WS_EX_STATICEDGE			= 0x00020000
Global Const $WS_EX_TOPMOST				= 0x00000008
Global Const $WS_EX_TRANSPARENT			= 0x00000020
Global Const $WS_EX_WINDOWEDGE			= 0x00000100
Global Const $WS_EX_LAYERED				= 0x00080000
Global Const $LVS_EX_FULLROWSELECT		= 0x00000020
; Label/Pic/Icon
Global Const $SS_CENTER			= 1
Global Const $SS_RIGHT			= 2
Global Const $SS_ICON			= 3
Global Const $SS_BLACKRECT		= 4
Global Const $SS_GRAYRECT		= 5
Global Const $SS_WHITERECT		= 6
Global Const $SS_BLACKFRAME		= 7
Global Const $SS_GRAYFRAME		= 8
Global Const $SS_WHITEFRAME		= 9
Global Const $SS_SIMPLE			= 11
Global Const $SS_LEFTNOWORDWRAP	= 12
Global Const $SS_BITMAP			= 15
Global Const $SS_ETCHEDHORZ		= 16
Global Const $SS_ETCHEDVERT		= 17
Global Const $SS_ETCHEDFRAME	= 18
Global Const $SS_NOPREFIX		= 0x0080
Global Const $SS_NOTIFY			= 0x0100
Global Const $SS_CENTERIMAGE	= 0x0200
Global Const $SS_RIGHTJUST		= 0x0400
Global Const $SS_SUNKEN			= 0x1000
; Button
Global Const $BS_BOTTOM			= 0x0800
Global Const $BS_CENTER			= 0x0300
Global Const $BS_DEFPUSHBUTTON	= 0x0001
Global Const $BS_LEFT			= 0x0100
Global Const $BS_MULTILINE		= 0x2000
Global Const $BS_PUSHBOX		= 0x000A
Global Const $BS_PUSHLIKE		= 0x1000
Global Const $BS_RIGHT			= 0x0200
Global Const $BS_RIGHTBUTTON	= 0x0020
Global Const $BS_TOP			= 0x0400
Global Const $BS_VCENTER		= 0x0C00
Global Const $BS_FLAT			= 0x8000
Global Const $BS_ICON			= 0x0040
Global Const $BS_BITMAP			= 0x0080
; TreeView
Global Const $TVS_HASBUTTONS     	= 0x0001
Global Const $TVS_HASLINES       	= 0x0002
Global Const $TVS_LINESATROOT    	= 0x0004
Global Const $TVS_DISABLEDRAGDROP	= 0x0010
Global Const $TVS_SHOWSELALWAYS		= 0x0020
Global Const $TVS_NOTOOLTIPS		= 0x0080
Global Const $TVS_CHECKBOXES		= 0x0100
Global Const $TVS_TRACKSELECT		= 0x0200
Global Const $TVS_SINGLEEXPAND		= 0x0400
Global Const $TVS_FULLROWSELECT		= 0x1000
Global Const $TVS_NOSCROLL			= 0x2000
Global Const $TVS_NONEVENHEIGHT		= 0x4000
; Graphic
Global Const $GUI_GR_CLOSE		= 1
Global Const $GUI_GR_LINE		= 2
Global Const $GUI_GR_BEZIER		= 4
Global Const $GUI_GR_MOVE		= 6
Global Const $GUI_GR_COLOR		= 8
Global Const $GUI_GR_RECT		= 10
Global Const $GUI_GR_ELLIPSE	= 12
Global Const $GUI_GR_PIE		= 14
Global Const $GUI_GR_DOT		= 16
Global Const $GUI_GR_PIXEL		= 18
Global Const $GUI_GR_HINT		= 20
Global Const $GUI_GR_REFRESH	= 22
Global Const $GUI_GR_PENSIZE	= 24

Global Const $GUI_SS_DEFAULT_GUI		= BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU)

;-----------------------------------------------------------------------------
Dim $main_GUI
Dim $Exit_button
Dim $Back_button
Dim $Info_button
Dim $i386
Dim $tools
Dim $oem_apps
Dim $oem_ms_apps
Dim $oem_treiber
Dim $software
Dim $serial
Dim $docs
Dim $sys32
Dim $office
Dim $gui_width
Dim $gui_height
Dim $gui_child_height
Dim $treeview

Global $Drive, $DriveTyp, $Uninstall_Path


;-----------------------------------------------------------------------------

;############################################################################

; Fenster - Grösse:
;------------------
$gui_width = 800
$gui_height = 600
$gui_child_height = $gui_height - 42

; Startsound:
;------------
SoundPlay(@ScriptDir & "\Setup\Button_Sound\winSpaceSysStart.wav")

; Definieren des TrayIcons:
;--------------------------
TraySetIcon(@ScriptDir & "\Setup\Pics\install.ico"); Funktioniert nur ab Version 3.1.1.5 !!!!

;#############################################################################


;*******************************************************************************************

; Definieren der GUI-Fenster:
; ===========================

;*******************************************************************************************


; Main-Window mit Exit-, Back-,Passwort-,Info- und Version-Button:
;--------------------------------------------------------
$main_GUI = GUICreate("",$gui_width,$gui_height,-1,-1,BitOr($GUI_SS_DEFAULT_GUI,$WS_CLIPSIBLINGS))
GUISetBkColor(0xBAB7B7)
$Exit_button = GUICtrlCreateButton("Exit",$gui_width - 90,$gui_height - 36,70,30)
GUICtrlSetTip(-1,"Programm beenden?")
GUICtrlSetCursor(-1, 0)
$Back_button = GUICtrlCreateButton("Zurück",$gui_width - 170,$gui_height - 36,70,30)
GUICtrlSetTip(-1,"Zum Hauptauswahl-Fenster zurückkehren?")
GUICtrlSetCursor(-1, 0)
$Info_button = GUICtrlCreateButton(Chr(169),$gui_width - 790,$gui_height - 30,15,15)
GUICtrlSetTip(-1,"Info")
GUICtrlSetCursor(-1, 4)
$Serial_button = GUICtrlCreateButton(Chr(174),$gui_width - 770,$gui_height - 30,15,15)
GUICtrlSetTip(-1,"Aktuelle Windows Seriennummer auslesen?")
GUICtrlSetCursor(-1, 4)
$Haupt_Drive_button = GUICtrlCreateButton(Chr(164),$gui_width - 750,$gui_height - 30,15,15)
GUICtrlSetTip(-1,"Festplatten und aktuellen Speicherplatz anzeigen?")
GUICtrlSetCursor(-1, 4)
$Passwort_button = GUICtrlCreateButton("Passwort",$gui_width - 250,$gui_height - 36,70,30)
GUICtrlSetTip(-1,"Passwort?")
GUICtrlSetCursor(-1, 0)
GUISetState()

;##########################################################################################

; Hauptfenster für die Auswahl von Windows, Office u. Programme:
;---------------------------------------------------------------
Global $Haupt_GUI = GUICreate("",$gui_width,$gui_child_height,0,0,$WS_CHILD,-1,$main_GUI)
$Pic_Haupt = GUICtrlCreatePic(@ScriptDir & "\Setup\Pics\main.jpg",-1,-1, 800, 600, $WS_EX_TRANSPARENT)
DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $Haupt_GUI, "int", 1000, "long", 0x00040010 );explode
Sleep(1000)
GUICtrlSetColor(-1,0x000000)
GUICtrlSetFont(-1,14,600)

; Esrtellen der Buttons für das Hauptfenster:
;--------------------------------------------
Global $Haupt_Win_button = GUICtrlCreateButton("",($gui_width - 755) / 2,$gui_child_height - 394,33,33, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\button1.bmp")
GUICtrlSetTip(-1,"Zum Windows Installations-Fenster wechseln?")
GUICtrlSetCursor(-1, 0)
Global $Haupt_Office_button = GUICtrlCreateButton("",($gui_width - 755) / 2,$gui_child_height - 286,33,33, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\button1.bmp")
GUICtrlSetTip(-1,"Zum Office Installations-Fenster wechseln?")
GUICtrlSetCursor(-1, 0)
Global $Haupt_Progs_button = GUICtrlCreateButton("",($gui_width - 755) / 2,$gui_child_height - 178,33,33, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\button1.bmp")
GUICtrlSetTip(-1,"Zum Programm Installations-Fenster wechseln?")
GUICtrlSetCursor(-1, 0)
GUICtrlSetState ($Back_button, $GUI_DISABLE)
GUISetState()

;############################################################################################

; Windows - Installationsfenster:
;------------------------------
Global $Win_GUI = GUICreate("",$gui_width,$gui_child_height,0,0,$WS_CHILD,-1,$main_GUI)
$Pic_Win = GUICtrlCreatePic(@ScriptDir & "\Setup\Pics\windows.jpg",-1,-1, 800, 600, $WS_EX_TRANSPARENT )
GUICtrlSetColor(-1,0x000000)
GUICtrlSetFont(-1,14,600)

; Erstellen der Buttons:
;-----------------------
Global $Win_button1 = GUICtrlCreateButton(">>",($gui_width - 735) / 2,$gui_child_height - 355,35,20)
GUICtrlSetCursor(-1, 0)
Global $Win_button2 = GUICtrlCreateButton(">>",($gui_width - 735) / 2,$gui_child_height - 315,35,20)
GUICtrlSetCursor(-1, 0)
Global $Win_button3 = GUICtrlCreateButton(">>",($gui_width - 735) / 2,$gui_child_height - 275,35,20)
GUICtrlSetCursor(-1, 0)
Global $Win_button4 = GUICtrlCreateButton(">>",($gui_width - 735) / 2,$gui_child_height - 235,35,20)
GUICtrlSetCursor(-1, 0)
Global $Win_button5 = GUICtrlCreateButton(">>",($gui_width - 735) / 2,$gui_child_height - 195,35,20)
GUICtrlSetCursor(-1, 0)
Global $Win_button6 = GUICtrlCreateButton(">>",($gui_width - 735) / 2,$gui_child_height - 155,35,20)
GUICtrlSetCursor(-1, 0)
Global $Win_button7 = GUICtrlCreateButton(">>",($gui_width - 735) / 2,$gui_child_height - 115,35,20)
GUICtrlSetCursor(-1, 0)
Global $Win_button8 = GUICtrlCreateButton(">>",($gui_width - 735) / 2,$gui_child_height - 75,35,20)
GUICtrlSetCursor(-1, 0)

;#############################################################################################

; Office - Installationsfenster:
;-------------------------------
Global $Office_GUI = GUICreate("",$gui_width,$gui_child_height,0,0,$WS_CHILD,-1,$main_GUI)
$Pic_Office = GUICtrlCreatePic(@ScriptDir & "\Setup\Pics\office.jpg",-1,-1, 800, 600, $WS_EX_TRANSPARENT )
GUICtrlSetFont(-1,14,600)

;Erstellen der Labels:
;---------------------
Global $Office_Label1 = GUICtrlCreateLabel("Office 2007",($gui_width - 430) / 2,$gui_child_height - 330,200,30)
GUICtrlSetBkColor(-1,0xFFFFFF)
GUICtrlSetFont (-1,20, 400, 2)
Global $Office_Label2 = GUICtrlCreateLabel("Open Office",($gui_width - 430) / 2,$gui_child_height - 230,200,30)
GUICtrlSetBkColor(-1,0xFFFFFF)
GUICtrlSetFont (-1,20, 400, 2)

; Erstellen der Buttons:
;-----------------------
Global $Office_button1 = GUICtrlCreateButton("",($gui_width - 600) / 2,$gui_child_height - 345,70,70, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\Office 2007.bmp")
GUICtrlSetCursor(-1, 0)
Global $Office_button2 = GUICtrlCreateButton("",($gui_width - 600) / 2,$gui_child_height - 245,70,70, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\OpenOffice.bmp")
GUICtrlSetCursor(-1, 0)

;###################################################################################################

; Software - Installationsfenster:
;---------------------------------
Global $Progs_GUI = GUICreate("",$gui_width,$gui_child_height,0,0,$WS_CHILD,-1,$main_GUI)
$Pic_Progs = GUICtrlCreatePic(@ScriptDir & "\Setup\Pics\software.jpg",-1,-1, 800, 600, $WS_EX_TRANSPARENT )
GUICtrlSetFont(-1,14,600)

; Erstellen der Buttons:
;-----------------------
#cs
Global $Progs_button4 = GUICtrlCreateButton("Alles auswählen",($gui_width -600) / 2,$gui_child_height - 38,90,30)
GUICtrlSetTip(-1,"Alle Programme auwählen?")
GUICtrlSetCursor(-1, 0)
Global $Progs_button5 = GUICtrlCreateButton("Auswahl löschen",($gui_width -400) / 2,$gui_child_height - 38,90,30)
GUICtrlSetTip(-1,"Alle gewählten Programme wieder entfernen?")
GUICtrlSetCursor(-1, 0)
#ce
Global $Progs_button6 = GUICtrlCreateButton("Installieren",($gui_width -200) / 2,$gui_child_height - 38,90,30)
GUICtrlSetTip(-1,"Die ausgewählten Programme installieren?")
GUICtrlSetCursor(-1, 0)

$expand = 0
$text1 = "Ausklappen"
$text2 = "Einklappen"
Global $Btn_expand = GUICtrlCreateButton($text1,($gui_width -600) / 2,$gui_child_height - 38,90,30)
GUICtrlSetTip(-1,"Ausklappen und Einklappen?")
GUICtrlSetCursor(-1, 0)
GUICtrlSetOnEvent(-1, "_expand")

$switch = 0
$text3 = "Alle wählen"
$text4 = "Wahl aufheben"
Global $Btn_all = GUICtrlCreateButton($text3,($gui_width -400) / 2,$gui_child_height - 38,90,30)
GUICtrlSetTip(-1,"Alle wählen und Wahl aufheben?")
GUICtrlSetCursor(-1, 0)
GUICtrlSetOnEvent(-1, "_all")

;Erstellen des TreeView:
;-----------------------
Global $nTV = GUICtrlCreateTreeView (($gui_width -600) / 2,$gui_child_height - 370,300,215,BitOr($TVS_HASBUTTONS,$TVS_HASLINES,$TVS_LINESATROOT,$TVS_DISABLEDRAGDROP,$TVS_SHOWSELALWAYS,$TVS_CHECKBOXES),$WS_EX_TRANSPARENT  )
GUICtrlSetBkColor(-1,0xFFFFFF)
GUICtrlSetFont (-1,10, 400, 2)
GUICtrlSetCursor(-1, 0)
								
;Erstellen der TreeView-Labels und Icons:
;----------------------------------------
$nItem1 = GUICtrlCreateTreeViewItem("Messenger", $nTV)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetImage(-1, "explorer.exe", 0)
$nItem2 = GUICtrlCreateTreeViewItem("Internet", $nTV)
GUICtrlSetColor(-1, 0xFF00FF)
$nItem3 = GUICtrlCreateTreeViewItem("Tools", $nTV)
GUICtrlSetColor(-1, 0xFF8C00)
$nItem4 = GUICtrlCreateTreeViewItem("Mediaplayer", $nTV)
GUICtrlSetColor(-1, 0x00BFFF)
$nSubItem1 = GUICtrlCreateTreeViewItem("InterCafe Client", $nItem1)
GUICtrlSetImage(-1, "regedit.exe", 0)
$nSubItem2 = GUICtrlCreateTreeViewItem("ICQ 5.1", $nItem1)
GUICtrlSetImage(-1, "regedit.exe", 0)
$nSubItem3 = GUICtrlCreateTreeViewItem("Opera", $nItem2)
GUICtrlSetImage(-1, "regedit.exe", 0)
$nSubItem4 = GUICtrlCreateTreeViewItem("Mozilla Firefox 2", $nItem2)
GUICtrlSetImage(-1, "regedit.exe", 0)
$nSubItem5 = GUICtrlCreateTreeViewItem("Adobe Reader", $nItem3)
GUICtrlSetImage(-1, "regedit.exe", 0)
$nSubItem6 = GUICtrlCreateTreeViewItem("WinRar", $nItem3)
GUICtrlSetImage(-1, "regedit.exe", 0)
$nSubItem7 = GUICtrlCreateTreeViewItem("VLC Player", $nItem4)
GUICtrlSetImage(-1, "regedit.exe", 0)
$nSubItem8 = GUICtrlCreateTreeViewItem("QuickTime Player", $nItem4)
GUICtrlSetImage(-1, "regedit.exe", 0)
$nSubItem9 = GUICtrlCreateTreeViewItem("Media Player 11", $nItem4)
GUICtrlSetImage(-1, "regedit.exe", 0)

Func _expand()
	If $expand = 0 Then
		;_GUICtrlTreeViewExpand($nTV)
		$expand = 1
		GUICtrlSetData($Btn_expand, $text2)
	Else
		;_GUICtrlTreeViewExpand($nTV, 0)
		$expand = 0
		GUICtrlSetData($Btn_expand, $text1)
	EndIf
EndFunc

Func _all()		
	If $switch = 0 Then
		;SelectFull()
		$switch = 1
		GUICtrlSetData($Btn_all, $text4)
	Else
		;ReSelect()
		$switch = 0
		GUICtrlSetData($Btn_all, $text3)
	EndIf
EndFunc				

;####################################################################################################

; Passwort - Installationsfenster:
;---------------------------------
Global $Passwort_GUI = GUICreate("",$gui_width,$gui_child_height,0,0,$WS_CHILD,-1,$main_GUI)
$Pic_Haupt = GUICtrlCreatePic(@ScriptDir & "\Setup\Pics\uninstall.jpg",-1,-1, 800, 600)
GuiCtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetFont(-1,14,600)

;Erstellen der Label:
;----------------------------
Global $Passwort_Label1 = GUICtrlCreateLabel ("AutoIt",($gui_width -680) / 2,$gui_child_height - 392 , 350, 20)
GUICtrlSetBkColor(-1,0xd4d4d4)
Global $Passwort_Label2 = GUICtrlCreateLabel ("AutoPlay 6",($gui_width -680) / 2,$gui_child_height - 342 , 350, 20)
GUICtrlSetBkColor(-1,0xd4d4d4)
Global $Passwort_Label3 = GUICtrlCreateLabel ("Reg Rapper",($gui_width -680) / 2,$gui_child_height - 292 , 350, 20)
GUICtrlSetBkColor(-1,0xd4d4d4)
Global $Passwort_Label4 = GUICtrlCreateLabel ("Reg Shot",($gui_width -680) / 2,$gui_child_height - 242 , 350, 20)
GUICtrlSetBkColor(-1,0xd4d4d4)
Global $Passwort_Label5 = GUICtrlCreateLabel ("ResHacker",($gui_width -680) / 2,$gui_child_height - 192 , 350, 20)
GUICtrlSetBkColor(-1,0xd4d4d4)
Global $Passwort_Label6 = GUICtrlCreateLabel ("CMenü",($gui_width -680) / 2,$gui_child_height - 142 , 350, 20)
GUICtrlSetBkColor(-1,0xd4d4d4)

; Erstellen der Buttons:
;-----------------------
Global $passwort_button1 = GUICtrlCreateButton("",($gui_width - 750) / 2,$gui_child_height - 400,30,30, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\autoit.bmp")
GUICtrlSetCursor(-1, 0)
Global $passwort_button2 = GUICtrlCreateButton("",($gui_width - 750) / 2,$gui_child_height - 350,30,30, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\autoplay6.bmp")
GUICtrlSetCursor(-1, 0)
Global $passwort_button3 = GUICtrlCreateButton("",($gui_width - 750) / 2,$gui_child_height - 300,30,30, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\regrap.bmp")
GUICtrlSetCursor(-1, 0)
Global $passwort_button4 = GUICtrlCreateButton("",($gui_width - 750) / 2,$gui_child_height - 250,30,30, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\regshot.bmp")
GUICtrlSetCursor(-1, 0)
Global $passwort_button5 = GUICtrlCreateButton("",($gui_width - 750) / 2,$gui_child_height - 200,30,30, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\reshacker.bmp")
GUICtrlSetCursor(-1, 0)
Global $passwort_button6 = GUICtrlCreateButton("",($gui_width - 750) / 2,$gui_child_height - 150,30,30, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\cmenü.bmp")
GUICtrlSetCursor(-1, 0)
Global $passwort_button7 = GUICtrlCreateButton("",($gui_width - 750) / 2,$gui_child_height - 100,30,30, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\TuneUp 2007.bmp")
GUICtrlSetCursor(-1, 0)
Global $passwort_button8 = GUICtrlCreateButton("",($gui_width - 200) / 2,$gui_child_height - 400,30,30, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\TuneUp 2007.bmp")
GUICtrlSetCursor(-1, 0)
Global $passwort_button9 = GUICtrlCreateButton("",($gui_width - 200) / 2,$gui_child_height - 350,30,30, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\TuneUp 2007.bmp")
GUICtrlSetCursor(-1, 0)
Global $passwort_button10 = GUICtrlCreateButton("",($gui_width - 200) / 2,$gui_child_height - 300,30,30, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\TuneUp 2007.bmp")
GUICtrlSetCursor(-1, 0)
Global $passwort_button11 = GUICtrlCreateButton("",($gui_width - 200) / 2,$gui_child_height - 250,30,30, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\TuneUp 2007.bmp")
GUICtrlSetCursor(-1, 0)
Global $passwort_button12 = GUICtrlCreateButton("",($gui_width - 200) / 2,$gui_child_height - 200,30,30, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\TuneUp 2007.bmp")
GUICtrlSetCursor(-1, 0)
Global $passwort_button13 = GUICtrlCreateButton("",($gui_width - 200) / 2,$gui_child_height - 150,30,30, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\TuneUp 2007.bmp")
GUICtrlSetCursor(-1, 0)
Global $passwort_button14 = GUICtrlCreateButton("",($gui_width - 200) / 2,$gui_child_height - 100,30,30, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\TuneUp 2007.bmp")
GUICtrlSetCursor(-1, 0)
Global $passwort_button15 = GUICtrlCreateButton("",($gui_width - -350) / 2,$gui_child_height - 400,30,30, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\TuneUp 2007.bmp")
GUICtrlSetCursor(-1, 0)
Global $passwort_button16 = GUICtrlCreateButton("",($gui_width - -350) / 2,$gui_child_height - 350,30,30, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\TuneUp 2007.bmp")
GUICtrlSetCursor(-1, 0)
Global $passwort_button17 = GUICtrlCreateButton("",($gui_width - -350) / 2,$gui_child_height - 300,30,30, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\TuneUp 2007.bmp")
GUICtrlSetCursor(-1, 0)
Global $passwort_button18 = GUICtrlCreateButton("",($gui_width - -350) / 2,$gui_child_height - 250,30,30, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\TuneUp 2007.bmp")
GUICtrlSetCursor(-1, 0)
Global $passwort_button19 = GUICtrlCreateButton("",($gui_width - -350) / 2,$gui_child_height - 200,30,30, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\TuneUp 2007.bmp")
GUICtrlSetCursor(-1, 0)
Global $passwort_button20 = GUICtrlCreateButton("",($gui_width - -350) / 2,$gui_child_height - 150,30,30, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\TuneUp 2007.bmp")
GUICtrlSetCursor(-1, 0)
Global $passwort_button21 = GUICtrlCreateButton("",($gui_width - -350) / 2,$gui_child_height - 100,30,30, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\TuneUp 2007.bmp")
GUICtrlSetCursor(-1, 0)

;###################################################################################################

; Drive Kapazität-Fenster:
;-------------------------

Global $Drive_GUI = GUICreate("",$gui_width,$gui_child_height,0,0,$WS_CHILD,-1,$main_GUI)
$Pic_Haupt = GUICtrlCreatePic(@ScriptDir & "\Setup\Pics\drive.jpg",-1,-1, 800, 600, $WS_EX_TRANSPARENT )
GUICtrlSetFont(-1,14,600)

; Erstellen der Labels:
;----------------------
Global $Drive_Label = GuiCtrlCreateLabel("", 200, $gui_child_height - 400, 400, 25, $SS_CENTER )
GUICtrlSetBkColor(-1,0xd4d4d4)
GUICtrlSetFont (-1,14, 400, 2)
GuiCtrlCreateLabel("Drive:", 25, $gui_child_height - 355, 40, 20)
GUICtrlSetBkColor(-1,0xd4d4d4)
GUICtrlSetFont (-1,10, 400, 2)
GuiCtrlCreateLabel("Bezeichnung:", 70, $gui_child_height - 355, 100, 20)
GUICtrlSetBkColor(-1,0xd4d4d4)
GUICtrlSetFont (-1,10, 400, 2)
GuiCtrlCreateLabel("Ansicht:", 175, $gui_child_height - 355, 200, 20)
GUICtrlSetBkColor(-1,0xd4d4d4)
GUICtrlSetFont (-1,10, 400, 2)
GuiCtrlCreateLabel("File Sys: ", 380, $gui_child_height - 355, 70, 20)
GUICtrlSetBkColor(-1,0xd4d4d4)
GUICtrlSetFont (-1,10, 400, 2)
GuiCtrlCreateLabel("Gesammt:(GB) ", 455, $gui_child_height - 355, 85, 20)
GUICtrlSetBkColor(-1,0xd4d4d4)
GUICtrlSetFont (-1,10, 400, 2)
GuiCtrlCreateLabel("Besetzt:(GB) ", 545, $gui_child_height - 355, 80, 20)
GUICtrlSetBkColor(-1,0xd4d4d4)
GUICtrlSetFont (-1,10, 400, 2)
GuiCtrlCreateLabel("Frei:(GB) ", 630, $gui_child_height - 355, 80, 20)
GUICtrlSetBkColor(-1,0xd4d4d4)
GUICtrlSetFont (-1,10, 400, 2)
GuiCtrlCreateLabel("Status:", 715, $gui_child_height - 355, 70, 20)
GUICtrlSetBkColor(-1,0xd4d4d4)
GUICtrlSetFont (-1,10, 400, 2)

;Erstellen des Rasters:
;----------------------
GUICtrlCreateLine(25, $gui_child_height - 333, 782, $gui_child_height - 333, 5, "0x000000")
GUICtrlCreateLine(66, $gui_child_height - 355, 66, $gui_child_height - 331, 3, "0x000000")
GUICtrlCreateLine(171, $gui_child_height - 355, 171, $gui_child_height - 331, 3, "0x000000")
GUICtrlCreateLine(376, $gui_child_height - 355, 376, $gui_child_height - 331, 3, "0x000000")
GUICtrlCreateLine(451, $gui_child_height - 355, 451, $gui_child_height - 331, 3, "0x000000")
GUICtrlCreateLine(541, $gui_child_height - 355, 541, $gui_child_height - 331, 3, "0x000000")
GUICtrlCreateLine(626, $gui_child_height - 355, 626, $gui_child_height - 331, 3, "0x000000")
GUICtrlCreateLine(711, $gui_child_height - 355, 711, $gui_child_height - 331, 3, "0x000000")

; Erstellen der Buttons:
;-----------------------
Global $Drive_button1 = GUICtrlCreateButton("", 25,$gui_child_height - 48,36,36, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\dfrg.bmp")
GUICtrlSetTip(-1,"Datenträger defragmentieren?")
GUICtrlSetCursor(-1, 0)
Global $Drive_button2 = GUICtrlCreateButton("", 71,$gui_child_height - 48,36,36, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\cleanmgr.bmp")
GUICtrlSetTip(-1,"Datenträger bereinigen?")
GUICtrlSetCursor(-1, 0)
Global $Drive_button3 = GUICtrlCreateButton("", 117,$gui_child_height - 48,36,36, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\ntbackup.bmp")
GUICtrlSetTip(-1,"BackUp erstellen?")
GUICtrlSetCursor(-1, 0)
Global $Drive_button4 = GUICtrlCreateButton("", 163,$gui_child_height - 48,36,36, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\diskmgmt.bmp")
GUICtrlSetTip(-1,"Diskmanagement starten?")
GUICtrlSetCursor(-1, 0)
Global $Drive_button5 = GUICtrlCreateButton("", 209,$gui_child_height - 48,36,36, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\restore.bmp")
GUICtrlSetTip(-1,"Systemwiederherstellung starten?")
GUICtrlSetCursor(-1, 0)
$Key1 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRestore", "DisableSR")
$Key2 = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\srservice", "Start")
If $Key1 == "1" And $Key2 == "4" then
	GUICtrlSetState (-1, $GUI_DISABLE)
Else
	GUICtrlSetState (-1, $GUI_ENABLE)
EndIf
Global $Drive_button6 = GUICtrlCreateButton("", 255,$gui_child_height - 48,36,36, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\compmgmt.bmp")
GUICtrlSetTip(-1,"Computerverwaltung starten?")
GUICtrlSetCursor(-1, 0)
Global $Drive_button7 = GUICtrlCreateButton("", 301,$gui_child_height - 48,36,36, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\devmgmt.bmp")
GUICtrlSetTip(-1,"Gerätemanager starten?")
GUICtrlSetCursor(-1, 0)
Global $Drive_button8 = GUICtrlCreateButton("", 347,$gui_child_height - 48,36,36, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\dxdiag.bmp")
GUICtrlSetTip(-1,"DircetX Diagnoseprogramm starten?")
GUICtrlSetCursor(-1, 0)
Global $Drive_button9 = GUICtrlCreateButton("", 393,$gui_child_height - 48,36,36, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\regedt32.bmp")
GUICtrlSetTip(-1,"Registrierungs-Editor starten?")
GUICtrlSetCursor(-1, 0)
Global $Drive_button10 = GUICtrlCreateButton("", 439,$gui_child_height - 48,36,36, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\explorer.bmp")
GUICtrlSetTip(-1,"Windows Explorer starten?")
GUICtrlSetCursor(-1, 0)
Global $Drive_button11 = GUICtrlCreateButton("", 485,$gui_child_height - 48,36,36, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\cmd.bmp")
GUICtrlSetTip(-1,"Eingabeaufforderung starten?")
GUICtrlSetCursor(-1, 0)
Global $Drive_button12 = GUICtrlCreateButton("", 531,$gui_child_height - 48,36,36, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\odbcad32.bmp")
GUICtrlSetTip(-1,"Microsoft DATA Access ODBC Administrator starten?")
GUICtrlSetCursor(-1, 0)
Global $Drive_button13 = GUICtrlCreateButton("", 577,$gui_child_height - 48,36,36, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\perfmon.bmp")
GUICtrlSetTip(-1,"Performance Monitor starten?")
GUICtrlSetCursor(-1, 0)
Global $Drive_button14 = GUICtrlCreateButton("", 623,$gui_child_height - 48,36,36, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\services.bmp")
GUICtrlSetTip(-1,"Windows Dienste starten?")
GUICtrlSetCursor(-1, 0)
Global $Drive_button15 = GUICtrlCreateButton("", 669,$gui_child_height - 48,36,36, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\control.bmp")
GUICtrlSetTip(-1,"Windows Systemsteuerung starten?")
GUICtrlSetCursor(-1, 0)
Global $Version_button = GUICtrlCreateButton("", 715,$gui_child_height - 48,36,36, $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\Setup\Button_Pics\info.bmp")
GUICtrlSetTip(-1,"Infos zum PC anzeigen")
GUICtrlSetCursor(-1, 0)

;####################################################################################################

; Definieren der Button Anweisungen:

;#####################################################################################################

; Anweisungen für die Buttons:
;-----------------------------
While 1
    $msg = GUIGetMsg(1)
    Select
        ;Programm beenden:
		Case $msg[0] = $GUI_EVENT_CLOSE Or $msg[0] = $Exit_button
            SoundPlay(@ScriptDir & "\Setup\Button_Sound\winSpaceSysExit.wav")
            DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $main_GUI, "int", 1000, "long", 0x00050010 );implode
            ExitLoop

        ;Zu den einzelnen Fenstern wechseln:
        ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

        ;Zum Windows Fenster wechseln:
		Case $msg[0] = $Haupt_Win_button
			GUICtrlSetImage ($Haupt_Win_button, @ScriptDir & "\Setup\Button_Pics\button3.bmp")
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\Click1.wav")
			Sleep(300)
			_Switch($Haupt_GUI, $Win_GUI)
			GUICtrlSetImage ($Haupt_Win_button, @ScriptDir & "\Setup\Button_Pics\button1.bmp")
			$Ziel_GUI = $Win_GUI
			GUICtrlSetState ($Back_button, $GUI_ENABLE)
			GUICtrlSetState ($Passwort_button, $GUI_DISABLE)
			
        ;Zum Office Fenster wechseln:
		Case $msg[0] = $Haupt_Office_button
            GUICtrlSetImage ($Haupt_Office_button, @ScriptDir & "\Setup\Button_Pics\button3.bmp")
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\Click1.wav")
			Sleep(300)
            _Switch($Haupt_GUI, $Office_GUI)
			GUICtrlSetImage ($Haupt_Office_button, @ScriptDir & "\Setup\Button_Pics\button1.bmp")
			$Ziel_GUI = $Office_GUI
			GUICtrlSetState ($Back_button, $GUI_ENABLE)
			GUICtrlSetState ($Passwort_button, $GUI_DISABLE)

        ;Zum Software Fenster wechseln:
		Case $msg[0] = $Haupt_Progs_button
            GUICtrlSetImage ($Haupt_Progs_button, @ScriptDir & "\Setup\Button_Pics\button3.bmp")
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\Click1.wav")
			Sleep(300)
            _Switch($Haupt_GUI, $Progs_GUI)
			GUICtrlSetImage ($Haupt_Progs_button, @ScriptDir & "\Setup\Button_Pics\button1.bmp")
			$Ziel_GUI = $Progs_GUI
			GUICtrlSetState ($Back_button, $GUI_ENABLE)
			GUICtrlSetState ($Passwort_button, $GUI_DISABLE)

		;Zum Passwort Fenster wechseln:
		Case  $msg[0] = $Passwort_button
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\Click1.wav")                                              
			$passwd = InputBox("Security Check", "Enter your password.", "", "*")                                  ;Passwortabfrage
		    if $passwd = ("") then	                                                                               ;Passwort
			 _Switch($Haupt_GUI, $Passwort_GUI)
			 $Ziel_GUI = $Passwort_GUI
			 GUICtrlSetState ($Back_button, $GUI_ENABLE)
			 GUICtrlSetState ($Passwort_button, $GUI_DISABLE)
			else
			 MsgBox(16, "", "Falsches" & @CRLF & "Passwort", 10)                                                   ;Falsches PW
			EndIf
			
			
		;Zurück zum Hauptmenü:
		Case $msg[0] = $Back_button
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\Click1.wav")
			_Switch($Ziel_GUI, $Haupt_GUI)
			GUICtrlSetState ($Back_button, $GUI_DISABLE)
			GUICtrlSetState ($Passwort_button, $GUI_ENABLE)

       ;Zum Drive-Kapazitätsfenster wechseln:
        Case $msg[0] = $Haupt_Drive_button
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\Click1.wav")
			_Switch($Haupt_GUI, $Drive_GUI)
			_DriveStatus("FIXED", "Lokale Festplatten:")
			$Ziel_GUI = $Drive_GUI
			GUICtrlSetState ($Back_button, $GUI_ENABLE)
			GUICtrlSetState ($Passwort_button, $GUI_DISABLE)
			
;#####################################################################################################

        ;Die einzelnen Buttons:
        ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

        ;Info Button:
        Case $msg[0] = $Info_button
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\High1.wav")
			MsgBox(64, "Info", "" &@Lf& "" &@Lf& "" &@Lf& "© 2007 by xxx", 10)                                               ;Info

		;Serial Button:
		Case $msg[0] = 	$Serial_button
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\High1.wav")
			Dim $Bin
			$Bin = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "DigitalProductID")
			DecodeProductKey($Bin)
			MsgBox(64,"Aktuelle Seriennummer:","Ihre aktuelle Windows Seriennummer lautet:" &@Lf& "" &@Lf& $Result, 15)
            $Result = ""
			
        ;Version Button:
		Case $msg[0] = $Version_button
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\High1.wav")
			_Version()
			
			
			
		Case  $msg[0] = $Btn_expand
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\winSpaceDefault.wav")
			_expand()	
			
			
			
#cs
		;Alles Auswählen Button:
		Case  $msg[0] = $Progs_button4
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\winSpaceDefault.wav")
			_checked()
			
        ;Auswahl löschen Button:
		Case  $msg[0] = $Progs_button5
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\winSpaceDefault.wav")
			_unchecked()
			
		Case  $msg[0] = $Brennen
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\winSpaceDefault.wav")
			_brennchecked()
			
		;Installieren Button:
		Case  $msg[0] = $Progs_button6
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\winSpaceDefault.wav")
			install ( )
#ce			
;#####################################################################################################

		;Drive optionen ausführen:
		;-------------------------

        ;Defragmentierung:
		Case  $msg[0] = $Drive_button1
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\High1.wav")
			$defrag = @WindowsDir & "\System32\dfrg.msc"
			RunDos($defrag)

		;Datenträgerbereinigung:
		Case  $msg[0] = $Drive_button2
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\High1.wav")
			$cleanmgr = @WindowsDir & "\System32\cleanmgr.exe"
			Run($cleanmgr)

		;BackUp erstellen:
		Case  $msg[0] = $Drive_button3
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\High1.wav")
			$backup = @WindowsDir & "\System32\ntbackup.exe"
			Run($backup)

		;Diskmanagement starten:
		Case  $msg[0] = $Drive_button4
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\High1.wav")
			$diskmgmt = @WindowsDir & "\System32\diskmgmt.msc"
			RunDOS($diskmgmt)

		;systemwiederherstellung starten:
		Case  $msg[0] = $Drive_button5
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\High1.wav")
			$restore = @WindowsDir & "\System32\Restore\rstrui.exe"
			;MsgBox(0, "Info", $Key1 &@lf& $Key2)
			Run($restore)

		;Computerverwaltung starten:
		Case  $msg[0] = $Drive_button6
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\High1.wav")
			$compmgmt = @WindowsDir & "\System32\compmgmt.msc"
			RunDOS($compmgmt)

		;Gerätemanager starten:
		Case  $msg[0] = $Drive_button7
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\High1.wav")
			$devmgmt = @WindowsDir & "\System32\devmgmt.msc"
			RunDOS($devmgmt)

		;DirectX Diagnoseprogramm starten:
		Case  $msg[0] = $Drive_button8
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\High1.wav")
			$dxdiag = @WindowsDir & "\System32\dxdiag.exe"
			Run($dxdiag)

		;Registrierungs-Editor starten:
		Case  $msg[0] = $Drive_button9
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\High1.wav")
			$regedt32 = @WindowsDir & "\System32\regedt32.exe"
			Run($regedt32)

		;Explorer starten:
		Case  $msg[0] = $Drive_button10
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\High1.wav")
			$explorer = @WindowsDir & "\explorer.exe"
			Run($explorer)

		;CMD starten:
		Case  $msg[0] = $Drive_button11
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\High1.wav")
			$cmd = @WindowsDir & "\System32\cmd.exe"
			Run($cmd)

		;Microsoft DATA Access ODBC:
		Case  $msg[0] = $Drive_button12
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\High1.wav")
			$odbc = @WindowsDir & "\System32\odbcad32.exe"
			Run($odbc)

		;Performance Monitor starten:
		Case  $msg[0] = $Drive_button13
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\High1.wav")
			$perfmon = @WindowsDir & "\System32\perfmon.exe"
			Run($perfmon)

		;Windows Dienste starten:
		Case  $msg[0] = $Drive_button14
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\High1.wav")
			$services = @WindowsDir & "\System32\services.msc"
			RunDOS($services)

		;Systemsteuerung starten:
		Case  $msg[0] = $Drive_button15
			SoundPlay(@ScriptDir & "\Setup\Button_Sound\High1.wav")
			$control = @WindowsDir & "\System32\control.exe"
			Run($control)

    EndSelect
WEnd

GUIDelete()
$array = 0

Exit


;*******************************************************************************************************************************

; Definieren der verschiedenen Funktionen:
;=========================================

;*******************************************************************************************************************************


;##################################################################################################################
;---------------------------------
; Funktion um Fenster zu wechseln:
;---------------------------------
Func _Switch($Ausgang, $ziel)
	GUISetState(@SW_HIDE,$Ausgang)
	GUISetState(@SW_SHOW,$ziel)
EndFunc

;######################################################################################################################
;----------------------------------------------------------
;Funktion um die Laufwerkstatusse (Festplatten) anzuzeigen:
;----------------------------------------------------------

Func _DriveStatus($Drive, $DriveTyp)

Dim $Drive1, $i, $total, $free, $used, $FileSys, $Label, $Status, $progress, $y, $y1

$Drive1 = DriveGetDrive( $Drive )

$y = $gui_child_height - 326
$y1 = $y + 21

For $i = 1 to $Drive1[0]

	$total = DriveSpaceTotal($Drive1[$i])
	$free = DriveSpaceFree($Drive1[$i])
	$used = $total - $free
	$FileSys = DriveGetFileSystem($Drive1[$i])
	$Label = DriveGetLabel($Drive1[$i])
	$Status = DriveStatus($Drive1[$i])

	GUICtrlSetData($Drive_Label, $DriveTyp)
	GuiCtrlCreateLabel($Drive1[$i], 25, $y, 40, 20, $SS_CENTER )
	GUICtrlSetBkColor(-1,0xd4d4d4)
	GUICtrlSetFont (-1,10, 400, 2)
	GuiCtrlCreateLabel($Label, 70, $y, 100, 20)
	GUICtrlSetBkColor(-1,0xd4d4d4)
	GUICtrlSetFont (-1,10, 400, 2)
	$progress = GuiCtrlCreateProgress(175, $y, 200, 20)
	GuiCtrlSetData($progress,  100 * $used / DriveSpaceTotal($Drive1[$i]))
	GuiCtrlCreateLabel($FileSys, 380, $y, 70, 20, $SS_CENTER)
	GUICtrlSetBkColor(-1,0xd4d4d4)
	GUICtrlSetFont (-1,10, 400, 2)
	GuiCtrlCreateLabel(Round($total/1024,2) & " GB ", 455, $y, 85, 20, $SS_CENTER)
	GUICtrlSetBkColor(-1,0xd4d4d4)
	GUICtrlSetFont (-1,10, 400, 2)
	GuiCtrlCreateLabel(Round($used/1024,2) & " GB ", 545, $y, 80, 20, $SS_CENTER)
	GUICtrlSetBkColor(-1,0xd4d4d4)
	GUICtrlSetFont (-1,10, 400, 2)
	GuiCtrlCreateLabel(Round($free/1024,2) & " GB ", 630, $y, 80, 20, $SS_CENTER)
	GUICtrlSetBkColor(-1,0xd4d4d4)
	GUICtrlSetFont (-1,10, 400, 2)
	GuiCtrlCreateLabel($Status, 715, $y, 70, 20, $SS_CENTER)
	GUICtrlSetBkColor(-1,0xd4d4d4)
	GUICtrlSetFont (-1,10, 400, 2)
	GUICtrlCreateLine(25, $y1, 783, $y1, 3, "0x000000")
	GUICtrlCreateLine(66, $y-3, 66, $y1, 3, "0x000000")
	GUICtrlCreateLine(171, $y-3, 171, $y1, 3, "0x000000")
	GUICtrlCreateLine(376, $y-3, 376, $y1, 3, "0x000000")
	GUICtrlCreateLine(451, $y-3, 451, $y1, 3, "0x000000")
	GUICtrlCreateLine(541, $y-3, 541, $y1, 3, "0x000000")
	GUICtrlCreateLine(626, $y-3, 626, $y1, 3, "0x000000")
	GUICtrlCreateLine(711, $y-3, 711, $y1, 3, "0x000000")
	$y = $y + 25
	$y1 = $y + 21
Next

EndFunc

;#####################################################################################################################
;---------------------------------
; Funktion um Linien zu erstellen:
;---------------------------------

Func GUICtrlCreateLine($x1, $y1, $x2, $y2, $size, $color)
  if $x1<>$x2 Then
        $coeff_line = ( $y2-$y1 ) / ( $x2-$x1 )
        $p = $y2 - ( $coeff_line * $x2 )
        For $a = $x1 to $x2 step $size
            GUICtrlSetBkColor(GUICtrlCreateLabel("", $a, ( $a * $coeff_line ) + $p, $size, $size), $color)
        Next
    Else
        For $a = $y1 to $y2 step $size
            GUICtrlSetBkColor(GUICtrlCreateLabel("", $x1, $a, $size, $size), $color)
        Next
    EndIf
EndFunc


;---------------------------------------
; Funktion um ein Rechteck zu erstellen:
;---------------------------------------

Func GUICtrlCreateEdge($x, $y, $width, $height, $color)
    $edge= GUICtrlCreateLabel("", $x, $y, $width, $height, 0x1000)
    GUICtrlSetBkColor($edge, $color)
EndFunc


;##############################################################################################################################
;-----------------------------------------------
; Funktion zum Auslesen des Windows Product Key:
;-----------------------------------------------

Func DecodeProductKey($BinaryDPID)

   Local $bKey[15]
   Local $sKey[29]
   Local $Digits[24]
   Local $Value = 0
   Local $hi = 0
   Local $n = 0
   Local $i = 0
   Local $dlen = 29
   Local $slen = 15
   Global $Result

   $Digits = StringSplit("BCDFGHJKMPQRTVWXY2346789", "")

   $binaryDPID = StringMid($binaryDPID, 105, 30)

   For $i = 1 To 29 Step 2
      $bKey[Int($i / 2) ] = Dec(StringMid($binaryDPID, $i, 2))
   Next

   For $i = $dlen - 1 To 0 Step - 1
      If Mod( ($i + 1), 6) = 0 Then
         $sKey[$i] = "-"
      Else
         $hi = 0
         For $n = $slen - 1 To 0 Step - 1
            $Value = BitOR(BitShift($hi, -8), $bKey[$n])
            $bKey[$n] = Int($Value / 24)
            $hi = Mod($Value, 24)
         Next
         $sKey[$i] = $Digits[$hi + 1]
      EndIf

   Next
   For $i = 0 To 28
      $Result = $Result & $sKey[$i]
   Next

   Return $Result

EndFunc

;#####################################################################################################
;----------------------------------------------
; Funktionen für den I-Button für Infos zum BS:
;----------------------------------------------
Func _Language()
Select
    Case StringInStr("0413,0813", @OSLang)
        Return "Irländisch"

    Case StringInStr("0409,0809,0c09,1009,1409,1809,1c09,2009,2409,2809,2c09,3009,3409", @OSLang)
        Return "Englisch"

    Case StringInStr("040c,080c,0c0c,100c,140c,180c", @OSLang)
        Return "Französisch"

    Case StringInStr("0407,0807,0c07,1007,1407", @OSLang)
        Return "Deutsch"

    Case StringInStr("0410,0810", @OSLang)
        Return "Italienisch"

    Case StringInStr("0414,0814", @OSLang)
        Return "Norwegisch"

    Case StringInStr("0415", @OSLang)
        Return "Polnisch"

    Case StringInStr("0416,0816", @OSLang)
        Return "Portugisisch"

    Case StringInStr("040a,080a,0c0a,100a,140a,180a,1c0a,200a,240a,280a,2c0a,300a,340a,380a,3c0a,400a,440a,480a,4c0a,500a", @OSLang)
        Return "Spanisch"

    Case StringInStr("041d,081d", @OSLang)
        Return "Schwedisch"

    Case Else
        Return "Ander Sprache"

    EndSelect
EndFunc


Func _OSVersion()
Select
    Case @OSVersion == "WIN_2003"
        Return "Windows 2003"
	Case @OSVersion == "WIN_XP"
        Return "Windows XP"
	Case @OSVersion == "WIN_2000"
        Return "Windows 2000"
	Case @OSVersion == "WIN_NT4"
        Return "Windows NT 4"
	Case @OSVersion == "WIN_ME"
        Return "Windows ME"
    Case @OSVersion == "WIN_98"
        Return "Windows 98"
    Case @OSVersion == "WIN_95"
        Return "Windows 95"
	EndSelect
EndFunc


Func _OSTyp()
Select
    Case @OSType == "WIN32_NT"
        Return "Windows NT32"
	Case @OSType == "WIN32_WINDOWS"
        Return "Windows 32"
	EndSelect
EndFunc


FUNC _zounds($soundcardkey)
global $string
$i = 1
While 1
   $key = RegEnumKey($soundcardkey, $i)
   If @error = -1 Then ExitLoop
   $reg = RegRead($soundcardkey & "\" & $key,"SetupPreferredAudioDevicesCount")
 If $reg = "0" then
 $reg = "0"
  endif
  If $reg = "" then
   $reg = "-1"
   endif

$string = $string & $reg & " | "
   seterror(1)

   $i = $i + 1
WEnd
return $string
endfunc


FUNC _subkey($str)

$array = stringsplit( $str, "|")
_arraydelete ($array, 0)
$arrayoriginal = $array
$maxinda = _arraymaxindex($arrayoriginal, 1)
$maxa = $arrayoriginal[$maxinda]
_arraydelete ($array, $maxinda)
$arrayafter = $array
$maxindb = _arraymaxindex($arrayafter, 1)
$maxb = $arrayafter[$maxindb]

If $maxinda = 0 AND $maxa = -1 then
$subkeyone = "0000"
$subkeytwo = "0000"
return $subkeyone & "|" & $subkeytwo
endif

If $maxindb = 0 AND $maxb = -1 then
	If $maxinda < 10 then
	$subkeyone = "000" & $maxinda
	$subkeytwo = $subkeyone
	endif
	If $maxinda > 9 then
	$subkeyone = "00" & $maxinda
	$subkeytwo = $subkeyone
	endif
	 return  $subkeyone & "|" & $subkeytwo
endif
	IF $maxinda < 10 AND $maxindb < 9 AND $maxinda < $maxindb then
	$subkeyone = "000" & $maxinda
	$subkeytwo = "000" & ($maxindb + 1)
endif
	IF $maxinda < 10 AND $maxindb < 10 AND $maxinda > $maxindb then
	$subkeyone = "000" & $maxinda
	$subkeytwo = "000" & $maxindb
endif
	IF $maxinda > 9 AND $maxindb > 9 AND $maxinda > $maxindb then
	$subkeyone = "00" & $maxinda
	$subkeytwo = "00" & $maxindb
endif
	IF $maxinda > 9 AND $maxindb > 8 AND $maxinda < $maxindb then
	$subkeyone = "00" & $maxinda
	$subkeytwo = "00" & ($maxindb + 1)
endif
	IF $maxinda > 9 AND $maxindb < 10 AND $maxinda > $maxindb then
	$subkeyone = "00" & $maxinda
	$subkeytwo = "000" & $maxindb
endif
	If $maxinda < 10 AND $maxindb > 9 AND $maxinda < $maxindb then
	$subkeyone = "000" & $maxinda
	$subkeytwo = "00" & ($maxindb + 1)
endif
	return $subkeyone & "|" &$subkeytwo
EndFunc


Func _Version()

Dim $cpugen, $cpuat, $cpuraw, $cpu, $mem, $memfreeun, $memtotalun, $memfree, $memtotal, $vide, $vidcard, $monito, $monitor, $soun, $soundcard, $mous, $mouse

;Infos zur CPU auslesen:
$cpugen = regRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "processornamestring")
$cpuat = " @ " &regRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "~MHz") & "MHz"
$cpuraw = $cpugen & $cpuat
$cpu = StringStripWS($cpuraw, 1)

;Infos zum Arbeitsspeicher:
$mem = memgetstats( )
$memfreeun = ($mem[2] / 1000)
$memtotalun = ($mem[1] / 1000)
$memfree = round($memfreeun, 0) & " MB"
$memtotal = round($memtotalun, 0) & " MB"

;CurrentControlSet auslesen:
global $crtset
$crtset = RegEnumKey ( "HKEY_LOCAL_MACHINE\SYSTEM", 1)

;Grafikkarte auslesen:
$vide = "HKEY_LOCAL_MACHINE\SYSTEM\" & $crtset & "\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000"
$vidcard = regread ( $vide , "driverdesc" )

;Monitor auslesen:
$monito = "HKEY_LOCAL_MACHINE\SYSTEM\" & $crtset & "\Control\Class\{4D36E96E-E325-11CE-BFC1-08002BE10318}\0000"
$monitor = regread ($monito, "driverdesc")

;Soundkarte auslesen:
$string = _zounds("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E96C-E325-11CE-BFC1-08002BE10318}")
Dim $subkeystring
$subkeystring = _subkey($string)
$subarray = stringsplit($subkeystring, "|")


$soun = "HKEY_LOCAL_MACHINE\SYSTEM\" & $crtset & "\Control\Class\{4D36E96C-E325-11CE-BFC1-08002BE10318}\" & $subarray[1]
$soundcardone = "Soundkarte: " & regread ( $soun, "driverdesc")

$sountwo = "HKEY_LOCAL_MACHINE\SYSTEM\" & $crtset & "\Control\Class\{4D36E96C-E325-11CE-BFC1-08002BE10318}\" & $subarray[2]
$soundcardtwo = "Soundkarte: " & regread ( $sountwo, "driverdesc")

	If $soundcardone = $soundcardtwo then
		$soundcard = $soundcardone
	endif
	If $soundcardtwo <> $soundcardone and regread ( $sountwo, "driverdesc") <> "" then
		$soundcard = $soundcardone & @crlf & $soundcardtwo
	endif
	If $soundcardtwo <> $soundcardone and regread ( $sountwo, "driverdesc") = "" then
		$soundcard = $soundcardone
	endif

;Mouse auslesen:
$mous = "HKEY_LOCAL_MACHINE\SYSTEM\" & $crtset & "\Control\Class\{4D36E96F-E325-11CE-BFC1-08002BE10318}\0000"
$mouse = regread ($mous, "driverdesc")

MsgBox(64, "Infos zum PC:", "Hardware:" &@Lf& "CPU: " & $cpu &@Lf& "Arbeitsspeicher (gesammt/frei): " & $memtotal &"/"& $memfree &  @LF & "Grafikkarte: " & $vidcard &@Lf& "Monitor: " & $monitor &@Lf& "Auflösung: " & @DesktopWidth & " x " & @DesktopHeight & " x " & @DesktopDepth &@LF& $soundcard &@LF& "Mouse: " & $mouse &@LF& " " &@LF& "Aktuelles Beriebssystem:" &@Lf&  "Windows-Version: " & _OSVersion()  & " " & @OSBuild & " " & @OSServicePack &@Lf& "Windows-Typ: "& _OSTyp() &@Lf& "Sprache: " & _Language() &@Lf& " " &@Lf& "Systeminformationen:" &@Lf& "Computer-Name: " & @ComputerName &@Lf& "Aktueller Benutzer: " & @UserName &@Lf& " " &@Lf& "Netzwerkinformationen:" &@Lf&"IP-Adresse 1: " & @IPAddress1 &@Lf& "IP-Adresse 2: " & @IPAddress2 &@Lf& "IP-Adresse 3: " & @IPAddress3 &@Lf& "IP-Adresse 4: " & @IPAddress4, 30)
EndFunc

Func _ArrayDelete(ByRef $avArray, $iElement)
	Local $iCntr = 0, $iUpper = 0, $iNewSize = 0

	If (Not IsArray($avArray)) Then
		SetError(1)
		Return ""
	EndIf

	Local $iUpper = UBound($avArray)   

	If $iUpper = 1 Then
		SetError(2)
		Return ""
	EndIf

	Local $avNewArray[$iUpper - 1]
	If $iElement < 0 Then
		$iElement = 0
	EndIf
	If $iElement > ($iUpper - 1) Then
		$iElement = ($iUpper - 1)
	EndIf
	If $iElement > 0 Then
		For $iCntr = 0 To $iElement - 1
			$avNewArray[$iCntr] = $avArray[$iCntr]
		Next
	EndIf
	If $iElement < ($iUpper - 1) Then
		For $iCntr = ($iElement + 1) To ($iUpper - 1)
			$avNewArray[$iCntr - 1] = $avArray[$iCntr]
		Next
	EndIf
	$avArray = $avNewArray
	SetError(0)
	Return 1
EndFunc  

Func _ArrayMaxIndex($avArray, $iCompNumeric = 0, $i_Base = 0)
	Local $iCntr, $iMaxIndex = $i_Base

	If Not IsArray($avArray) Then
		SetError(1)
		Return ""
	EndIf

	Local $iUpper = UBound($avArray)
	For $iCntr = $i_Base To ($iUpper - 1)
		If $iCompNumeric = 1 Then
			If Number($avArray[$iMaxIndex]) < Number($avArray[$iCntr]) Then
				$iMaxIndex = $iCntr
			EndIf
		Else
			If $avArray[$iMaxIndex] < $avArray[$iCntr] Then
				$iMaxIndex = $iCntr
			EndIf
		EndIf
	Next
	SetError(0)
	Return $iMaxIndex
EndFunc 
#cs
;###########################################################################################
;----------------------------------------
;Funktion um alle CheckBoxes auszuwählen:
;----------------------------------------
Func _checked()
	guictrlsetstate ( $BrennProg1 , $gui_checked )
	guictrlsetstate ( $BrennProg2 , $gui_checked )
	guictrlsetstate ( $BrennProg3 , $gui_checked )
	guictrlsetstate ( $PlayerProg1 , $gui_checked )
	guictrlsetstate ( $PlayerProg2 , $gui_checked )
	;guictrlsetstate ( $PlayerProg3 , $gui_checked )
EndFunc	

;##########################################################################################
;-----------------------------------
;Funktion um die Auswahl zu löschen:
;-----------------------------------
Func _unchecked()
	 guictrlsetstate ( $Brennen , $gui_unchecked )
    ;guictrlsetstate ( $BrennProg1 , $gui_unchecked )
	;guictrlsetstate ( $BrennProg2 , $gui_unchecked )
	;guictrlsetstate ( $BrennProg3 , $gui_unchecked )
	;guictrlsetstate ( $PlayerProg1 , $gui_unchecked )
	;guictrlsetstate ( $PlayerProg2 , $gui_unchecked )
	    ;guictrlsetstate ( $PlayerProg3 , $gui_unchecked )
EndFunc

func _brennchecked()

	guictrlsetstate ( $BrennProg1 , $gui_checked )
	guictrlsetstate ( $BrennProg2 , $gui_checked )
	guictrlsetstate ( $BrennProg3 , $gui_checked )

endfunc

;##########################################################################################
;-----------------------------------
;Installation
;-----------------------------------
Func install ( )
	;Bild waehrend der Installation	
    GUICreate("", 1026, 770, -1,-1, $WS_POPUP, $WS_EX_TOPMOST)
    GUISetBkColor(0)
	GUICtrlCreatePic(@ScriptDir & "\Setup\Pics\lumpy1.jpg",113,85, 800, 600, $WS_EX_TRANSPARENT )
	GUISetState()
    Sleep(10000)
    GUIDelete();    
EndFunc

		
				;Anfang der Installation	
	
			If GUICtrlRead ($Checkbox1) = 1 then
				;$PID = Run("Programme\AnyDVD\AnyDVD.exe", "", @SW_HIDE );hier muss setup.exe hinein 
				;WinWaitActive("Passwort eingeben","&Passwort für die verschlüsselte Datei eingeben:")
                ;Send("PW")
                ;ControlClick("Passwort eingeben","&Passwort für die verschlüsselte Datei eingeben:","Button1")
				;ProcessWaitClose($PID)
				MsgBox(4096,"App 1","AnyDVD wird installiert")
			EndIf
	
			If GUICtrlRead ($Checkbox2) = 1 then
				;$PID = Run("Programme\CloneCD\CloneCD.exe", "", @SW_HIDE );
				;ProcessWaitClose($PID)
	  		EndIf
	
			If GUICtrlRead ($Checkbox3) = 1 then
				;$PID = Run("AnyDVD\AnyDVD.exe", "", @SW_HIDE )
				;ProcessWaitClose($PID)
	   		EndIf	
	
			If GUICtrlRead ($Checkbox4) = 1 then
				;$PID = Run("AnyDVD\AnyDVD.exe", "", @SW_HIDE )
				;ProcessWaitClose($PID)
			EndIf
	
			If GUICtrlRead ($Checkbox5) = 1 then
				;$PID = Run("AnyDVD\AnyDVD.exe", "", @SW_HIDE )
				;ProcessWaitClose($PID)
			EndIf  

			Sleep(5000)  ;Zeit evtl hochsetzen
		SplashOff()
		
;Shutdowntextfenster
        MsgBox(48, "", "Fertig!")
		Sleep(5000)
;Checkbox Neustart

		If GUICtrlRead($checkbox_restart) == 1 Then
			$restart = Run(@ComSpec & " /c shutdown -r -t 10")
		EndIf
#ce