Speicher funktion

$Hotkeymanager = GUICreate("Hotkeymanager", 431, 600, 193, 125)
GUISetFont(12, 400, 0, "Comic Sans MS")
GUISetBkColor(0x3399FF)
$m1 = GUICtrlCreateMenu("Datei")
$mi1 = GUICtrlCreateMenuItem("Speichern", $m1)
$header = GUICtrlCreatePic("\Files\lala.DATA", 0, 0, 430, 100, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Programm = GUICtrlCreateLabel("Programmverzeichnis", 18, 136, 156, 27)
GUICtrlSetColor(-1, 0xFF0000)
$Hotkey = GUICtrlCreateLabel("Hotkey", 280, 136, 57, 27)
GUICtrlSetColor(-1, 0xFF0000)
$p1 = GUICtrlCreateInput($i1, 24, 184, 100, 31)
GUICtrlSetColor(-1, 0xFF0000)
$p2 = GUICtrlCreateInput($i2, 24, 234, 100, 31)
GUICtrlSetColor(-1, 0xFF0000)
$p3 = GUICtrlCreateInput($i3, 24, 284, 100, 31)
GUICtrlSetColor(-1, 0xFF0000)
$p4 = GUICtrlCreateInput($i4, 24, 334, 100, 31)
GUICtrlSetColor(-1, 0xFF0000)
$p5 = GUICtrlCreateInput($i5, 24, 384, 100, 31)
GUICtrlSetColor(-1, 0xFF0000)
$h1 = GUICtrlCreateInput($i6, 254, 184, 100, 31)
GUICtrlSetColor(-1, 0xFF0000)
$h2 = GUICtrlCreateInput($i7, 254, 234, 100, 31)
GUICtrlSetColor(-1, 0xFF0000)
$h3 = GUICtrlCreateInput($i8, 254, 284, 100, 31)
GUICtrlSetColor(-1, 0xFF0000)
$h4 = GUICtrlCreateInput($i9, 254, 334, 100, 31)
GUICtrlSetColor(-1, 0xFF0000)
$h5 = GUICtrlCreateInput($i10, 254, 384, 100, 31)
GUICtrlSetColor(-1, 0xFF0000)
$h6 = GUICtrlCreateInput("", 254, 434, 100, 31)
GUICtrlSetColor(-1, 0xFF0000)
$Button2 = GUICtrlCreateButton("...", 144, 184, 41, 33, 0)
GUICtrlSetColor(-1, 0xFF0000)
$Button3 = GUICtrlCreateButton("...", 144, 234, 41, 33, 0)
GUICtrlSetColor(-1, 0xFF0000)
$Button4 = GUICtrlCreateButton("...", 144, 284, 41, 33, 0)
GUICtrlSetColor(-1, 0xFF0000)
$Button5 = GUICtrlCreateButton("...", 143, 334, 41, 33, 0)
GUICtrlSetColor(-1, 0xFF0000)
$Button6 = GUICtrlCreateButton("...", 144, 384, 41, 33, 0)
GUICtrlSetColor(-1, 0xFF0000)
$Combo1 = GUICtrlCreateCombo("Herunterfahren", 24, 434, 153)
GUICtrlSetData(-1, "Energie sparen|Neu starten", "Neu starten")
GUISetState(@SW_SHOW)
Opt("GUIOnEventMode", 1)
GUICtrlSetOnEvent($mi1, "_speichern")

Func _speichern()
IniWrite(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "1", GUICtrlRead($p1))
IniWrite(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "2", GUICtrlRead($p2))
IniWrite(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "3", GUICtrlRead($p3))
IniWrite(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "4", GUICtrlRead($p4))
IniWrite(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "5", GUICtrlRead($p5))
IniWrite(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "1", GUICtrlRead($h1))
IniWrite(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "2", GUICtrlRead($h2))
IniWrite(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "3", GUICtrlRead($h3))
IniWrite(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "4", GUICtrlRead($h4))
IniWrite(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "5", GUICtrlRead($h5))
$m = GUICtrlRead ( $Combo1)
If $m = "Herunterfahren" then
IniWrite(@ScriptDir & "\Files\Klasse.ini", "Verzeichnise", "6","1" )
ElseIf $m = "Energie sparen" then
GUICtrlSetData ( $h6, "8")
Endif
$i1 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "1", "0")
GUICtrlSetData($p1, $i1)
$i2 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "2", "0")
GUICtrlSetData($p2, $i2)
$i3 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "3", "0")
GUICtrlSetData($p3, $i3)
$i4 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "4", "0")
GUICtrlSetData($p4, $i4)
$i5 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "5", "0")
GUICtrlSetData($p5, $i5)
$i6 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "1", "0")
GUICtrlSetData($h1, $i6)
$i7 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "2", "0")
GUICtrlSetData($h2, $i7)
$i8 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "3", "0")
GUICtrlSetData($h3, $i8)
$i9 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "4", "0")
GUICtrlSetData($h4, $i9)
$i10 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "5", "0")
GUICtrlSetData($h5, $i10)
EndFunc ;==>_speichern