GtaSpider InstallShild!

**GtaSpider**

Hallo Liebe Community!

hab mich mal wider dran gemacht ein schönes tool zu bauen!

Das kennt ihr doch: ihr habt ein cooles tool geschrieben was aus mehreren datein besthet! Die wollt ihr installieren habt aber keine lust eine neue gui usw zu basteln! ProgressOn ist zu langweilig!(und wenn ihr das nicht kennt probiert mein script trozdem aus^^)

Ja richtig es ist ein installshild! aber es ist noch
!!BETA!!
bitte ausprobieren und mögliche fehler bitte melden!

Freue mich auch über kritik und lob

ein bsp ist in der angehängten zip!

C

ProgressOn("Insallshield wird initaliesiert","Initaliesire..","",-1,-1,1)
RegRead("HKEY_CURRENT_USER\Software\GtaSpider Installshild","programms")
If  @error Then RegWrite("HKEY_CURRENT_USER\Software\GtaSpider Installshild","programms","REG_SZ","0")
;#######################################################
;include
;#######################################################
#include <GUIConstants.au3>
#include <file.au3>
If Not FileExists(@SystemDir&"\XZip.dll") Then FileInstall("xzip.dll",@SystemDir&"\XZip.dll")
$proz = 10
ProgressSet($proz,$proz&"%")
Sleep(100)
;#######################################################
;Variablen Defenieren
;#######################################################
Dim $szDrive, $szDir, $szFName, $szExt
$benotigt = 0
$insset = "MB"
$freiset = "MB"
$benset = "KB"


$startpic = "test.jpg"
$Icon = "chart.ico"
$Name = "Test"
$installdir = @ProgramFilesDir&"\Test"
$startmenuname = "Der Test"
;von wo eine Verknüpfung zum StartMenüOrdner
$startmenuverkfrom = "data\dateiausw.exe|hallo.txt"
;wie die Verknüpfung heißen soll(im StartMenüOrdner)
$startmenuverkto = "data\Test.lnk|ReadMe.lnk"
;von wo eine Verknüpfung zum desktop
$desktopverkfrom = "data\dateiausw.exe"
;wie die Verknüpfung heißen soll(auf dem desktop)
$desktopverkto = "Test.exe"
$benutzervereinbarung = FileRead("benutzerlizens",5000000)
$startanweisung = 'Herzlich Wilkommen beim Testprogramm Installierer!'&@CR&@CR&'AutoIt v3 ist eine BASIC-artige Freeware-Skriptsprache. Sie wurde entwickelt, um die Windows-GUI zu automatisieren. Sie nutzt eine Kombination von simulierten Tastendrücken, Mausbewegungen und -klicks sowie Windows- bzw. Control-Manipulation, um Aufgaben zu automatisieren, die in anderen Sprachen nicht möglich oder mit befriedigender Stabilität und Zuverlässigkeit möglich wären (z.B. VBScript und SendKeys). '
Sleep(100)
$proz = 20
ProgressSet($proz,$proz&"%")


#cs kommt bald
;Wenn die dateien in eine Zip gepackt sind!:
$zip = 
;wo die dateien hinkopiert werden sollen, die reinfolge bekommst du mit dem zusatzprogramm: Zipfolge.exe/Zipfolge.au3
$dezip = 
#ce
Sleep(100)
$proz = 40
ProgressSet($proz,$proz&"%")
; datein jeweils durch ein "|" trennen! wenn im @ScriptDir(also z.B. auf der CD) dann einfach: @Scriptdir&"\1ordner\nocheinordner\na.html" oder z.b.: autoit.exe|Autoi.hlp|1ordner\nocheinordner\na.html|..."
$files = "dateiausw.au3|dateiausw.exe|msg.txt|hallo.txt"
; wo die Datein hinkopiert werden sollen,davor ist noch der ausgewählte installationordner($installdir)! In gleicher reinvolge wie $files!
$filesinstalldir = "data\*.*|data\*.*|*.*|*.*"
$readme = "hallo.txt"
$exe = "data\dateiausw.exe"
$filestringsplit = StringSplit($files,"|")
For $a = 1 To $filestringsplit[0]
	$benotigt = $benotigt + FileGetSize($filestringsplit[$a])
Next
$benotigt = Round($benotigt/1024,2)
If $benotigt > 999 Then
	$benotigt = Round($benotigt/1024,2)
	$benset = "MB"
EndIf
If $benotigt > 999 Then
	$benotigt = Round($benotigt/1024,2)
	$benset = "GB"
EndIf
Sleep(100)
$proz = 60
ProgressSet($proz,$proz&"%")
$benotigt = $benotigt & $benset
_PathSplit($installdir, $szDrive, $szDir, $szFName, $szExt)
$frei = Round(DriveSpaceFree($szDrive),2)
If $frei > 999 Then
	$frei = Round(DriveSpaceFree($szDrive)/1024,2)
	$freiset = "GB"
EndIf
$frei = $frei & $freiset
$insgesamt = Round(DriveSpaceTotal($szDrive),2)
If $insgesamt > 999 Then
	$insgesamt = Round(DriveSpaceTotal($szDrive)/1024,2)
	$insset = "GB"
EndIf
Sleep(100)
$proz = 80
ProgressSet($proz,$proz&"%")
$insgesamt = $insgesamt & $insset


;~ $for = RegRead("HKEY_CURRENT_USER\Software\GtaSpider Installshild","programms:")
$for = 1
For $forreg = 1 To $for
	If RegRead("HKEY_CURRENT_USER\Software\GtaSpider Installshild",$forreg) = $Name Then
		If FileExists(RegRead("HKEY_CURRENT_USER\Software\GtaSpider Installshild",$forreg&"-path")) Then
			ProgressOff()
			MsgBox(16,"","Sie haben "&$Name&" schon installiert! In den Ordner "&RegRead("HKEY_CURRENT_USER\Software\GtaSpider Installshild",$forreg&"-path"))
			Exit
		EndIf
	EndIf
Next
Sleep(100)
$proz = 90
ProgressSet($proz,$proz&"%")
;#######################################################
;GUI
;#######################################################
$1 = GUICreate("Install Shild GtaSpider AG: "&$Name, 518, 420, 287, 216)
GUISetIcon("D:\bilder\ico\7000_Icons.All.Icon.Experience.Packs.1-6_Over.1500.Macinstosh.Icons.for.Windows\Computers - Install\inst 17.ico")
GUISetBkColor(0xffffff)
GUICtrlCreateLabel("GtaSpider AG", 1, 359, 71, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateLabel("__________________________________________________________________________", 68, 355, 448, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetState(-1, $GUI_DISABLE)
$next1 = GUICtrlCreateButton("&Weiter >", 329, 380, 83, 31)
$abbort1 = GUICtrlCreateButton("A&bbrechen", 419, 380, 83, 31)
GUICtrlCreatePic($startpic, 0, 0, 141, 350)
GUICtrlCreateLabel("Wilkommen zum "&$Name&" Setup-Assistenten", 160, 20, 350, 60)
GUICtrlSetFont(-1, 16, 800, 0, "Arial")
GUICtrlCreateLabel($startanweisung, 160, 100, 350, 250)
GUISetState(@SW_SHOW)
Sleep(100)
$proz = 100
ProgressSet($proz,$proz&"%")
ProgressOff()
$2 = GUICreate("Install Shild GtaSpider AG:", 518, 403,287, 216)
GUISetIcon("D:\bilder\ico\7000_Icons.All.Icon.Experience.Packs.1-6_Over.1500.Macinstosh.Icons.for.Windows\Computers - Install\inst 17.ico")
GUICtrlCreateLabel("GtaSpider AG", 0, 350, 71, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateLabel("__________________________________________________________________________", 70, 350, 448, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetState(-1, $GUI_DISABLE)
$next2 = GUICtrlCreateButton("&Weiter >", 330, 370, 83, 31)
$back2 = GUICtrlCreateButton("< &Zurück", 248, 370, 83, 31)
$abbort2 = GUICtrlCreateButton("A&bbrechen", 420, 370, 83, 31)
GUICtrlCreateEdit("", 30, 120, 431, 141, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetData(-1, $benutzervereinbarung)
GUICtrlCreateGraphic(0, 0, 519, 58, BitOR($SS_RIGHT,$SS_BLACKRECT,$SS_WHITERECT))
GUICtrlSetColor(-1, 0xE0DFE3)
GUICtrlCreateGraphic(0, 58, 519, 1, BitOR($SS_CENTER,$SS_BLACKRECT,$SS_GRAYRECT))
GUICtrlSetColor(-1, 0xE0DFE3)
$akzept = GUICtrlCreateRadio("Ich &akzeptiere die Vereinbarung", 30, 280, 251, 21)
$disakzept = GUICtrlCreateRadio("Ich &lehne die Vereinbarung ab", 30, 300, 251, 21)
GUICtrlSetState(-1,$GUI_CHECKED)
GUICtrlCreateLabel("Lesen Sie bitte die folgenden Lizenzvereinbarungen. Benutzen Sie bei Bedarf die Bildlaufleiste oder drücken Sie die ""Bild Ab""-Taste.", 20, 70, 443, 27)
GUICtrlCreateLabel("Lizensvereinbarung", 30, 10, 114, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("Lesen Sie bitte folgende, wichtige Informationen bevor Sie fortfahren.", 40, 30, 329, 17)
GUICtrlCreateIcon($Icon, 0, 460, 0)




$3 = GUICreate("Install Shild GtaSpider AG:", 518, 402, 287, 216)
GUISetIcon("D:\bilder\ico\7000_Icons.All.Icon.Experience.Packs.1-6_Over.1500.Macinstosh.Icons.for.Windows\Computers - Install\inst 17.ico")
GUICtrlCreateLabel("GtaSpider AG", 0, 350, 71, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateLabel("__________________________________________________________________________", 70, 350, 448, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetState(-1, $GUI_DISABLE)
$next3 = GUICtrlCreateButton("&Weiter >", 330, 370, 83, 31)
$back3 = GUICtrlCreateButton("< &Zurück", 248, 370, 83, 31)
$abbort3 = GUICtrlCreateButton("A&bbrechen", 419, 370, 83, 31)
GUICtrlCreateGraphic(0, 0, 519, 58, BitOR($SS_RIGHT,$SS_BLACKRECT,$SS_WHITERECT))
GUICtrlSetColor(-1, 0xE0DFE3)
GUICtrlCreateLabel("Ziel-Ordner wählen", 30, 10, 111, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("Wohin soll das Programm installiert werden?", 40, 30, 210, 17)
GUICtrlCreateIcon("d:\bilder\ico\7000_Icons.All.Icon.Experience.Packs.1-6_Over.1500.Macinstosh.Icons.for.Windows\MAC STYLE - Folders\Open Folder yellow.ico", 0, 40, 80)
GUICtrlCreateLabel("Das Setup wird das Programm in den folgenden Ordner installieren.", 90, 90, 318, 17)
GUICtrlCreateLabel("Klicken Sie auf ""Weiter"", um fortzufahren. Klicken Sie auf ""Durchsuchen"", falls Sie einen anderen Ordner auswählen möchten.", 40, 130, 381, 27)
$installdir = GUICtrlCreateInput($installdir, 40, 170, 271, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetCursor (-1, 2)
$search1 = GUICtrlCreateButton("Du&rchsuchen...", 340, 170, 81, 21)
GUICtrlCreateLabel("Benötigt", 60, 290, 43, 17)
GUICtrlCreateLabel("Frei", 60, 310, 21, 17)
GUICtrlCreateLabel("Insgesamt", 60, 330, 52, 17)
GUICtrlCreateLabel($benotigt, 110, 290, 49, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
$freilab = GUICtrlCreateLabel($frei, 110, 310, 49, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
$inslab = GUICtrlCreateLabel($insgesamt, 110, 330, 49, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateIcon($Icon, 0, 460, 0)


$4 = GUICreate("Install Shild GtaSpider AG:", 518, 403, 287, 216)
GUISetIcon("D:\bilder\ico\7000_Icons.All.Icon.Experience.Packs.1-6_Over.1500.Macinstosh.Icons.for.Windows\Computers - Install\inst 17.ico")
GUICtrlCreateLabel("GtaSpider AG", 0, 350, 71, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateLabel("__________________________________________________________________________", 70, 350, 448, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetState(-1, $GUI_DISABLE)
$next4 = GUICtrlCreateButton("&Weiter >", 330, 370, 83, 31)
$back4 = GUICtrlCreateButton("< &Zurück", 248, 370, 83, 31)
$abbort4 = GUICtrlCreateButton("A&bbrechen", 419, 370, 83, 31)
GUICtrlCreateGraphic(0, 0, 519, 58, BitOR($SS_RIGHT,$SS_BLACKRECT,$SS_WHITERECT))
GUICtrlSetColor(-1, 0xE0DFE3)
GUICtrlCreateLabel("Startmenü-Ordner wählen", 30, 10, 147, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("Wo soll das Setup die Programm-Verknüpfungen anlegen?", 40, 30, 280, 17)
GUICtrlCreateIcon("d:\bilder\ico\7000_Icons.All.Icon.Experience.Packs.1-6_Over.1500.Macinstosh.Icons.for.Windows\MAC STYLE - Folders\Open Folder yellow.ico", 0, 40, 80)
GUICtrlCreateLabel("Das Setup wird die Programm-Verknüpfungen im folgenden Startmenü-Ordner anlegen.", 90, 80, 368, 27)
GUICtrlCreateLabel("Klicken Sie auf ""Weiter"", um fortzufahren. Klicken Sie auf ""Durchsuchen"", falls Sie einen anderen Ordner auswählen möchten.", 40, 130, 381, 27)
$startmenuname = GUICtrlCreateInput($startmenuname, 40, 170, 321, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetCursor (-1, 2)
$search2 = GUICtrlCreateButton("Du&rchsuchen...", 370, 170, 81, 21)
$nostartmenu = GUICtrlCreateCheckbox("Kein Startmenü Ordner anlegen!", 40, 210, 291, 21)
GUICtrlCreateIcon($Icon, 0, 460, 0)


$5 = GUICreate("Install Shild GtaSpider AG:", 518, 403, 287, 216)
GUISetIcon("D:\bilder\ico\7000_Icons.All.Icon.Experience.Packs.1-6_Over.1500.Macinstosh.Icons.for.Windows\Computers - Install\inst 17.ico")
GUICtrlCreateLabel("GtaSpider AG", 0, 350, 71, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateLabel("__________________________________________________________________________", 70, 345, 448, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetState(-1, $GUI_DISABLE)
$next5 = GUICtrlCreateButton("&Weiter >", 330, 370, 83, 31)
$back5 = GUICtrlCreateButton("< &Zurück", 248, 370, 83, 31)
$abbort5 = GUICtrlCreateButton("A&bbrechen", 419, 370, 83, 31)
GUICtrlCreateGraphic(0, 0, 519, 58, BitOR($SS_RIGHT,$SS_BLACKRECT,$SS_WHITERECT))
GUICtrlSetColor(-1, 0xE0DFE3)
GUICtrlCreateLabel("Zusätzliche Aufgaben auswählen", 30, 10, 191, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("Welche zusätzlichen Aufgaben sollen ausgeführt werden?", 40, 30, 278, 17)
GUICtrlCreateLabel("Wählen Sie die zusätzlichen Aufgaben aus, die das Setup während der Installation von DeskTimer ausführen soll, und klicken Sie danach auf ""Weiter"".", 40, 90, 398, 27)
$shortcurt = GUICtrlCreateCheckbox("Verknüpfung auf dem &Desktop erstellen", 40, 150, 241, 21)
GUICtrlCreateIcon($Icon, 0, 460, 0)






$6 = GUICreate("Install Shild GtaSpider AG:", 518, 403, 287, 216)
GUISetIcon("D:\bilder\ico\7000_Icons.All.Icon.Experience.Packs.1-6_Over.1500.Macinstosh.Icons.for.Windows\Computers - Install\inst 17.ico")
GUICtrlCreateLabel("GtaSpider AG", 0, 350, 71, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateLabel("__________________________________________________________________________", 70, 345, 448, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetState(-1, $GUI_DISABLE)
$next6 = GUICtrlCreateButton("&Installieren >", 330, 370, 83, 31)
$back6 = GUICtrlCreateButton("< &Zurück", 248, 370, 83, 31)
$abbort6 = GUICtrlCreateButton("A&bbrechen", 419, 370, 83, 31)
GUICtrlCreateGraphic(0, 0, 519, 58, BitOR($SS_RIGHT,$SS_BLACKRECT,$SS_WHITERECT))
GUICtrlSetColor(-1, 0xE0DFE3)
GUICtrlCreateLabel("Installation durchführen", 30, 10, 138, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("Das Setup ist jetzt bereit, DeskTimer auf Ihren Computer zu installieren.", 40, 30, 337, 17)
GUICtrlCreateLabel("Klicken Sie auf ""Installieren"", um mit der Installation zu beginnen, oder auf ""Zurück"", um Ihre Einstellungen zu überprüfen oder zu ändern.", 40, 70, 448, 27)
$last = GUICtrlCreateEdit("", 40, 110, 451, 221, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateIcon($Icon, 0, 460, 0)


$7 = GUICreate("Install Shild GtaSpider AG:", 518, 403, 287, 216)
GUISetIcon("D:\bilder\ico\7000_Icons.All.Icon.Experience.Packs.1-6_Over.1500.Macinstosh.Icons.for.Windows\Computers - Install\inst 17.ico")
GUICtrlCreateLabel("GtaSpider AG", 0, 350, 71, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateLabel("__________________________________________________________________________", 70, 345, 448, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetState(-1, $GUI_DISABLE)
;~ $next7 = GUICtrlCreateButton("&Weiter >", 330, 370, 83, 31)
;~ $back7 = GUICtrlCreateButton("< &Zurück", 248, 370, 83, 31)
$abbort7 = GUICtrlCreateButton("A&bbrechen", 419, 370, 83, 31)
GUICtrlCreateGraphic(0, 0, 519, 58, BitOR($SS_RIGHT,$SS_BLACKRECT,$SS_WHITERECT))
GUICtrlSetColor(-1, 0xE0DFE3)
GUICtrlCreateLabel("Setup wird Ausgeführt", 30, 10, 129, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("Die Dateine werden in das gewählte verzeichniss kopiert", 40, 30, 271, 17)
GUICtrlCreateLabel("Datei:", 40, 110, 32, 17)
$Progress = GUICtrlCreateProgress(40, 140, 441, 21,$PBS_SMOOTH)
;~ GUICtrlSetColor(-1, 0x191970)
$labfile = GUICtrlCreateLabel("", 70, 110, 500, 17)
$Progresslab = GUICtrlCreateLabel("0%", 240, 143, 18, 17)
;~ $Button1 = GUICtrlCreateButton("(Not allowed)", 230, 230, 41, 40, $BS_ICON)
;~ GUICtrlSetImage($Button1, "D:\bilder\ico\7000_Icons.All.Icon.Experience.Packs.1-6_Over.1500.Macinstosh.Icons.for.Windows\MAC STYLE - Multimedia\Aqua Glass Folders Icon 72.ico")
GUICtrlCreateIcon($Icon, 0, 460, 0)


$8 = GUICreate("Install Shild GtaSpider AG:", 518, 420,287, 216)
GUISetBkColor(0xffffff)
GUISetIcon("D:\bilder\ico\7000_Icons.All.Icon.Experience.Packs.1-6_Over.1500.Macinstosh.Icons.for.Windows\Computers - Install\inst 17.ico")
GUICtrlCreateLabel("GtaSpider AG", 1, 359, 71, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateLabel("__________________________________________________________________________", 68, 355, 448, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetState(-1, $GUI_DISABLE)
$next8 = GUICtrlCreateButton("&Fertigstellen", 329, 380, 83, 31)
$Pic1 = GUICtrlCreatePic("D:\fotos\200005max-ph08.jpg", 0, 0, 141, 350)
GUICtrlCreateLabel("Beenden des Setup-Assistenten", 160, 20, 350, 60)
GUICtrlSetFont(-1, 16, 800, 0, "Arial")
GUICtrlCreateLabel("Setup hat die Installation von DeskTimer auf Ihren Computer abgeschlossen. Die Anwendung kann über die installierten Programm-Verknüpfungen gestartet werden.", 160, 100, 350, 40)
GUICtrlCreateLabel("Klicken Sie auf ""Fertigstellen"", um das Setup zu beenden.", 160, 150, 350, 20)
$exestart = GUICtrlCreateCheckbox("Gleich Starten!", 160, 180, 261, 21)
$readmestart = GUICtrlCreateCheckbox("ReadMe lesen", 160, 210, 261, 21)
;#######################################################
;While
;#######################################################
While 1
	$msg = GuiGetMsg()
	Select
	Case $msg = $GUI_EVENT_CLOSE or $msg = $abbort1 or $msg = $abbort2 or $msg = $abbort3 or $msg = $abbort4 or $msg = $abbort5 or $msg = $abbort6 
		If MsgBox(4,"Abbrechen?","Wollen Sie die Installation von "&$Name&" wirklich beenden?"&@CR&"Alle daten die Sie eben eingestellt haben werden nicht gespeichert!")=6 Then ExitLoop
;~ 	Case $msg = $abbort7
	#region Gui1
	Case $msg = $next1
		_GuiSwitch($1,$2)
	#endregion Gui1
	#region Gui2
	Case $msg = $next2
		If GUICtrlRead($akzept) <> $GUI_CHECKED Then
			MsgBox(0,"","Sie müssen den Lizensvertrag akzeptieren!")
			ContinueLoop
		EndIf
		_GuiSwitch($2,$3)
	Case $msg = $back2
		_GuiSwitch($2,$1)
	#endregion
	#region Gui3
	Case $msg = $search1
		$fsf = FileSelectFolder("","",7,@ProgramFilesDir)
		If @error Then $fsf = GUICtrlRead($installdir)
		_PathSplit($fsf, $szDrive, $szDir, $szFName, $szExt)
		$frei = Round(DriveSpaceFree($szDrive),2)
		If $frei > 999 Then
			$frei = Round(DriveSpaceFree($szDrive)/1024,2)
			$freiset = "GB"
		EndIf
		$frei = $frei & $freiset
		$insgesamt = Round(DriveSpaceTotal($szDrive),2)
		If $insgesamt > 999 Then
			$insgesamt = Round(DriveSpaceTotal($szDrive)/1024,2)
			$insset = "GB"
		EndIf
		$insgesamt = $insgesamt & $insset
		GUICtrlSetData($freilab,$frei)
		GUICtrlSetData($inslab,$insgesamt)
		GUICtrlSetData($installdir,$fsf)
	Case $msg = $next3
		_GuiSwitch($3,$4)
	Case $msg = $back3
		_GuiSwitch($3,$2)
	#endregion
	#region Gui4
	Case $msg = $search2
		$fsf = FileSelectFolder("",@StartMenuDir,7)
		If @error Then $fsf = GUICtrlRead($startmenuname)
		GUICtrlSetData($startmenuname,$fsf)
	Case $msg = $next4
		_GuiSwitch($4,$5)
	Case $msg = $back4
		_GuiSwitch($4,$3)
	#endregion
	#region Gui5
Case $msg = $next5
	$startmenunameread = GUICtrlRead($startmenuname)
		$keine = ""
		If GUICtrlRead($shortcurt) <> $GUI_CHECKED Then $keine = "Keine"
		If GUICtrlRead($nostartmenu) = $GUI_CHECKED Then $startmenunameread = "Kein Startmenü"
		GUICtrlSetData($last, "Ziel-Ordner:"&@CRLF&"      "&GUICtrlRead($installdir)&@CRLF&@CRLF&"Startmenü-Ordner:"&@CRLF&"      "&$startmenunameread&@CRLF&@CRLF&"Zusätzliche Aufgaben:"&@CRLF&"      Zusätzliche Icons:"&@CRLF&"         "&$keine&" Verknüpfung auf dem Desktop erstellen")
		_GuiSwitch($5,$6)
	Case $msg = $back5
		_GuiSwitch($5,$4)
	#endregion
	#region Gui6
	Case $msg = $next6
		_GuiSwitch($6,$7)
		Sleep(500)
		$installdir = GUICtrlRead($installdir)
		DirCreate($installdir)
		$filestringsplit = StringSplit($files,"|")
		$filesinstalldirsplit = StringSplit($filesinstalldir,"|")
		For $a = 1 to $filestringsplit[0]
			GUICtrlSetData($labfile,"Datei: Von "&$filestringsplit[$a]&" Zu "&$installdir&""&$filesinstalldirsplit[$a])
			FileCopy($filestringsplit[$a],$installdir&""&$filesinstalldirsplit[$a],8)
			Sleep(100)
			$progressset = (100*$a)/$filestringsplit[0]
			If $progressset > 97 Then
				GUICtrlSetData($Progress,98)
				GUICtrlSetData($Progresslab,"98%")
			Else
				GUICtrlSetData($Progress,$progressset)
				GUICtrlSetData($Progresslab,Round($progressset)&"%")
			EndIf
		Next
		SplashTextOn("","Desktopverknüpfungen werden erstellt...",300,20,-1,-1,1)
		If GUICtrlRead($shortcurt) = $GUI_CHECKED Then
			$desktopverkfromspilt = StringSplit($desktopverkfrom,"|")
			$desktopverktospilt = StringSplit($desktopverkto,"|")
			For $a = 1 To $desktopverkfromspilt[0]
				FileCreateShortcut($installdir&""&$desktopverkfromspilt[$a],@DesktopDir&""&$desktopverktospilt[$a])
			Next
		EndIf
		GUICtrlSetData($Progress,99)
		GUICtrlSetData($Progresslab,"99%")
		SplashOff()
		SplashTextOn("","Startmenüverknüpfungen werden erstellt...",300,20,-1,-1,1)
		If GUICtrlRead($nostartmenu) <> $GUI_CHECKED Then
			DirCreate(@ProgramsDir&""&GUICtrlRead($startmenuname))
			$startmenuverkfromspilt = StringSplit($startmenuverkfrom,"|")
			$startmenuverktospilt = StringSplit($startmenuverkto,"|")
			For $a = 1 To $startmenuverkfromspilt[0]
				_PathSplit("C:"&$startmenuverktospilt[$a], $szDrive, $szDir, $szFName, $szExt)
				DirCreate(@ProgramsDir&""&GUICtrlRead($startmenuname)&$szDir)
				FileCreateShortcut($installdir&""&$startmenuverkfromspilt[$a],@ProgramsDir&""&GUICtrlRead($startmenuname)&""&$startmenuverktospilt[$a])

			Next
			MsgBox(0,"",$startmenuverkfromspilt[0]&@cr&@ProgramsDir&""&GUICtrlRead($startmenuname)&""&$startmenuverktospilt[1]&@cR&$installdir&""&$startmenuverkfromspilt[1])
		EndIf
		RegWrite("HKEY_CURRENT_USER\Software\GtaSpider Installshild",$forreg,"REG_SZ",$Name)
		RegWrite("HKEY_CURRENT_USER\Software\GtaSpider Installshild",$forreg&"-path","REG_SZ",$installdir)
		RegWrite("HKEY_CURRENT_USER\Software\GtaSpider Installshild","programms:","REG_SZ",$forreg)
		GUICtrlSetData($Progress,100)
		GUICtrlSetData($Progresslab,"100%")
		SplashOff()
		_GuiSwitch($7,$8)
	Case $msg = $back6
		_GuiSwitch($6,$5)
	#endregion
	#region Gui7
;~ 	Case $msg = $next7
;~ 		_GuiSwitch($7,$8)
	Case $msg = $abbort7
		_GuiSwitch($7,$6)
	#endregion
	#region Gui8
	Case $msg = $next8
		If GUICtrlRead($exestart) = $GUI_CHECKED Then Run($installdir&""&$exe,$installdir)
		If GUICtrlRead($readmestart) = $GUI_CHECKED Then Run(@ComSpec & " /c " & '"'&$installdir&'\'&$readme&'"', "", @SW_HIDE)
		ExitLoop
	EndSelect
WEnd




Exit
;#######################################################
;Functionen
;#######################################################
Func _GuiSwitch($from,$to)
	GUISetState(@SW_HIDE,$from)
	GUISetState(@SW_SHOW,$to)
EndFunc

Alles anzeigen