Dreamscene Installer

#NoTrayIcon
#RequireAdmin


#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=D:\Meine Apps\tools\gfx\DreamScene.ico
#AutoIt3Wrapper_Outfile=Dreamscene Installer.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=Dreamscene Installer
#AutoIt3Wrapper_Res_Description=Dreamscene Installer
#AutoIt3Wrapper_Res_Fileversion=1.0.0.1
#AutoIt3Wrapper_Res_LegalCopyright=© ICE Tec. All rights reserved.
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_Field=CompanyName|ICE Tec
#AutoIt3Wrapper_Res_Field=OriginalFileName|Dreamscene Installer.exe
#AutoIt3Wrapper_Res_Field=ProductName|Windows Dreamscene Installer
#AutoIt3Wrapper_Res_Field=ProductVersion|1.0.0.1
#AutoIt3Wrapper_Run_Tidy=y
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****


#include <Process.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEX.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>


Global $workpath = @UserProfileDir & "\AppData\Local\Temp\Dreamscene"
Global $DreamScene = @WindowsDir & "\Web\Windows DreamScene"
Global $gui, $Button_1, $Button_2, $msg


$gui = GUICreate("Dreamscene Installer", 170, 80, -1, -1, -1, BitOR($WS_EX_APPWINDOW, $WS_EX_TOOLWINDOW))
$Button_1 = GUICtrlCreateButton("Installieren", 35, 10, 100, 20)
GUICtrlSetFont($Button_1, 9, 500)
$Button_2 = GUICtrlCreateButton("Deinstallation", 35, 32, 100, 20)
GUICtrlSetFont($Button_2, 9, 500)
$Button_3 = GUICtrlCreateButton("Info", 60, 54, 50, 20)
GUISetBkColor(0xFFAC01, $gui)
GUICtrlSetFont($Button_3, 9, 500)
GUISetState()


While 1
	$msg = GUIGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE
			ExitLoop
		Case $msg = $Button_1
			_Installieren()
		Case $msg = $Button_2
			_Deinstallation()
		Case $msg = $Button_3
			MsgBox(8256, "Dreamscene Installer", StringReplace("           Why go you to High School, when you can go High to School _ _ _                                        Dreamscene Installer v1.0.0.1 _ _                     Copyrights: © ICE Technologie. All rights reserved. _                     Greetings from GERMANY (Singen am Hohentwiel)", "_", @CR))
	EndSelect
WEnd


Func _Installieren()
	_RunDos("TASKKILL /F /IM Explorer.exe")
	DirCreate($workpath)
	FileInstall("D:\Meine Apps\tools\DreamScene_i.reg", $workpath & "\DreamScene_i.reg", 1)
	ShellExecuteWait("regedit.exe", "/s " & $workpath & "\DreamScene_i.reg", @WindowsDir, "", @SW_HIDE)
	DirRemove($workpath, 1)
	DirCreate($DreamScene)
	FileInstall("D:\Meine Apps\tools\DreamScene.dll", @SystemDir & "\DreamScene.dll", 1)
	FileInstall("D:\Meine Apps\tools\DreamScene.dll.mui", @SystemDir & "\en-US\DreamScene.dll.mui", 1)
	_RunDos("START Explorer.exe")
	WinActivate("Dreamscene Installer", "")
	MsgBox(64, "Dreamscene Installer", "      Dreamscene wurde" & @CRLF & "             installiiert", 10)
EndFunc   ;==>_Installieren


Func _Deinstallation()
	_RunDos("TASKKILL /F /IM Explorer.exe")
	DirCreate($workpath)
	FileInstall("D:\Meine Apps\tools\DreamScene_d.reg", $workpath & "\DreamScene_d.reg", 1)
	ShellExecuteWait("regedit.exe", "/s " & $workpath & "\DreamScene_d.reg", @WindowsDir, "", @SW_HIDE)
	DirRemove($workpath, 1)
	FileDelete(@SystemDir & "\DreamScene.dll")
	FileDelete(@SystemDir & "\en-US\DreamScene.dll.mui")
	DirRemove($DreamScene, 1)
	_RunDos("START Explorer.exe")
	WinActivate("Dreamscene Installer", "")
	MsgBox(64, "Dreamscene Deinstallieren", "       Dreamscene wurde" & @CRLF & "             deinstalliert", 10)
EndFunc   ;==>_Deinstallation