Die Setup ist für selber gemacht Programme.
das zip für die installation wird aus dem Internet gezogen und in temp gespeichert und mit fertigstellen bottun wieder gelöscht
Spoiler anzeigen
#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
******** ********
******** ********
******** Copyright: R. Gilman (rasim) ********
******** ********
******** ********
****************************************************************************************
****************************************************************************************
****************************************************************************************
#ce
Global $hDLL_7ZIP = DllOpen(@ScriptDir & "\data\zip32.dll")
If $hDLL_7ZIP = -1 Then Exit 1
Global Const $FNAME_MAX32 = 512
Global $hArchiveProc
Global Const $FA_RDONLY = 0x01 ;Reading private file
Global Const $FA_HIDDEN = 0x02 ;Invisibility attribute file
Global Const $FA_SYSTEM = 0x04 ;System file
Global Const $FA_LABEL = 0x08 ;Volume label
Global Const $FA_DIREC = 0x10 ;Directory
Global Const $FA_ARCH = 0x20 ;Retention bit
Global Const $FA_ENCRYPTED = 0x40 ;The password the file which is protected
Global $tagINDIVIDUALINFO = "int dwOriginalSize;int dwCompressedSize;int dwCRC;uint uFlag;uint uOSType;short wRatio;" & _
"short wDate;short wTime;char szFileName[" & $FNAME_MAX32 + 1 & "];char dummy1[3];" & _
"char szAttribute[8];char szMode[8]"
Global Const $tagEXTRACTINGINFO = "int dwFileSize;int dwWriteSize;char szSourceFileName[" & $FNAME_MAX32 + 1 & "];" & _
"char dummy1[3];char szDestFileName[" & $FNAME_MAX32 + 1 & "];char dummy[3]"
Global Const $tagEXTRACTINGINFOEX = $tagEXTRACTINGINFO & ";dword dwCompressedSize;dword dwCRC;uint uOSType;short wRatio;" & _
"short wDate;short wTime;char szAttribute[8];char szMode[8]"
Func _7ZipAdd($hWnd, $sArcName, $sFileName, $sHide = 0, $sCompress = 5, $sRecurse = 1, $sIncludeFile = 0, $sExcludeFile = 0, _
$sPassword = 0, $sSFX = 0, $sVolume = 0, $sWorkDir = 0)
$sArcName = '"' & $sArcName & '"'
$sFileName = '"' & $sFileName & '"'
Local $iSwitch = ""
If $sHide Then $iSwitch &= " -hide"
$iSwitch &= " -mx" & $sCompress
$iSwitch &= _RecursionSet($sRecurse)
If $sIncludeFile Then $iSwitch &= _IncludeFileSet($sIncludeFile)
If $sExcludeFile Then $iSwitch &= _ExcludeFileSet($sExcludeFile)
If $sPassword Then $iSwitch &= " -p" & $sPassword
If FileExists($sSFX) Then $iSwitch &= " -sfx" & $sSFX
If $sVolume Then $iSwitch &= " -v" & $sVolume
If $sWorkDir Then $iSwitch &= " -w" & $sWorkDir
Local $tOutBuffer = DllStructCreate("char[32768]")
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZip", _
"hwnd", $hWnd, _
"str", "a " & $sArcName & " " & $sFileName & " " & $iSwitch, _
"ptr", DllStructGetPtr($tOutBuffer), _
"int", DllStructGetSize($tOutBuffer))
If Not $aRet[0] Then Return SetError(0, 0, DllStructGetData($tOutBuffer, 1))
Return SetError(1, 0, 0)
EndFunc ;==>_7ZipAdd
Func _7ZipDelete($hWnd, $sArcName, $sFileName, $sHide = 0, $sCompress = 5, $sRecurse = 1, $sIncludeFile = 0, $sExcludeFile = 0, _
$sPassword = 0, $sWorkDir = 0)
$sArcName = '"' & $sArcName & '"'
$sFileName = '"' & $sFileName & '"'
Local $iSwitch = ""
If $sHide Then $iSwitch &= " -hide"
$iSwitch &= " -mx" & $sCompress
$iSwitch &= _RecursionSet($sRecurse)
If $sIncludeFile Then $iSwitch &= _IncludeFileSet($sIncludeFile)
If $sExcludeFile Then $iSwitch &= _ExcludeFileSet($sExcludeFile)
If $sPassword Then $iSwitch &= " -p" & $sPassword
If $sWorkDir Then $iSwitch &= " -w" & $sWorkDir
Local $tOutBuffer = DllStructCreate("char[32768]")
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZip", _
"hwnd", $hWnd, _
"str", "d " & $sArcName & " " & $sFileName & " " & $iSwitch, _
"ptr", DllStructGetPtr($tOutBuffer), _
"int", DllStructGetSize($tOutBuffer))
If Not $aRet[0] Then Return SetError(0, 0, DllStructGetData($tOutBuffer, 1))
Return SetError(1, 0, 0)
EndFunc ;==>_7ZipDelete
Func _7ZIPExtract($hWnd, $sArcName, $sOutput = 0, $sHide = 0, $sOverwrite = 0, $sRecurse = 1, $sIncludeArc = 0, $sExcludeArc = 0, _
$sIncludeFile = 0, $sExcludeFile = 0, $sPassword = 0, $sYes = 0)
$sArcName = '"' & $sArcName & '"'
Local $iSwitch = ""
If $sOutput Then $iSwitch = ' -o"' & $sOutput & '"'
If $sHide Then $iSwitch &= " -hide"
$iSwitch &= _OverwriteSet($sOverwrite)
$iSwitch &= _RecursionSet($sRecurse)
If $sIncludeArc Then $iSwitch &= _IncludeArcSet($sIncludeArc)
If $sExcludeArc Then $iSwitch &= _ExcludeArcSet($sExcludeArc)
If $sIncludeFile Then $iSwitch &= _IncludeFileSet($sIncludeFile)
If $sExcludeFile Then $iSwitch &= _ExcludeFileSet($sExcludeFile)
If $sPassword Then $iSwitch &= " -p" & $sPassword
If $sYes Then $iSwitch &= " -y"
Local $tOutBuffer = DllStructCreate("char[32768]")
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZip", _
"hwnd", $hWnd, _
"str", "e " & $sArcName & " " & $iSwitch, _
"ptr", DllStructGetPtr($tOutBuffer), _
"int", DllStructGetSize($tOutBuffer))
If Not $aRet[0] Then Return SetError(0, 0, DllStructGetData($tOutBuffer, 1))
Return SetError(1, 0, 0)
EndFunc ;==>_7ZIPExtract
Func _7ZipExtractEx($hWnd, $sArcName, $sOutput = 0, $sHide = 0, $sOverwrite = 0, $sRecurse = 1, $sIncludeArc = 0, _
$sExcludeArc = 0, $sIncludeFile = 0, $sExcludeFile = 0, $sPassword = 0, $sYes = 0)
$sArcName = '"' & $sArcName & '"'
Local $iSwitch = ""
If $sOutput Then $iSwitch = ' -o"' & $sOutput & '"'
If $sHide Then $iSwitch &= " -hide"
$iSwitch &= _OverwriteSet($sOverwrite)
$iSwitch &= _RecursionSet($sRecurse)
If $sIncludeArc Then $iSwitch &= _IncludeArcSet($sIncludeArc)
If $sExcludeArc Then $iSwitch &= _ExcludeArcSet($sExcludeArc)
If $sIncludeFile Then $iSwitch &= _IncludeFileSet($sIncludeFile)
If $sExcludeFile Then $iSwitch &= _ExcludeFileSet($sExcludeFile)
If $sPassword Then $iSwitch &= " -p" & $sPassword
If $sYes Then $iSwitch &= " -y"
Local $tOutBuffer = DllStructCreate("char[32768]")
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZip", _
"hwnd", $hWnd, _
"str", "x " & $sArcName & " " & $iSwitch, _
"ptr", DllStructGetPtr($tOutBuffer), _
"int", DllStructGetSize($tOutBuffer))
If Not $aRet[0] Then Return SetError(0, 0, DllStructGetData($tOutBuffer, 1))
Return SetError(1, 0, 0)
EndFunc ;==>_7ZIPExtractEx
Func _7ZipUpdate($hWnd, $sArcName, $sFileName, $sHide = 0, $sCompress = 5, $sRecurse = 1, $sIncludeFile = 0, $sExcludeFile = 0, _
$sPassword = 0, $sSFX = 0, $sWorkDir = 0)
$sArcName = '"' & $sArcName & '"'
$sFileName = '"' & $sFileName & '"'
Local $iSwitch = ""
If $sHide Then $iSwitch &= " -hide"
$iSwitch = " -mx" & $sCompress
$iSwitch &= _RecursionSet($sRecurse)
If $sIncludeFile Then $iSwitch &= _IncludeFileSet($sIncludeFile)
If $sExcludeFile Then $iSwitch &= _ExcludeFileSet($sExcludeFile)
If $sPassword Then $iSwitch &= " -p" & $sPassword
If FileExists($sSFX) Then $iSwitch &= " -sfx" & $sSFX
If $sWorkDir Then $iSwitch &= " -w" & $sWorkDir
Local $tOutBuffer = DllStructCreate("char[32768]")
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZip", _
"hwnd", $hWnd, _
"str", "u " & $sArcName & " " & $sFileName & " " & $iSwitch, _
"ptr", DllStructGetPtr($tOutBuffer), _
"int", DllStructGetSize($tOutBuffer))
If Not $aRet[0] Then Return SetError(0, 0, DllStructGetData($tOutBuffer, 1))
Return SetError(1, 0, 0)
EndFunc ;==>_7ZIPUpdate
Func _7ZipSetOwnerWindowEx($hWnd, $sProcFunc)
If $hArchiveProc Then DllCallbackFree($hArchiveProc)
$hArchiveProc = DllCallbackRegister($sProcFunc, "int", "hwnd;uint;uint;ptr")
If $hArchiveProc = 0 Then Return SetError(1, 0, 0)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipSetOwnerWindowEx", _
"hwnd", $hWnd, _
"ptr", DllCallbackGetPtr($hArchiveProc))
Return $aRet[0]
EndFunc ;==>_7ZipSetOwnerWindowEx
Func _7ZipKillOwnerWindowEx($hWnd)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipKillOwnerWindowEx", _
"hwnd", $hWnd)
Return $aRet[0]
EndFunc ;==>_7ZipKillOwnerWindowEx
Func _7ZipOpenArchive($hWnd, $sArcName)
Local $hArc = DllCall($hDLL_7ZIP, "hwnd", "SevenZipOpenArchive", "hwnd", $hWnd, "str", $sArcName, "int", 0)
Return $hArc[0]
EndFunc ;==>_7ZipOpenArchive
Func _7ZipCloseArchive($hArc)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipCloseArchive", "hwnd", $hArc)
Return $aRet[0]
EndFunc ;==>_7ZipCloseArchive
Func _7ZipFindFirst($hArc, $sSearch)
Local $INDIVIDUALINFO = DllStructCreate($tagINDIVIDUALINFO)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipFindFirst", _
"hwnd", $hArc, _
"str", $sSearch, _
"ptr", DllStructGetPtr($INDIVIDUALINFO))
If $aRet[0] = -1 Then Return $aRet[0]
Return $INDIVIDUALINFO
EndFunc ;==>_7ZipFindFirst
Func _7ZipFindNext($hArc, $tINDIVIDUALINFO)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipFindNext", _
"hwnd", $hArc, _
"ptr", DllStructGetPtr($tINDIVIDUALINFO))
If $aRet[0] = 0 Then Return $tINDIVIDUALINFO
EndFunc ;==>SevenZipFindNext
Func _7ZipGetFileName($hArc)
Local $tNameBuffer = DllStructCreate("char[" & $FNAME_MAX32 + 1 & "]")
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipGetFileName", _
"hwnd", $hArc, _
"ptr", DllStructGetPtr($tNameBuffer), _
"int", DllStructGetSize($tNameBuffer))
If $aRet[0] = 0 Then Return DllStructGetData($tNameBuffer, 1)
EndFunc ;==>_7ZipGetFileName
Func _7ZipGetArcOriginalSize($hArc)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipGetArcOriginalSize", _
"hwnd", $hArc)
Return $aRet[0]
EndFunc ;==>_7ZipGetArcOriginalSize
Func _7ZipGetArcCompressedSize($hArc)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipGetArcCompressedSize", _
"hwnd", $hArc)
Return $aRet[0]
EndFunc ;==>_7ZipGetArcCompressedSize
Func _7ZipGetArcRatio($hArc)
Local $aRet = DllCall($hDLL_7ZIP, "short", "SevenZipGetArcRatio", _
"hwnd", $hArc)
Return $aRet[0]
EndFunc ;==>_7ZipGetArcRatio
Func _7ZipGetDate($hArc)
Local $aRet = DllCall($hDLL_7ZIP, "short", "SevenZipGetDate", _
"hwnd", $hArc)
If $aRet[0] = -1 Then Return $aRet[0]
Return "0x" & Hex($aRet[0], 4)
EndFunc ;==>_7ZipGetDate
Func _7ZipGetTime($hArc)
Local $aRet = DllCall($hDLL_7ZIP, "short", "SevenZipGetTime", _
"hwnd", $hArc)
If $aRet[0] = -1 Then Return $aRet[0]
Return "0x" & Hex($aRet[0], 4)
EndFunc ;==>_7ZipGetTime
Func _7ZipGetCRC($hArc)
Local $aRet = DllCall($hDLL_7ZIP, "dword", "SevenZipGetCRC", _
"hwnd", $hArc)
Return $aRet[0]
EndFunc ;==>_7ZipGetCRC
Func _7ZipGetAttribute($hArc)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipGetAttribute", _
"hwnd", $hArc)
If $aRet[0] = -1 Then Return $aRet[0]
Return "0x" & Hex($aRet[0], 2)
EndFunc ;==>_7ZipGetAttribute
Func _7ZipGetMethod($hArc)
Local $sBUFFER = DllStructCreate("char[8]")
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipGetMethod", _
"hwnd", $hArc, _
"ptr", DllStructGetPtr($sBUFFER), _
"int", DllStructGetSize($sBUFFER))
If $aRet[0] <> 0 Then Return False
Return DllStructGetData($sBUFFER, 1)
EndFunc ;==>_7ZipGetMethod
Func _7ZipCheckArchive($sArcName)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipCheckArchive", _
"str", $sArcName, _
"int", 0)
Return $aRet[0]
EndFunc ;==>_7ZIPCheckArchive
Func _7ZipGetArchiveType($sArcName)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipGetArchiveType", _
"str", $sArcName)
Return $aRet[0]
EndFunc ;==>_7ZIPGetArchiveType
Func _7ZipGetFileCount($sArcName)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipGetFileCount", _
"str", $sArcName)
Return $aRet[0]
EndFunc
Func _7ZipConfigDialog($hWnd)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipConfigDialog", _
"hwnd", $hWnd, _
"ptr", 0, _
"int", 0)
Return $aRet[0]
EndFunc ;==>SevenZipConfigDialog
Func _7ZipQueryFunctionList($iFunction = 0)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipQueryFunctionList", _
"int", $iFunction)
Return $aRet[0]
EndFunc ;==>_7ZipQueryFunctionList
Func _7ZipGetVersion()
Local $aRet = DllCall($hDLL_7ZIP, "short", "SevenZipGetVersion")
Return StringLeft($aRet[0], 1) & "." & StringTrimLeft($aRet[0], 1)
EndFunc ;==>_7ZipGetVersion
Func _7ZipGetSubVersion()
Local $aRet = DllCall($hDLL_7ZIP, "short", "SevenZipGetSubVersion")
Return $aRet[0]
EndFunc ;==>_7ZipGetSubVersion
Func _RecursionSet($sVal)
Switch $sVal
Case 1
Return " -r"
Case 2
Return " -r0"
Case Else
Return " -r-"
EndSwitch
EndFunc ;==>_RecursionSet
Func _IncludeFileSet($sVal)
If StringInStr($sVal, "*") Then
Return ' -i!"' & $sVal & '"'
ElseIf StringLeft($sVal, 1) = "@" Then
Return ' -i"' & $sVal & '"'
Else
Return ' -i!"' & $sVal & '"'
EndIf
EndFunc ;==>_IncludeFileSet
Func _ExcludeFileSet($sVal)
If StringInStr($sVal, "*") Then
Return ' -x!"' & $sVal & '"'
ElseIf StringLeft($sVal, 1) = "@" Then
Return ' -x"' & $sVal & '"'
Else
Return ' -x!"' & $sVal & '"'
EndIf
EndFunc ;==>_ExcludeFileSet
Func _OverwriteSet($sVal)
Switch $sVal
Case 0
Return " -aoa"
Case 1
Return " -aos"
Case 2
Return " -aou"
Case 3
Return " -aot"
Case Else
Return " -aoa"
EndSwitch
EndFunc ;==>_OverwriteSet
Func _IncludeArcSet($sVal)
If StringInStr($sVal, "*") Then
Return ' -ai!"' & $sVal & '"'
ElseIf StringLeft($sVal, 1) = "@" Then
Return ' -ai"' & $sVal & '"'
Else
Return ' -ai!"' & $sVal & '"'
EndIf
EndFunc ;==>_IncludeArcSet
Func _ExcludeArcSet($sVal)
If StringInStr($sVal, "*") Then
Return ' -ax!"' & $sVal & '"'
ElseIf StringLeft($sVal, 1) = "@" Then
Return ' -ax"' & $sVal & '"'
Else
Return ' -ax!"' & $sVal & '"'
EndIf
EndFunc ;==>_ExcludeArcSet
Func OnAutoitExit()
If IsDeclared("hDLL_7ZIP") Then
DllClose($hDLL_7ZIP)
If $hArchiveProc Then DllCallbackFree($hArchiveProc)
EndIf
EndFunc ;==>OnAutoitExit
#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
******** ********
******** ********
******** Copyright: R. Gilman (rasim) ********
******** ********
******** ********
****************************************************************************************
****************************************************************************************
****************************************************************************************
#ce
#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
******** ********
******** ********
******** Dies ist ein Setup_Version 1.0.0 ********
******** Copyright: Sirocool ( http://www.autoit.de ) ********
******** ********
******** ********
******** Es läuft zu 100% auf Windows XP ********
******** Es läuft zu 000% auf Windows Vista (wurde noch nicht getestet) ********
******** Es läuft zu 100% auf Windows 07 x64 7201 ********
******** Alle anderen Windows Versionen sind nicht getestet! ********
******** ********
******** Mit freundlicher Mithilfe von http://www.autoit.de ********
******** Danke an alle die mir mit diesem Projekt geholfen haben. ********
******** ********
******** Bei Fragen oder Problemen, schreib mir eine PN im Forum. ********
******** ********
******** ********
****************************************************************************************
****************************************************************************************
****************************************************************************************
#ce
#RequireAdmin
#NoTrayIcon
#include <GUIConstants.au3>
#Include <GuiComboBox.au3>
#include <INet.au3>
#Include <File.au3>
#include <ComboConstants.au3>
#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ListViewConstants.au3>
#include <StructureConstants.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <String.au3>
#include <GuiTab.au3>
#include <Array.au3>
Dim $Obj[49]
$INI = @ScriptDir & "\data\Languages.ini"
InetGet( "http://sirocool.si.funpic.de/Devil%20Software/WebRadio/Download/data.zip",@TempDir & "\Setup-Assistent.zip", 1, 0)
$ArcFile = @TempDir & "\Setup-Assistent.zip"
If @error Then Exit
#Region ### START Koda GUI section ###
$Form1 = GUICreate("Setup-Sprache auswählen", 303, 152, -1, -1, 0x00000000+0x00080000)
Trayseticon("data/img/icon/System-Install.ico")
Guiseticon("data/img/icon/System-Install.ico")
GUISetBkColor(0xffffff)
GUICtrlCreatePic(@ScriptDir & "\data\img\pic\System-Install.gif",5, 10, 48, 48, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Read = IniReadSectionNames ($INI)
$Combo1 = GUICtrlCreateCombo($Read[1], 56, 56, 225, 25)
$Sprache = $Read[1]
For $1 = 2 To $Read[0]
_GUICtrlComboBox_AddString($Combo1, $Read[$1])
Next
$Obj[0] = GUICtrlCreateButton(IniRead ($INI,$Sprache,"1","OK"), 120, 88, 75, 25, 0)
$Obj[1] = GUICtrlCreateButton(IniRead ($INI,$Sprache,"2","Abbrechen"), 208, 88, 75, 25, 0)
$Obj[2] = GUICtrlCreateLabel (IniRead ($INI,$Sprache,"3","Wählen Sie die Sprache aus,die während der "),56, 16, 365, 25)
$Obj[3] = GUICtrlCreateLabel (IniRead ($INI,$Sprache,"4","Installation benutz werden soll:"),56, 30, 365, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ###
$Form2 = GUICreate("Setup-Assistenten", 496, 360, -1, -1)
Trayseticon("data/img/icon/System-Install.ico")
Guiseticon("data/img/icon/System-Install.ico")
GUISetBkColor(0xffffff)
GUICtrlCreatePic(@ScriptDir & "\data\img\pic\logo.gif",0, 0, 150, 314, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Obj[4] = GUICtrlCreateButton(IniRead ($INI,$Sprache,"5","Weiter"), 320, 325, 75, 25, 0)
$Obj[5] = GUICtrlCreateButton(IniRead ($INI,$Sprache,"6","Abbrechen"), 408, 325, 75, 25, 0)
$Obj[6] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"7","Willkommen zum WebRadio"), 160, 16, 300, 25)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Obj[7]= GUICtrlCreateLabel(IniRead ($INI,$Sprache,"8","Setup-Assistenten"), 160, 35, 300, 25)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Obj[8] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"9","Dieser Assistent wird jetzt WebRadio 1.0.6 auf Ihrem"), 160, 80, 300, 25)
$Obj[9] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"10","Computer installieren."), 160, 95, 300, 25)
$Obj[10] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"11","Sie sollten alle anderen Anwendungen beenden, bevor Sie mit"), 160, 120, 300, 25)
$Obj[11] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"12","dem Setup fortfahren"), 160, 135, 300, 25)
$Obj[12] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"13","Weiter zum Fortfahren,Abbrechen zum Verlassen."), 160, 160, 300, 25)
GUICtrlCreateLabel("http://www.Devil-Software.de", 20, 330, 300, 25)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlCreateLabel("",0,314,@DesktopWidth,1)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlCreateLabel("",150,0,1,314)
GUICtrlSetBkColor(-1,0x000000)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ###
$Form3 = GUICreate("Setup-Assistenten", 496, 360, -1, -1)
Trayseticon("data/img/icon/System-Install.ico")
Guiseticon("data/img/icon/System-Install.ico")
GUISetBkColor(0xffffff)
GUICtrlCreatePic(@ScriptDir & "\data\img\pic\System-Install.gif",443, 5, 48, 48, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlCreateLabel("http://www.Devil-Software.de", 20, 330, 300, 25)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
$Obj[13] = GUICtrlCreateRadio(IniRead ($INI,$Sprache,"14","Ich akzeptiere die Vereinbarung"), 40, 270, 270, 17)
$Obj[14] = GUICtrlCreateRadio(IniRead ($INI,$Sprache,"15","Ich lehne die Vereinbarung ab"), 40, 290, 270, 17)
GUICtrlSetState($Obj[14],$GUI_CHECKED)
$Obj[15]= GUICtrlCreateButton(IniRead ($INI,$Sprache,"16","< Zurück"), 245, 325, 75, 25, 0)
$Obj[16]= GUICtrlCreateButton(IniRead ($INI,$Sprache,"17","Weiter >"), 320, 325, 75, 25, 0)
GUICtrlSetState($Obj[16], $GUI_DISABLE)
$Obj[17] = GUICtrlCreateButton(IniRead ($INI,$Sprache,"18","Abbrechen"), 408, 325, 75, 25, 0)
$Obj[18] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"19","Lizenzvereinbarung"), 25, 16, 300, 25)
GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
$Obj[19] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"20","Lesen Sie bitte folgende,wichtige Informationen bevor Sie fortfahren."), 40, 32, 350, 25)
$Obj[20] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"21","Lesen Sie bitte die folgenden Lizenzvereinbarungen.Benutzen Sie bei Bedarf die"), 40, 75, 390, 25)
$Obj[21] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"22","Bildlaufleiste oder drücken Sie die BildAb-Taste."), 40, 90, 390, 25)
$Obj[22]= (@ScriptDir & IniRead ($INI,$Sprache,"23","\data\Sprachen\de.txt"))
$Lizenztext = GUICtrlCreateEdit($Obj[22], 40, 115, 400, 145)
GUICtrlSetData($Lizenztext, FileRead($Obj[22]))
GUICtrlCreateLabel("",0,314,@DesktopWidth,1)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlCreateLabel("",0,59,@DesktopWidth,1)
GUICtrlSetBkColor(-1,0x000000)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ###
$Form4 = GUICreate("Setup-Assistenten", 496, 360, -1, -1)
Trayseticon("data/img/icon/System-Install.ico")
Guiseticon("data/img/icon/System-Install.ico")
GUISetBkColor(0xffffff)
GUICtrlCreatePic(@ScriptDir & "\data\img\pic\System-Install.gif",443, 5, 48, 48, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlCreateLabel("http://www.Devil-Software.de", 20, 330, 300, 25)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
$Obj[23]= GUICtrlCreateButton(IniRead ($INI,$Sprache,"24","< Zurück"), 245, 325, 75, 25, 0)
$Obj[24]= GUICtrlCreateButton(IniRead ($INI,$Sprache,"25","Weiter >"), 320, 325, 75, 25, 0)
$Obj[25] = GUICtrlCreateButton(IniRead ($INI,$Sprache,"26","Abbrechen"), 408, 325, 75, 25, 0)
$Obj[26] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"27","Ziel-Ordner wählen"), 25, 16, 300, 25)
GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
$Obj[27] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"28","Wohin soll Setup-Assistent installieren?"), 40, 32, 350, 25)
GUICtrlCreatePic(@ScriptDir & "\data\img\pic\ordner.gif",40, 90, 38, 38, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Obj[28] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"29","Das Setup wird das Programm in folgenenden Ordner installieren."), 100, 100, 390, 25)
$Obj[29] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"30","Klicken Sie auf Weiter,um fortzufahren.Klicken Sie auch Durchsuchen,falls Sie"), 40, 150, 390, 25)
$Obj[30] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"31","einen anderen Ordner auswählen möchten."), 40, 170, 390, 25)
$Obj[31] = GUICtrlCreateInput(IniRead ($INI,$Sprache,"32",""), 40, 195, 325, 21);
$Obj[32] = GUICtrlCreateButton(IniRead ($INI,$Sprache,"33","Durchsuchen..."), 380, 195, 100, 25, 0)
$Obj[33] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"34","Mindestens 20,0 MB freier Speicherplatz ist erforderlich."), 40, 290, 390, 25)
GUICtrlCreateLabel("",0,314,@DesktopWidth,1)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlCreateLabel("",0,59,@DesktopWidth,1)
GUICtrlSetBkColor(-1,0x000000)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ###
$Form5 = GUICreate("Setup - Installation", 496, 360, -1, -1)
Trayseticon("data/img/icon/System-Install.ico")
Guiseticon("data/img/icon/System-Install.ico")
GUISetBkColor(0xffffff)
GUICtrlCreatePic(@ScriptDir & "\img\pic\System-Install.gif",443, 5, 48, 48, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlCreateLabel("http://www.Devil-Software.de", 20, 330, 300, 25)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
$ctlEdit = GUICtrlCreateEdit("", 40, 115, 400, 145)
$ctlProgress = GUICtrlCreateProgress(40, 280, 400, 20)
$Obj[34]= GUICtrlCreateButton(IniRead ($INI,$Sprache,"35","< Zurück"), 245, 325, 75, 25, 0)
$Obj[35]= GUICtrlCreateButton(IniRead ($INI,$Sprache,"36","Installieren >"), 320, 325, 75, 25, 0)
$Obj[36] = GUICtrlCreateButton(IniRead ($INI,$Sprache,"37","Abbrechen"), 408, 325, 75, 25, 0)
$Obj[37] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"38","Installation durchführen"), 25, 16, 300, 25)
GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
$Obj[38] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"39","Das Setup ist jetzt bereit,auf Ihren Computer zu installieren."), 40, 32, 350, 25)
$Obj[39] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"40","Klicken Sie auf Installieren,um mit der Installation zu beginnen,oder auf Zurück,um"), 40, 75, 390, 25)
$Obj[40] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"41","Ihre Einstellungen zu überprüfen oder zu ändern."), 40, 90, 390, 25)
GUICtrlCreateLabel("",0,314,@DesktopWidth,1)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlCreateLabel("",0,59,@DesktopWidth,1)
GUICtrlSetBkColor(-1,0x000000)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ###
$Form6 = GUICreate("Setup-Assistenten", 496, 360, -1, -1)
Trayseticon("data/img/icon/System-Install.ico")
Guiseticon("data/img/icon/System-Install.ico")
GUISetBkColor(0xffffff)
GUICtrlCreatePic(@ScriptDir & "\data\img\pic\logo.gif",0, 0, 150, 314, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Obj[41] = GUICtrlCreateButton(IniRead ($INI,$Sprache,"42","Fertigstellen"), 320, 325, 75, 25, 0)
$Obj[42] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"43","Beenden des Setup-Assistenten"), 160, 16, 300, 25)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Obj[43] = GUICtrlCreateCheckbox(IniRead ($INI,$Sprache,"44","Verknüpfungen anlegen auf Desktop"), 160, 160, 300, 17)
$Obj[44] = GUICtrlCreateCheckbox(IniRead ($INI,$Sprache,"45","Name deines Programmes starten"), 160, 184, 300, 17)
$Obj[45] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"46","Setup hat die Installation vom Programm auf Ihren"), 160, 60, 300, 25)
$Obj[46] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"47","Computer abgeschlossen.Die Anwendung kann über die"), 160, 76, 300, 25)
$Obj[47] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"48","installierten Programm-Verknüpfungen gestartet werden."), 160, 92, 300, 25)
$Obj[48] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"49","Klicken Sie auf Fertigstellen, um das Setup zu beenden."), 160, 125, 300, 25)
GUICtrlCreateLabel("",0,314,@DesktopWidth,1)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlCreateLabel("",150,0,1,314)
GUICtrlSetBkColor(-1,0x000000)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[1]
Case $Form1
Switch $nMsg[0]
Case -3
Exit
Case $Combo1
_SprachW($INI,GUICtrlRead($Combo1))
Case $Obj[0]
GUISetState(@SW_SHOW, $Form2)
GUISetState(@SW_HIDE, $Form1)
Case $Obj[1]
If MsgBox(32 + 4, "Setup verlassen", "Das Setup ist noch nicht abgeschlossen.Wenn Sie jetzt beenden,wird das Programm nicht Installiert."& @CRLF &""& @CRLF &"Sie können das Setup-Prgramm zu einem späteren Zeitpunkt nochmals ausführen, um die Installation zu vervollständigen."& @CRLF &""& @CRLF &"Setup verlassen?")= 6 Then _exit()
EndSwitch
Case $Form2
Switch $nMsg[0]
Case $Obj[4]
GUISetState(@SW_SHOW, $Form3)
GUISetState(@SW_HIDE, $Form2)
Case $Obj[5]
If MsgBox(32 + 4, "Setup verlassen", "Das Setup ist noch nicht abgeschlossen.Wenn Sie jetzt beenden,wird das Programm nicht Installiert."& @CRLF &""& @CRLF &"Sie können das Setup-Prgramm zu einem späteren Zeitpunkt nochmals ausführen, um die Installation zu vervollständigen."& @CRLF &""& @CRLF &"Setup verlassen?")= 6 Then _exit()
Case -3
GUISetState (@SW_HIDE,$Form2)
EndSwitch
Case $Form3
Switch $nMsg[0]
Case $Obj[13]
GUICtrlSetState($Obj[16], $GUI_ENABLE)
Case $Obj[14]
GUICtrlSetState($Obj[16], $GUI_DISABLE)
;Case $Obj[15]
;GUISetState(@SW_SHOW, $Form1)
Case $Obj[16]
GUISetState(@SW_HIDE, $Form3)
GUISetState(@SW_SHOW, $Form4)
Case $Obj[17]
If MsgBox(32 + 4, "Setup verlassen", "Das Setup ist noch nicht abgeschlossen.Wenn Sie jetzt beenden,wird das Programm nicht Installiert."& @CRLF &""& @CRLF &"Sie können das Setup-Prgramm zu einem späteren Zeitpunkt nochmals ausführen, um die Installation zu vervollständigen."& @CRLF &""& @CRLF &"Setup verlassen?")= 6 Then _exit()
Case -3
GUISetState (@SW_HIDE,$Form3)
EndSwitch
Case $Form4
Switch $nMsg[0]
Case $Obj[24]
GUISetState (@SW_HIDE,$Form4)
$PH1 = GUICtrlRead($Obj[31], 1)
If $PH1 < " " Then
MsgBox(16, "Error", "Bitte Pfad eingeben!")
_exit()
EndIf
GUISetState(@SW_SHOW, $Form5)
Case $Obj[25]
If MsgBox(32 + 4, "Setup verlassen", "Das Setup ist noch nicht abgeschlossen.Wenn Sie jetzt beenden,wird das Programm nicht Installiert."& @CRLF &""& @CRLF &"Sie können das Setup-Prgramm zu einem späteren Zeitpunkt nochmals ausführen, um die Installation zu vervollständigen."& @CRLF &""& @CRLF &"Setup verlassen?")= 6 Then _exit()
Case $Obj[32]
$sOutput = FileSelectFolder("Bitte Installationspfad wählen", "", 1, "", $Form4)
GUICtrlSetData($Obj[31],$sOutput)
Case -3
GUISetState (@SW_HIDE,$Form4)
EndSwitch
Case $Form5
Switch $nMsg[0]
Case $Obj[35]
_go()
Case $Obj[36]
If MsgBox(32 + 4, "Setup verlassen", "Das Setup ist noch nicht abgeschlossen.Wenn Sie jetzt beenden,wird das Programm nicht Installiert."& @CRLF &""& @CRLF &"Sie können das Setup-Prgramm zu einem späteren Zeitpunkt nochmals ausführen, um die Installation zu vervollständigen."& @CRLF &""& @CRLF &"Setup verlassen?")= 6 Then _exit()
Case -3
GUISetState (@SW_HIDE,$Form5)
EndSwitch
Case $Form6
Switch $nMsg[0]
Case $Obj[41]
FileDelete(@TempDir & "\Setup-Assistent.zip")
If MsgBox(32 + 4, "Installation verlassen", "Die Installation ist nun abgeschlossen.")= 6 Then _exit()
Case -3
GUISetState (@SW_HIDE,$Form6)
EndSwitch
EndSwitch
WEnd
Func _SprachW($sINI,$sSprache)
Global $Sprache = $sSprache
For $1 = 0 To UBound ($Obj) -1
GUICtrlSetData ($Obj[$1],IniRead($INI,$Sprache,$1 +1,""))
Next
EndFunc
func _go()
$retResult = _7ZipSetOwnerWindowEx($Form5, "_ARCHIVERPROC")
If $retResult = 0 Then Exit MsgBox(16, "_7ZipAdd demo", "Error occured")
$retResult = _7ZIPExtractEx($Form5, $ArcFile, $sOutput, 1)
If @error = 0 Then
MsgBox(64, "Info","Archiv entpackt erfolgreich", 0, $Form5)
Sleep(1500)
GUISetState (@SW_HIDE,$Form5)
GUISetState (@SW_SHOW,$Form6)
Else
MsgBox(64, "Error", "Fehler aufgetreten", 0, $Form5)
EndIf
GUICtrlSetData($ctlProgress, 0)
EndFunc
Func _ARCHIVERPROC($hWnd, $Msg, $nState, $ExInfo)
Local $iFileSize, $iWriteSize, $iPercent = 0
If $nState = 0 Then
Local $EXTRACTINGINFO = DllStructCreate($tagEXTRACTINGINFO, $ExInfo)
GUICtrlSetData($ctlEdit,DllStructGetData($EXTRACTINGINFO, "szSourceFileName")& @CRLF, 1)
$iFileSize = DllStructGetData($EXTRACTINGINFO, "dwFileSize")
$iWriteSize = DllStructGetData($EXTRACTINGINFO, "dwWriteSize")
$iPercent = Int($iWriteSize / $iFileSize * 100)
GUICtrlSetData($ctlProgress, $iPercent)
Return 1
EndIf
If $nState = 2 Then GUICtrlSetData($ctlProgress, 100)
Return 1
EndFunc
func _exit()
Exit
EndFunc
im download dabei
-Setup.au3 sowie setup.exe
-data ordner
-zip.dll
Ps.: es ist noch nicht 100% ausgereift
bei mir geht es aber ohne fehler bis jetzt zurzeit