Setup

Sirocool

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

[autoit]

#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]"

[/autoit] [autoit][/autoit] [autoit]

Func _7ZipAdd($hWnd, $sArcName, $sFileName, $sHide = 0, $sCompress = 5, $sRecurse = 1, $sIncludeFile = 0, $sExcludeFile = 0, _
$sPassword = 0, $sSFX = 0, $sVolume = 0, $sWorkDir = 0)

[/autoit] [autoit][/autoit] [autoit]

$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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

Func _7ZipKillOwnerWindowEx($hWnd)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipKillOwnerWindowEx", _
"hwnd", $hWnd)
Return $aRet[0]
EndFunc ;==>_7ZipKillOwnerWindowEx

[/autoit] [autoit][/autoit] [autoit]

Func _7ZipOpenArchive($hWnd, $sArcName)
Local $hArc = DllCall($hDLL_7ZIP, "hwnd", "SevenZipOpenArchive", "hwnd", $hWnd, "str", $sArcName, "int", 0)
Return $hArc[0]
EndFunc ;==>_7ZipOpenArchive

[/autoit] [autoit][/autoit] [autoit]

Func _7ZipCloseArchive($hArc)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipCloseArchive", "hwnd", $hArc)
Return $aRet[0]
EndFunc ;==>_7ZipCloseArchive

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

Func _7ZipGetArcOriginalSize($hArc)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipGetArcOriginalSize", _
"hwnd", $hArc)
Return $aRet[0]
EndFunc ;==>_7ZipGetArcOriginalSize

[/autoit] [autoit][/autoit] [autoit]

Func _7ZipGetArcCompressedSize($hArc)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipGetArcCompressedSize", _
"hwnd", $hArc)
Return $aRet[0]
EndFunc ;==>_7ZipGetArcCompressedSize

[/autoit] [autoit][/autoit] [autoit]

Func _7ZipGetArcRatio($hArc)
Local $aRet = DllCall($hDLL_7ZIP, "short", "SevenZipGetArcRatio", _
"hwnd", $hArc)
Return $aRet[0]
EndFunc ;==>_7ZipGetArcRatio

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

Func _7ZipGetCRC($hArc)
Local $aRet = DllCall($hDLL_7ZIP, "dword", "SevenZipGetCRC", _
"hwnd", $hArc)
Return $aRet[0]
EndFunc ;==>_7ZipGetCRC

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

Func _7ZipGetMethod($hArc)
Local $sBUFFER = DllStructCreate("char[8]")

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

Func _7ZipCheckArchive($sArcName)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipCheckArchive", _
"str", $sArcName, _
"int", 0)
Return $aRet[0]
EndFunc ;==>_7ZIPCheckArchive

[/autoit] [autoit][/autoit] [autoit]

Func _7ZipGetArchiveType($sArcName)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipGetArchiveType", _
"str", $sArcName)
Return $aRet[0]
EndFunc ;==>_7ZIPGetArchiveType

[/autoit] [autoit][/autoit] [autoit]

Func _7ZipGetFileCount($sArcName)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipGetFileCount", _
"str", $sArcName)
Return $aRet[0]
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _7ZipConfigDialog($hWnd)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipConfigDialog", _
"hwnd", $hWnd, _
"ptr", 0, _
"int", 0)
Return $aRet[0]
EndFunc ;==>SevenZipConfigDialog

[/autoit] [autoit][/autoit] [autoit]

Func _7ZipQueryFunctionList($iFunction = 0)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipQueryFunctionList", _
"int", $iFunction)
Return $aRet[0]
EndFunc ;==>_7ZipQueryFunctionList

[/autoit] [autoit][/autoit] [autoit]

Func _7ZipGetVersion()
Local $aRet = DllCall($hDLL_7ZIP, "short", "SevenZipGetVersion")
Return StringLeft($aRet[0], 1) & "." & StringTrimLeft($aRet[0], 1)
EndFunc ;==>_7ZipGetVersion

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#include <ComboConstants.au3>
#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

#include <ListViewConstants.au3>
#include <StructureConstants.au3>
#include <GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#include <StructureConstants.au3>
#include <String.au3>

[/autoit] [autoit][/autoit] [autoit]

#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 ###

[/autoit] [autoit][/autoit] [autoit]

#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 ###

[/autoit] [autoit][/autoit] [autoit]

#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 ###

[/autoit] [autoit][/autoit] [autoit]

#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 ###

[/autoit] [autoit][/autoit] [autoit]

#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 ###

[/autoit] [autoit][/autoit] [autoit]

#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 ###

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

func _exit()
Exit
EndFunc

[/autoit]

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

K1773R

öhm das hast du doch schonmal iwo gepostet! warum nochmal? i.Tv Player hmmmm

Sirocool

für einen steup für selbst gemacht autoitscripte

habe den nicht gepostet auch nicht bei itv also nichst doppelt

K1773R

sry war wohl bissel zu schnell

für setups generell empfehl ich IOM =)

tobi_girst

Die AGB.txt ist nicht Vollständig!
So sieht die komplette .txt aus:

Zitat

Die folgenden Bedinungen/ Rechte und Pflichten sind vorraussetzung für die Benutzung und Installation der Software. Sollten Sie sie nicht annehmen so beenden Sie bitte das Installationsprogramm. Sollten Sie fragen haben klären Sie diese bitte indem Sie sich mit info@euro-networkz.de in Verbindung setzen.

§1. Für die Benutzung der Software wird keine garantie übernommen und keine Funktion wird zum Reibungslosen ablauf gewährt. Sollten wirtschaftliche Schäden entstehen können Sie sich mit uns in Verbindung setzen, jedoch wird ein schadenersatz nicht garantiert.

§2. Die Software ist durch internationale Verträge

Sirocool

die agb ist ja auch nur ein beispiel wie sie aus sehn könnte

L3viathan

Sind noch einige Fehler drinne:

Zu Beginn ist der Radio "Einverstanden aktiviert, sollte andersrum sein
Warum gibts zwei GUIs, awrum nicht eine, die sich verändert?
Die Optionen müssten eigentlich Checkboxen sein.
Nach einmaligem Klick auf Installieren, sollte ein zweiter weiteres Installieren ergeben, sondern der Button sollte deaktiviert werden, am besten im OnEventMode.

Genug gemeckert, die Animation am Anfang sieht ganz gut aus...

Sirocool

Spoiler anzeigen

[autoit]

#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
******** ********
******** ********
******** Dies ist ein Internet TV Version 0.0.0 beta ********
******** Copyright: Sirocool ( http://www.autoit.de ) ********
******** ********
******** Es läuft zu 100% auf Windows XP ********
******** Es läuft zu 100% auf Windows 07 ********
******** 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
#include <GUIConstants.au3>
#Include <GuiEdit.au3>
#include <ProgressConstants.au3>
#include <IE.au3>
#include <INet.au3>
#include <Date.au3>
#include <WindowsConstants.au3>
#cs
#include <ComboConstants.au3>
#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <StructureConstants.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <StructureConstants.au3>
#include <String.au3>
#ce
#Region ### START Koda GUI section ### Form=
$hgui = GUICreate("Form1", 563, 340, -1, -1)
GUISetBkColor(0xFFFFFF)
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hGui, "int", 400, "long", 0x00040008)
$bg1=GUICtrlCreatePic("bg2.jpg",0, 0, 1498, 64, BitOR($WS_GROUP,$WS_CLIPSIBLINGS))
$Edit1 = GUICtrlCreateEdit("Die folgenden Bedinungen/ Rechte und Pflichten sind vorraussetzung für die Benutzung und Installation der " & @CRLF & "Software. Sollten Sie sie nicht annehmen so beenden Sie bitte das Installationsprogramm. " & @CRLF & "Sollten Sie fragen haben klären Sie diese bitte indem Sie sich mit [email='info@euro-networkz.de'][/email] in Verbindung setzen. "& @CRLF & "§1. Für die Benutzung der Software wird keine garantie übernommen und keine Funktion wird zum Reibungslosen ablauf gewährt. Sollten wirtschaftliche Schäden entstehen können Sie sich mit uns in Verbindung setzen, jedoch wird ein schadenersatz nicht garantiert.", 0, 64, 564, 145,$ES_READONLY )
GUICtrlSetState($Edit1, $GUI_ENABLE)
$Checkbox1 = GUICtrlCreateRadio("Ich bin mit diesen Vereinbarungen Nicht einverstanden", 24, 232, 297, 17)
GUICtrlSetState($Checkbox1, $GUI_CHECKED)
$Checkbox2 = GUICtrlCreateRadio("Ich bin mit diesen Vereinbarungen einverstanden", 24, 272, 281, 17)
$Button1 = GUICtrlCreateButton("Abbrechen", 360, 304, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Weiter", 456, 304, 75, 25, 0)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUISetState(@SW_SHOW,$hGui)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=
$hgui1 =GUICreate("Form1", 563, 340, -1, -1)
GUISetBkColor(0xFFFFFF)
$Group1 = GUICtrlCreateGroup("Optionen", 8, 8, 545, 121)
$Input1 = GUICtrlCreateInput("C:\Programme\Devil", 24, 64, 345, 21)
GUICtrlSetState($Input1, $GUI_DISABLE)
$Button3 = GUICtrlCreateButton("Durchsuchen", 400, 64, 123, 25, 0)
GUICtrlSetState($Button3, $GUI_DISABLE)
$Label1 = GUICtrlCreateLabel("Installationspfad angeben", 24, 32, 125, 17)
$Checkbox3 = GUICtrlCreateRadio("Standart wählen", 40, 96, 113, 17)
$Checkbox4 = GUICtrlCreateRadio("Pfad selber wählen", 232, 96, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Erweiterte Optionen", 8, 136, 545, 73)
$Checkbox5 = GUICtrlCreateRadio("Verknüpfungen auf Desktop", 16, 168, 161, 17)
$Checkbox6 = GUICtrlCreateRadio("Autostartverzeichniss speichern", 184, 168, 169, 17)
$Checkbox7 = GUICtrlCreateRadio("Programm nach Instalation Starten", 360, 168, 185, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Status", 8, 216, 545, 105)
$Progress1 = GUICtrlCreateProgress(32, 256, 350, 25)
$Button4 = GUICtrlCreateButton("Installieren", 408, 256, 115, 25, 0)
GUICtrlSetState($Button4, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
While True
$msg = GUIGetMsg(1)
Switch $msg[1] ; Window Handle
Case $hGui
Switch $msg[0] ; Event
Case $GUI_EVENT_CLOSE
Exit
Case $Checkbox1
GUICtrlSetState($Button2, $GUI_DISABLE)
Guictrlsetstate($Checkbox1,-1)
GUICtrlSetState($Button1, $GUI_ENABLE)
Guictrlsetstate($Checkbox1,1)
Case $Checkbox2
GUICtrlSetState($Button1, $GUI_DISABLE)
Guictrlsetstate($Checkbox2,-1)
GUICtrlSetState($Button2, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,1)
Case $Button1
If MsgBox(32 + 4, "Beenden", "Wollen sie wirklich Devil iTV beenden?") = 6 Then _End()
Case $Button2
GUISetState(@SW_SHOW, $hGui1)
GUISetState(@SW_HIDE, $hGui)
EndSwitch
Case $hGui1
Switch $msg[0]
Case $Checkbox3
GUICtrlSetState($Button3, $GUI_DISABLE)
Guictrlsetstate($Checkbox3,-1)
GUICtrlSetState($Button4, $GUI_ENABLE)
Guictrlsetstate($Checkbox3,1)

Case $Checkbox4
GUICtrlSetState($Button4, $GUI_DISABLE)
Guictrlsetstate($Checkbox4,-1)
GUICtrlSetState($Button3, $GUI_ENABLE)
Guictrlsetstate($Checkbox4,1)
Case $Button3
GUICtrlSetData($Input1, FileSelectFolder("Bitte Installationspfad wählen","", 1))
$PH = GUICtrlRead($Input1, 1)
If $PH < " " Then
MsgBox(16, "Error", "Bitte Pfad eingeben!")
Else
GUICtrlSetState($Button4, $GUI_ENABLE)
EndIf
Case $Button4
$PH1 = GUICtrlRead($Input1, 1)
If $PH1 < " " Then
MsgBox(16, "Error", "Bitte Pfad eingeben!")
Else
GUICtrlSetState($Button4, $GUI_ENABLE)
DirCreate($PH1)
InetGet("http://sirocool.si.funpic.de/i.TV/TV%20Sender/Deutschland/Devil%20iTV.exe ", $PH1 & "\Devil iTV.exe ", 1)
$PH1 = 0
do
$PH1 = $PH1 + 10
sleep(1000)
guictrlsetdata($Progress1 , $PH1)
until $PH1 = 100
sleep(1000)
;_sound()
GUISetState(0)
EndIf
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $hGui1)
EndSwitch
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _End()
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hGui, "int", 500, "long", 0x00050004)
Exit
EndFunc

[/autoit]

Sirocool

wie bekomme ich in einer combo die Länderfahnen rein ?
im bei spiel geht es aber in mienen script nicht bräuchte mal hilfe

Beispiel

Spoiler anzeigen

[autoit]

#include <GuiComboBoxEx.au3>
#include <GuiImageList.au3>
#include <GuiConstantsEx.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt('MustDeclareVars', 1)

[/autoit] [autoit][/autoit] [autoit]

$Debug_CB = False ; Check ClassName being passed to ComboBox/ComboBoxEx functions, set to True and use a handle to another control to see it work

[/autoit] [autoit][/autoit] [autoit]

Global $iMemo

[/autoit] [autoit][/autoit] [autoit]

_Main()

[/autoit] [autoit][/autoit] [autoit]

Func _Main()
Local $hGUI, $hImage, $hCombo

; Create GUI
$hGUI = GUICreate("ComboBoxEx Set Image List", 400, 300)
$hCombo = _GUICtrlComboBoxEx_Create ($hGUI, "", 2, 2, 394, 100)
$iMemo = GUICtrlCreateEdit("", 2, 32, 396, 266, 0)
GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
GUISetState()

[/autoit] [autoit][/autoit] [autoit]

$hImage = _GUIImageList_Create (16, 16, 5, 3)
_GUIImageList_AddIcon ($hImage, @ScriptDir & "\images\flags\de.ico")
_GUIImageList_AddIcon ($hImage, @ScriptDir & "\images\flags\us.ico")
_GUICtrlComboBoxEx_SetImageList ($hCombo, $hImage)
_GUICtrlComboBoxEx_AddString ($hCombo, StringFormat("01 : Deutsch", Random(1, 100, 1)), 0)
_GUICtrlComboBoxEx_AddString ($hCombo, StringFormat("02 : Englich", Random(2, 100, 2)), 1)

[/autoit] [autoit][/autoit] [autoit]

;Get Image List
MemoWrite("ImageList Handle: " & _GUICtrlComboBoxEx_GetImageList($hCombo))

[/autoit] [autoit][/autoit] [autoit]

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc ;==>_Main

[/autoit] [autoit][/autoit] [autoit]

; Write a line to the memo control
Func MemoWrite($sMessage)
GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc ;==>MemoWrite

[/autoit]

so und jetzt der Script von mir

Spoiler anzeigen

[autoit]

#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
******** ********
******** ********
******** Dies ist ein Web Radio Version 0.0.0 beta ********
******** Copyright: Sirocool ( http://www.autoit.de ) ********
******** ********
******** Es läuft zu 100% auf Windows XP ********
******** Es läuft zu 100% auf Windows 07 ********
******** 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

[/autoit] [autoit][/autoit] [autoit]

#include <GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

#include <ButtonConstants.au3>
#include <WindowsConstants.au3>
#include <TreeViewConstants.au3>
#include <StaticConstants.au3>
#include <TreeViewConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstants.au3>
#include <StaticConstants.au3>
#Include <GuiTreeView.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <StructureConstants.au3>
#include <GUIConstants.au3>
#include <IE.au3>
#include <INet.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <StructureConstants.au3>
#include <String.au3>
#include <array.au3>
#include <Guiconstants.au3>
#include <Sound.au3>
#include <File.au3>
#include <GuiTab.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>
#include <GuiTreeView.au3>
#include<GuiImageList.au3>
#include <GuiComboBoxEx.au3>
#include <GuiConstantsEx.au3>

[/autoit] [autoit][/autoit] [autoit]

Local $Image,$Combo

#Region ### START Koda GUI section ### Form=
$hGUI = GUICreate("Web Radio Installer", 600, 300, 466, 463)
GUISetBkColor(0xFFFFFF)
GUISetIcon("images\Default\Web Radio.ico")
$bg = GUICtrlCreatePic("images\Default\bg.jpg", 0, 0, 145, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Combo = _GUICtrlComboBoxEx_Create($hGUI,"Sprache wähle", 256, 120, 200, 25)
$Image = _GUIImageList_Create (16, 16, 5, 3)
_GUIImageList_AddIcon ($Image, @ScriptDir & "\images\flags\de.ico")
_GUIImageList_AddIcon ($Image, @ScriptDir & "\images\flags\us.ico")
_GUIImageList_Add ($Image, _GUICtrlComboBoxEx_CreateSolidBitMap ($Combo, 0xFF0000, 16, 16))
_GUIImageList_Add ($Image, _GUICtrlComboBoxEx_CreateSolidBitMap ($Combo, 0x00FF00, 16, 16))
_GUIImageList_Add ($Image, _GUICtrlComboBoxEx_CreateSolidBitMap ($Combo, 0x0000FF, 16, 16))
_GUICtrlComboBoxEx_SetImageList ($Combo, $Image)
_GUICtrlComboBoxEx_AddString ($Combo, StringFormat("01 : Deutsch", Random(1, 100, 1)), 0)
_GUICtrlComboBoxEx_AddString ($Combo, StringFormat("02 : Englich", Random(2, 100, 2)), 1)
_GUIImageList_Add ($Image,_GUICtrlComboBoxEx_GetImageList($Combo))
;GUICtrlSetData(-1,"Deutsch|Englisch|")
$Button1 = GUICtrlCreateButton("Abbrechen", 440, 264, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Weiter", 520, 264, 75, 25, 0)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUISetState(@SW_SHOW,$hGUI)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$hGUI1 = GUICreate("Web Radio Installer", 600, 300, 466, 463)
GUISetBkColor(0xFFFFFF)
GUISetIcon("images\Default\Web Radio.ico")
$bg = GUICtrlCreatePic("images\Default\bg.jpg", 0, 0, 145, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$ie = _IECreateEmbedded()
$Group1 = GUICtrlCreateObj($ie, 144, 0, 500, 201)
GUICtrlSetFont($Group1, 8, 400, 0, "MS Sans Serif")
$ie.navigate(@ScriptDir & "\data\DE.txt")
$Checkbox1 = GUICtrlCreateRadio("Ich bin mit diesen Vereinbarungen Nicht einverstanden", 168, 224, 270, 17)
GUICtrlSetState($Checkbox1, $GUI_CHECKED)
$Checkbox2 = GUICtrlCreateRadio("Ich bin mit diesen Vereinbarungen einverstanden", 168, 264, 270, 17)
$Button3 = GUICtrlCreateButton("Zurrück", 440, 264, 75, 25, 0)
GUICtrlSetState($Button3, $GUI_ENABLE)
$Button4 = GUICtrlCreateButton("Weiter", 520, 264, 75, 25, 0)
GUICtrlSetState($Button4, $GUI_DISABLE)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$hGUI2 = GUICreate("Web Radio Installer", 600, 300, 466, 463)
GUISetBkColor(0xFFFFFF)
GUISetIcon("images\Default\Web Radio.ico")
$bg = GUICtrlCreatePic("images\Default\bg.jpg", 0, 0, 145, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Group1 = GUICtrlCreateGroup("Optionen", 145, 8, 450, 121)
$Label1 = GUICtrlCreateLabel("Installationspfad angeben", 160, 32, 125, 17)
$Checkbox3 = GUICtrlCreateRadio("Standart wählen", 160, 96, 113, 17)
$Checkbox4 = GUICtrlCreateRadio("Pfad selber wählen", 300, 96, 113, 17)
$Input1 = GUICtrlCreateInput("C:\Programme\Devil",160, 64, 345, 21)
GUICtrlSetState($Input1, $GUI_DISABLE)
$Button5 = GUICtrlCreateButton("Durchsuchen", 515, 64, 75, 25, 0)
GUICtrlSetState($Button3, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Status",145, 136, 450, 73)
$Progress1 = GUICtrlCreateProgress(160, 160, 350, 25)
$Button6 = GUICtrlCreateButton("Installieren", 515, 160, 75, 25, 0)
$Button7 = GUICtrlCreateButton("Zurrück", 440, 264, 75, 25, 0)
$Button8 = GUICtrlCreateButton("Abbrechen", 520, 264, 75, 25, 0)
GUICtrlSetState($Button4, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
While True
$msg = GUIGetMsg(1)
Switch $msg[1] ; Window Handle
Case $hGUI
Switch $msg[0] ; Event
Case $GUI_EVENT_CLOSE
Exit
Case $Combo
GUICtrlSetState($Button2, $GUI_DISABLE)
;If GUICtrlRead($Combo) ="01 : Deutsch" then _DEUTSCH()
;If GUICtrlRead($Combo) ="02 : Englisch" then _ENGLISCH()
Guictrlsetstate($Combo,-1)
GUICtrlSetState($Button2, $GUI_ENABLE)
Guictrlsetstate($Combo,1)
Case $Button1
_End()
Case $Button2
GUISetState(@SW_SHOW, $hGui1)
GUISetState(@SW_HIDE, $hGui)
EndSwitch

Case $hGUI1
Switch $msg[0]
Case $Checkbox1
GUICtrlSetState($Button4, $GUI_DISABLE)
Guictrlsetstate($Checkbox1,-1)
GUICtrlSetState($Button3, $GUI_ENABLE)
Guictrlsetstate($Checkbox1,1)
Case $Checkbox2
GUICtrlSetState($Button3, $GUI_DISABLE)
Guictrlsetstate($Checkbox2,-1)
GUICtrlSetState($Button4, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,1)
Case $Button3
GUISetState(@SW_SHOW, $hGui)
Case $Button4
GUISetState(@SW_SHOW, $hGui2)
GUISetState(@SW_HIDE, $hGui1)

Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $hGui1)
EndSwitch
Case $hGUI2
Switch $msg[0]

Case $Checkbox3
GUICtrlSetState($Button3, $GUI_DISABLE)
Guictrlsetstate($Checkbox3,-1)
GUICtrlSetState($Button4, $GUI_ENABLE)
Guictrlsetstate($Checkbox3,1)

Case $Checkbox4
GUICtrlRead("C:\Programme\Devil")
GUICtrlSetState($Button4, $GUI_DISABLE)
Guictrlsetstate($Checkbox4,-1)
GUICtrlSetState($Button3, $GUI_ENABLE)
Guictrlsetstate($Checkbox4,1)
Case $Button3
GUICtrlSetData($Input1, FileSelectFolder("Bitte Installationspfad wählen","", 1))
$PH = GUICtrlRead($Input1, 1)
If $PH < " " Then
MsgBox(16, "Error", "Bitte Pfad eingeben!")
Else
GUICtrlSetState($Button4, $GUI_ENABLE)
EndIf
Case $Button4
$PH1 = GUICtrlRead($Input1, 1)
If $PH1 < " " Then
MsgBox(16, "Error", "Bitte Pfad eingeben!")
Else
GUICtrlSetState($Button4, $GUI_ENABLE)
DirCreate($PH1)
InetGet("http://sirocool.si.funpic.de/i.TV/TV%20Sender/Deutschland/Devil%20iTV.exe ", $PH1 & "\Devil iTV.exe ", 1)
$PH1 = 0
do
$PH1 = $PH1 + 10
sleep(1000)
guictrlsetdata($Progress1 , $PH1)
until $PH1 = 100
sleep(1000)
;_sound()
GUISetState(0)
EndIf
Case $Button5
GUISetState(@SW_SHOW, $hGUI)
GUISetState(@SW_HIDE, $hGUI2)
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $hGui2)
EndSwitch
EndSwitch
WEnd
#cs
Func MemoWrite($sMessage)
GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc ;==>MemoWrite
#ce

[/autoit] [autoit][/autoit] [autoit]

Func _DEUTSCH()
GUICtrlSetData($Button1, "Abbrechen")
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _ENGLISCH()
GUICtrlSetData($Button1, "Cancel")
GUICtrlSetData($Button2, "Next")
GUICtrlSetData($Button3, "back")
GUICtrlSetData($Button4, "Next")
GUICtrlSetData($Checkbox1 , "I am with these agreements do not agree")
GUICtrlSetData($Checkbox2 , "I agree with these arrangements")
$ie.navigate(@ScriptDir & "\data\EN.txt")
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _TUERKCE()

EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _ITALIAN()

EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _SPANISH()

EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _FRENCH()

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _End()
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hGui, "int", 500, "long", 0x00050004)
Exit
EndFunc

[/autoit]

ich mach auch das ganze in download rein

Sithlord95

mir gefällts

**Alina**

Zitat von Sirocool

wie bekomme ich in einer combo die Länderfahnen rein ?

Schau Dir mal von RR04 das Programm OES, da wird es angewendet. Ansonsten meine ich wird Dir RR04 sicherlich helfen, da er das auch selber bereits macht. Wenn Du es in DK übersetzt haben möchtest, melde dich und ich übersetze es. Einfach die Texte via PN an mich.

Sirocool

ziehe post 1

**Alina**

Hallo Sirocool

Habe leider Fehler/Änderungsnotwendigkeiten gefunden und einen Verbesserungsvorschlag.

1.)
Ersetze mal bitte:

Spoiler anzeigen

[autoit]

alt: $ie.navigate(@ScriptDir & "\data\Sprachen\DE.txt")
neu: $ie.navigate(@ScriptDir & "data\Sprachen\DE.txt")

[/autoit] [autoit][/autoit] [autoit]

alt: $ie.navigate(@ScriptDir & "\data\Sprachen\EN.txt")
neu: $ie.navigate(@ScriptDir & "data\Sprachen\EN.txt")

[/autoit] [autoit][/autoit] [autoit]

alt: $ie.navigate(@ScriptDir & "\data\Sprachen\TC.txt")
neu: $ie.navigate(@ScriptDir & "data\Sprachen\TC.txt")

[/autoit]

Wenn ich die ersetze, dann bekomme ich keine Fehlermeldung.

2.)
Den Button "Installieren" würde ich nach unten mit setzen. Da wo auch "Zurück" und "Abbrechen" ist. Also mein Tip rechts neben "Abbrechen".
Ist zwar kein Fehler, aber hat mich verwirrt als Anwenderin.

3.)
Nach der erfolgreichen Installation würde ich entweder aus dem "Installieren-Button" ein "Fertig-Button" machen, oder eine MsgBox einblenden und wenn man dort "OK" bestätigt, das dann das Installationsfenster sich schließt. Ansonsten drückt ein unerfahrener User immer wieder auf "Installieren", weil er vllt. denkt, das da ein Fehler aufgetreten ist oder er wartet sich einen "Wolf".

Bitte geschriebenes als Anregung und nicht als Tadel ansehen.

Ansonsten eine sehr schöne Umsetzung.

Frage: Wieso keine "Func _DANSK()" ??? Okay, ist ein kleines Volk.

Sirocool

aber gute ideen werde mal um setzen demnäckst oki

und so wie du im spoiler gemacht hast geht es bei mir nicht^^

**Alina**

Und bei mir geht es nicht so wie Du es im Posting / Download hast.
Was macht man jetzt?

Sirocool

es ist eine neue Version da siehe post 1

Version ist noch nicht 100 % ausgereift

franjob

Was bringt es wenn du die SPrache auf englisch stellst dass dann die lizen deutsch ist und die msg boxxen auch???

FunH@cker

ok das design sieht Hammer geil aus Top
nur hab ich ein paar Bugs gefunden

1: Wie schon gesagt man stellt auf Englich aber da sind noch Texte auf Deutsch
2: Wenn man die Sprache auswählen kann man in das input fehlt etwas reinschreiben
3: Die lizenzvereinbarung kann man verändern (etwas reinschreiben und löschen )
4: Wen man den ordner auswählt sollte da glaub ich schon ein ordner stehen aber da kann ich mich auch irren
so fertig