INIRead und MenuItem anpassen.

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.6.1
Author: myName

Script Function:
Template AutoIt script.

#ce ----------------------------------------------------------------------------

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;~ #include "1.au3"
#include "2.au3"

; = Einstellungen
Opt("TrayMenuMode", 1)
Opt("GUIResizeMode", 802)
Opt("WinTitleMatchMode", 2)
Opt("TrayMenuMode", 1)
Opt("TrayOnEventMode", 1)

;= Ini
$INI = @ScriptDir & "\Data\Einstellungen.ini"
$runwindoof = IniRead($INI, "Windows", "Run", "")
$ontop = IniRead($INI, "Window", "OnTop", "")
$Modus = IniRead($INI, "Modus", "Fenster", "")

; = Beschreibung
Local $InstallationsPfad
$InstallationsPfad = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft", "InstallPath")
$Title = "World of Warcraft Launcher" & " " & "v1.0 Beta"
; =============================================

If Not FileExists(@ScriptDir & "\Data\") Then
DirCreate(@ScriptDir & "\Data\")
EndIf
If Not FileExists($INI) Then
IniWrite($INI, "Copyright", "Titel", "(C) Alexander F. 2010 - 2011")
EndIf

;~ WinSetOnTop("", "", 1)
; Immer im Vordergrund
#region ### START Koda GUI section ### Form=
$vGUIStandartHeight = 290
$vGUILargeHeight = $vGUIStandartHeight + 327
$vGUIStandartWidth = 778
$vGUIColor = 0x161616
_SM_SetVisualStyle(1)
$hGui = GUICreate("" & $Title, 778, 290, -1, -1, -1, BitOR(0x00000080, 0x00000010))
GUISetBkColor($vGUIColor, $hGui)
_SM_SetVisualStyle(0)
GUISetIcon("C:\Programme\Alexander\AutoIt\Projekt 2# Launcher\WoW.ico")
; = Tray
TraySetClick("9")
$MenuItem3 = TrayCreateMenu("MenuItem3")
$MenuItem4 = TrayCreateItem("MenuItem4", $MenuItem3)
$MenuItem2 = TrayCreateItem("MenuItem2")
$MenuItem1 = TrayCreateItem("MenuItem1")
TraySetIcon("C:\Programme\Alexander\AutoIt\Projekt 2# Launcher\WoW.ico")
; = Gui Sachen
$Start = GUICtrlCreateButton("Start", 488, 100, 95, 55, 0x0080)
;~ $Einstellungen = GUICtrlCreateButton("Einstellungen", 592, 8, 97, 33, $WS_GROUP)

$open = GUICtrlCreateButton("open", 82, 195, 77, 20, 0x0080)
$close = GUICtrlCreateButton("close", 160, 195, 77, 20, 0x0080)

;Gui Menu
$hGUIFile = GUICtrlCreateMenu("File")
$hMenuOntop = GUICtrlCreateMenu("Programm immmer im Vordergrund", $hGUIFile)
$hMenuOntopEnable = GUICtrlCreateMenuItem("Aktivieren", $hMenuOntop, -1, 1)
$hMenuOntopDisable = GUICtrlCreateMenuItem("Deaktiveren", $hMenuOntop, -1, 1)
If $ontop = "yes" Then
GUICtrlSetState($hMenuOntopEnable, 1)
GUICtrlSetState($hMenuOntopDisable, 0)
EndIf
If $ontop = "no" Then
GUICtrlSetState($hMenuOntopEnable, 0)
GUICtrlSetState($hMenuOntopDisable, 1)
EndIf
GUICtrlCreateMenuItem("", $hGUIFile)
$hMenuSettings = GUICtrlCreateMenuItem("Allgemeine Einstellungen", $hGUIFile)
GUICtrlCreateMenuItem("", $hGUIFile)
$hMenuUpdateCheck = GUICtrlCreateMenuItem("Nach Updates suchen", $hGUIFile)
GUICtrlCreateMenuItem("", $hGUIFile)
$hMenuRestart = GUICtrlCreateMenuItem("Neustarten", $hGUIFile)
$hMenuExit = GUICtrlCreateMenuItem("Beenden", $hGUIFile)

$hGUIMaps = GUICtrlCreateMenu("Datein")
$hMenuMapsInstall = GUICtrlCreateMenuItem("Installieren", $hGUIMaps)

$hGUIHelp = GUICtrlCreateMenu("Brauchst du Hilfe ?")
$hMenuHelpAbout = GUICtrlCreateMenuItem("Über uns", $hGUIHelp)
GUICtrlCreateMenuItem("", $hGUIHelp)
$hMenuHelpHome = GUICtrlCreateMenuItem("Unsere Homepage", $hGUIHelp)
$hMenuHelpFAQ = GUICtrlCreateMenuItem("Frequently asked questions!", $hGUIHelp)
GUICtrlCreateMenuItem("", $hGUIHelp)
$hMenuHelpContact = GUICtrlCreateMenuItem("Kontaktieren Sie uns über (Fehlern,Problemen...)", $hGUIHelp)

_SM_CreateImageButton($open,$open1)
_SM_CreateImageButton($close,$close1)
_SM_CreateImageButton($Start,$starten1)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start
_WoWStarten()
;~ Case $Einstellungen
;~ _Einstellungen()
Case $close
_ClickButtonCloseExpand()
Case $open
_ClickButtonOpen()
Case $hMenuOntopEnable
IniWrite($INI, "Window", "OnTop", "yes")
GUICtrlSetState($hMenuOntopEnable, $GUI_CHECKED)
;~ $lesen = IniRead($INI,"Window", "OnTop", "")
;~ $lesen = IniRead($INI,"Window", "OnTop", "")
;~ If $lesen = "yes" Then
;~ GUICtrlSetState($hMenuOntopEnable, $GUI_CHECKED)
;~ GUICtrlSetState($hMenuOntopDisable, $GUI_UNCHECKED)
;~ EndIf

Case $hMenuOntopDisable
IniWrite($INI, "Window", "OnTop", "no")
GUICtrlSetState($hMenuOntopDisable, $GUI_CHECKED)
;~ If $ontop = "no" Then
;~ GUICtrlSetState($hMenuOntopEnable, $GUI_CHECKED)
;~ GUICtrlSetState($hMenuOntopDisable, $GUI_UNCHECKED)
;~ EndIf
EndSwitch
WEnd

; == Fenster Modus
;~ If WinWaitActive("World of Warcraft") Then
;~ $X = 250
;~ $Y = 250
;~ WinMove ( "World of Warcraft", "", 0, 0, $X, $Y )
;~ EndIf

; == FUNCS

Func _WoWStarten()
Run($InstallationsPfad & "\Wow.exe", "") ; , @SW_MAXIMIZE
EndFunc ;==>_WoWStarten

; ============== Expander ===============

Func _ClickButtonOpen()

GUISwitch($hGui)

$vGUIPos = WinGetPos($hGui)
If IsArray($vGUIPos) Then
If $vGUIPos[1] + $vGUILargeHeight >= @DesktopHeight - 45 Then
$vGUIPos[1] = @DesktopHeight - $vGUILargeHeight - 45
If $vGUIPos[1] < 0 Then $vGUIPos[1] = 0
EndIf
WinMove($hGui, "", $vGUIPos[0], $vGUIPos[1], $vGUIStandartWidth, $vGUILargeHeight, 1)
EndIf

EndFunc ;==>_ClickButtonOpen

Func _ClickButtonCloseExpand()

$vGUIPos = WinGetPos($hGui)
If IsArray($vGUIPos) Then WinMove($hGui, "", $vGUIPos[0], $vGUIPos[1], $vGUIStandartWidth, $vGUIStandartHeight + 27, 1)

EndFunc ;==>_ClickButtonCloseExpand
Func _SM_SetVisualStyle($b_Enable);turn on or of visual styles, able to color groups, checkboxes
Return DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $b_Enable * 7) ; 7 = Enable, 0 = Disable
EndFunc ;==>_SM_SetVisualStyle

Func _SM_CreateImageButton($h_Button, $v_ButtonVariable)
Local $hFile = FileOpen(@TempDir & "\button.bmp", BitOR(2, 16))
FileWrite($hFile, Binary($v_ButtonVariable))
FileClose($hFile)

GUICtrlSetImage($h_Button, @TempDir & "\button.bmp")
FileDelete(@TempDir & "\button.bmp")
EndFunc ;==>_SM_CreateImageButton

; =============== EINSTELLUNGEN =================

Func _Einstellungen()
$Title = "World of Warcraft Launcher" & " " & "v1.0 Beta"
Opt("GUIOnEventMode", 0)
;~ GUISetState(@SW_DISABLE, $hGui)
GUISetState(@SW_HIDE, $hGui)
_SM_SetVisualStyle(1)
$settinggui = GUICreate("Settings", 518, 190, -1, -1, -1, BitOR(0x00000080, 0x00000010), $hGui)
_SM_SetVisualStyle(0)
GUISetBkColor($vGUIColor, $settinggui)
$cancel = GUICtrlCreateButton("Exit", 263, 160, 247, 20, 0)
$save = GUICtrlCreateButton("Save", 10, 160, 247, 20, 0)
$groupdelays = GUICtrlCreateGroup("Keine Ahnung", 10, 10, 260, 91)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$groupgeneral2 = GUICtrlCreateGroup("Info", 10, 105, 500, 50)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label1 = GUICtrlCreateLabel("" & $Title, 104, 128, 308, 19)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$FTP = GUICtrlCreateGroup("Einstellungen", 280, 10, 230, 91)
GUICtrlSetColor(-1, 0xFFFFFF)
; = Checkboxen
$Checkbox3 = GUICtrlCreateCheckbox("Bla", 25, 34, 121, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
If $Modus = "yes" Then GUICtrlSetState($Checkbox3, 1)

$Checkbox2 = GUICtrlCreateCheckbox("Mit Windows starten", 295, 34, 121, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
If $runwindoof = "yes" Then GUICtrlSetState($Checkbox2, 1)

$Checkbox1 = GUICtrlCreateCheckbox("Immer im Vordergrund", 295, 65, 129, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
If $ontop = "yes" Then GUICtrlSetState($Checkbox1, 1)

GUICtrlCreateGroup("", -99, -99, 1, 1)

GUISetState(@SW_SHOW, $settinggui)

While 1
Switch GUIGetMsg($settinggui)
Case -3
ExitLoop

Case $cancel
ExitLoop

Case $save

If GUICtrlRead($Checkbox2) = 1 Then
IniWrite($INI, "Windows", "Run", "yes")
$runwindoof = "yes"
Else
IniWrite($INI, "Windows", "Run", "no")
$runwindoof = "no"
EndIf

If GUICtrlRead($Checkbox1) = 1 Then
IniWrite($INI, "Window", "OnTop", "yes")
$ontop = "yes"
Else
IniWrite($INI, "Window", "OnTop", "no")
$ontop = "no"
EndIf
If GUICtrlRead($Checkbox3) = 1 Then
IniWrite($INI, "Modus", "Fenster", "yes")
$Modus = "yes"
Else
IniWrite($INI, "Modus", "Fenster", "no")
$Modus = "no"
EndIf

ExitLoop
;Exit

EndSwitch
Sleep(10)
WEnd

GUIDelete($settinggui)
Sleep(100)

GUISetState(@SW_ENABLE, $hGui)
GUISetState(@SW_SHOW, $hGui)

_SM_SetVisualStyle(1)
EndFunc ;==>_Einstellungen