Mein kleines Verknüpfungstool

1. offizieller Beitrag

    Hiho

    hab da mal was geschrieben und bin soweit fertig...
    natürlich ist das noch lang nicht fertig.
    was noch kommt:
    Menü -> einstellungen : für back bild, farben, größe, ob es nach progstart auf bleiben soll
    noch icons von den applikationen bzw. gleich ne oberflächenänderung in dem das label zu button prinzip wegfällt und ein button mit dem icon der applikation über bleibt...
    naja mal schauen ^^

    aber probierts doch einfach mal und sagt mir was ihr davon haltet.

    einfach irgendwo hin entpacken.

    EDIT: Hab mal die Buttons (Start) schmaller gemacht so das man nun 9 zeichen verwenden kann
    EDIT2: BUGS beseitigt

    :)
    na klar
    hier->

    Spoiler anzeigen
    [autoit]


    #cs
    -Reiter mit Programmen, Favoriten, Musik, Ordner
    -Einstellungsmöglichkeit für das Auswählen für VerknüfpungsProgramm zu beenden oder nicht.
    #ce
    #include <GUIConstants.au3>

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

    Dim $gui_breite = 320 ;320
    Dim $gui_hoehe = 600
    Dim $button_breite = 60
    Dim $label_breite = 107
    Dim $ver_counter = 0

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

    Dim $labelname[15]
    Dim $labelnamegames[15]
    Dim $labelnameprogs[15]
    Dim $verk_go[15]
    Dim $verkgames_go[15]
    Dim $verkprogs_go[15]
    Dim $button_go[15]
    Dim $buttongames_go[15]
    Dim $buttonprogs_go[15]
    Dim $combo_wichtig[15]
    Dim $combo_games[15]
    Dim $combo_progs[15]

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

    Dim $verk_neu_pfad, $verk_neu_name
    Dim $font = "Courier New"

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

    Dim $counter = 0
    Dim $neu, $formatieren_wichtig, $info, $tab_wichtig, $tab_gam, $tab_app, $tmpvergleich, $formatieren_games , $formatieren_progs

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

    Func _initialisieren_vor_gui()

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

    ;Namen der Labels vergeben für WICHTIG
    $counter = 0
    Do
    $labelname[$counter] = IniRead(@scriptdir & "\verk\verk_name.ini", "Verknüpfung " & $counter + 1 & "", "Name" , "" )
    $button_go[$counter] = "Starten"
    $counter = $counter + 1
    Until $counter > 14

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

    ;Namen der Labels vergeben für SPIELE
    $counter = 0
    Do
    $labelnamegames[$counter] = IniRead(@scriptdir & "\verk\verk_name_games.ini", "Verknüpfung " & $counter + 1 & "", "Name" , "" )
    $buttongames_go[$counter] = "Starten"
    $counter = $counter + 1
    Until $counter > 14

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

    ;Namen der Labels vergeben für PROGRAMME
    $counter = 0
    Do
    $labelnameprogs[$counter] = IniRead(@scriptdir & "\verk\verk_name_progs.ini", "Verknüpfung " & $counter + 1 & "", "Name" , "" )
    $buttonprogs_go[$counter] = "Starten"
    $counter = $counter + 1
    Until $counter > 14
    EndFunc

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

    Func _initialisieren_nach_gui()
    $tab=GUICtrlCreateTab (0,0, $gui_breite,$gui_hoehe)

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

    ; WICHTIG WICHTIG WICHTIG-------------------------------------------------------------------------------------------------
    $tab_wichtig=GUICtrlCreateTabitem ("Wichtig")
    $back = GUICtrlCreatePic(@scriptdir & "\back.jpg",0,23,600,600)
    GUICtrlSetState(-1, $GUI_DISABLE)

    $counter = 0
    Dim $label_pos = 50
    Do;Labels initialisieren für WICHTIG
    GUICtrlCreateLabel ($labelname[$counter],7, $label_pos, $label_breite, 23)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetColor(-1,0xffffff)
    GUICtrlSetFont (-1, 15, 900, "", $font)
    $label_pos = $label_pos + 30
    $counter = $counter + 1
    Until $counter > 14

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

    Dim $button_pos = 50
    $counter = 0
    Do;Buttons (STARTEN) initialisieren
    $verk_go[$counter] = GUICtrlCreateButton ($button_go[$counter], 120, $button_pos, $button_breite)
    $button_pos = $button_pos + 30
    $counter = $counter + 1
    Until $counter > 14

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

    $counter = 0
    Dim $box_pos = 50
    Do;Dropdown Menü = auswahl der Verknüpfungsliste
    $combo_wichtig[$counter] = GUICtrlCreateCombo ( "Verknüpfung...", 190, $box_pos , 120 , 20 , $CBS_DROPDOWNLIST )
    GUICtrlSetData(-1,"...hinzu|...löschen|...ändern|...pfad","Verknüpfung...")
    GUICTRLSetState(-1, $GUI_ENABLE)
    $box_pos = $box_pos + 30
    $counter = $counter + 1
    Until $counter > 14

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

    $formatieren_wichtig = GUICtrlCreateButton ("Alles löschen", 10, 525, 80)
    $info = GUICtrlCreateButton ("Info", 10, 555, 80)

    ; SPIELE SPIELE SPIELE-------------------------------------------------------------------------------------------------
    $tab_gam=GUICtrlCreateTabitem ("Spiele")
    $back = GUICtrlCreatePic(@scriptdir & "\back.jpg",0,23,600,600)
    GUICtrlSetState(-1, $GUI_DISABLE)

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

    $counter = 0
    Dim $label_pos = 50
    Do;Labels initialisieren
    GUICtrlCreateLabel ($labelnamegames[$counter],7, $label_pos, $label_breite,23)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetColor(-1,0xffffff)
    GUICtrlSetFont (-1, 15, 900, "", $font)
    $label_pos = $label_pos + 30
    $counter = $counter + 1
    Until $counter > 14

    $counter = 0
    Dim $button_pos = 50
    Do;Buttons (STARTEN) initialisieren
    $verkgames_go[$counter] = GUICtrlCreateButton ($buttongames_go[$counter], 120, $button_pos, $button_breite)
    $button_pos = $button_pos + 30
    $counter = $counter + 1
    Until $counter > 14

    $counter = 0
    Dim $box_pos = 50
    Do;Dropdown Menü = auswahl der Verknüpfungsliste
    $combo_games[$counter] = GUICtrlCreateCombo ( "Verknüpfung...", 190, $box_pos , 120 , 20 , $CBS_DROPDOWNLIST )
    GUICtrlSetData(-1,"...hinzu|...löschen|...ändern|...pfad","Verknüpfung...")
    GUICTRLSetState(-1, $GUI_ENABLE)
    $box_pos = $box_pos + 30
    $counter = $counter + 1
    Until $counter > 14

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

    $formatieren_games = GUICtrlCreateButton ("Alles löschen", 10, 525, 80)
    ;~ GUICtrlSetState(-1, $GUI_ONTOP)

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

    ; Programme Programme Programme-------------------------------------------------------------------------------------------------
    $tab_app=GUICtrlCreateTabitem ("Programme")
    $back = GUICtrlCreatePic(@scriptdir & "\back.jpg",0,23,600,600)
    GUICtrlSetState(-1, $GUI_DISABLE)

    $counter = 0
    Dim $label_pos = 50
    Do;Labels initialisieren
    GUICtrlCreateLabel ($labelnameprogs[$counter],7, $label_pos, $label_breite, 23)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetColor(-1,0xffffff)
    GUICtrlSetFont (-1, 15, 900, "", $font)
    $label_pos = $label_pos + 30
    $counter = $counter + 1
    Until $counter > 14

    $counter = 0
    Dim $button_pos = 50
    Do;Buttons (STARTEN) initialisieren
    $verkprogs_go[$counter] = GUICtrlCreateButton ($buttonprogs_go[$counter], 120, $button_pos, $button_breite)
    $button_pos = $button_pos + 30
    $counter = $counter + 1
    Until $counter > 14

    $counter = 0
    Dim $box_pos = 50
    Do;Dropdown Menü = auswahl der Verknüpfungsliste
    $combo_progs[$counter] = GUICtrlCreateCombo ( "Verknüpfung...", 190, $box_pos , 120 , 20 , $CBS_DROPDOWNLIST )
    GUICtrlSetData(-1,"...hinzu|...löschen|...ändern|...pfad","Verknüpfung...")
    GUICTRLSetState(-1, $GUI_ENABLE)
    $box_pos = $box_pos + 30
    $counter = $counter + 1
    Until $counter > 14

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

    $formatieren_progs = GUICtrlCreateButton ("Alles löschen", 10, 525, 80)
    ;~ GUICtrlSetState(-1, $GUI_ONTOP)

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

    EndFunc

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

    Func _verkhinzu_wichtig($ver_counter)
    $tmp = $ver_counter

    $verk_neu_name = InputBox("Name der Verknüpfung", "Name der Verknüpfung " & @CRLF & "NOTE: Max 9 Zeichen", "","",200,130 )
    If @error Then
    ;EndFunc
    Else
    StringTrimLeft($verk_neu_name, 9)
    $labelname[$tmp] = $verk_neu_name

    ;Pfade speichern
    $verk_neu_pfad = FileOpenDialog ($verk_neu_name, "c:\", "Anwendung (*.exe)")
    If @error Then
    ;EndFunc
    Else
    $msg = MsgBox(36, "Parameter", "Parameter hinzufügen?")
    If $msg = 6 Then
    $tmp2 = InputBox("Parameter", "Parameter:", "","",200,130 )
    If @error Then
    ;EndFunc
    Else

    EndIf
    ElseIf $msg = 7 Then
    $tmp2 = ""
    EndIf
    $verk_neu_pfad = $verk_neu_pfad & " " & $tmp2

    IniWrite (@scriptdir & "\verk\verk_pfade.ini", "Verknüpfung " & $tmp + 1 & "", $verk_neu_name, $verk_neu_pfad)

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

    ;Labelnamen abspeichern
    IniWrite (@scriptdir & "\verk\verk_name.ini", "Verknüpfung " & $tmp + 1 & "", "Name", $verk_neu_name)

    MsgBox(48, "Hinweis", "Damit der Eintrag sichtbar ist, wird das " & @CRLF &"Programm jetzt neu gestartet werden")
    _progreboot()
    EndIf
    EndIf
    EndFunc

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

    Func _verkhinzu_games($ver_counter)
    $tmp = $ver_counter

    $verk_neu_name = InputBox("Name der Verknüpfung", "Name der Verknüpfung " & @CRLF & "NOTE: Max 9 Zeichen", "","",200,130 )
    If @error Then
    ;EndFunc
    Else
    StringTrimLeft($verk_neu_name, 9)
    $labelnamegames[$tmp] = $verk_neu_name

    ;Pfade speichern
    $verk_neu_pfad = FileOpenDialog ($verk_neu_name, "c:\", "Anwendung (*.exe)")
    If @error Then
    ;EndFunc
    Else
    $msg = MsgBox(36, "Parameter", "Parameter hinzufügen?")
    If $msg = 6 Then
    $tmp2 = InputBox("Parameter", "Parameter:", "","",200,130 )
    If @error Then
    ;EndFunc
    Else

    EndIf
    ElseIf $msg = 7 Then
    $tmp2 = ""
    EndIf
    $verk_neu_pfad = $verk_neu_pfad & " " & $tmp2

    IniWrite (@scriptdir & "\verk\verk_pfade_games.ini", "Verknüpfung " & $tmp + 1 & "", $verk_neu_name, $verk_neu_pfad)

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

    ;Labelnamen abspeichern
    IniWrite (@scriptdir & "\verk\verk_name_games.ini", "Verknüpfung " & $tmp + 1 & "", "Name", $verk_neu_name)

    MsgBox(48, "Hinweis", "Damit der Eintrag sichtbar ist, wird das " & @CRLF &"Programm jetzt neu gestartet werden")
    _progreboot()
    EndIf
    EndIf
    EndFunc

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

    Func _verkhinzu_progs($ver_counter)
    $tmp = $ver_counter

    $verk_neu_name = InputBox("Name der Verknüpfung", "Name der Verknüpfung " & @CRLF & "NOTE: Max 9 Zeichen", "","",200,130 )
    If @error Then
    ;EndFunc
    Else
    StringTrimLeft($verk_neu_name, 9)
    $labelnameprogs[$tmp] = $verk_neu_name

    ;Pfade speichern
    $verk_neu_pfad = FileOpenDialog ($verk_neu_name, "c:\", "Anwendung (*.exe)")
    If @error Then
    ;EndFunc
    Else
    $msg = MsgBox(36, "Parameter", "Parameter hinzufügen?")
    If $msg = 6 Then
    $tmp2 = InputBox("Parameter", "Parameter:", "","",200,130 )
    If @error Then
    ;EndFunc
    Else

    EndIf
    ElseIf $msg = 7 Then
    $tmp2 = ""
    EndIf
    $verk_neu_pfad = $verk_neu_pfad & " " & $tmp2

    IniWrite (@scriptdir & "\verk\verk_pfade_progs.ini", "Verknüpfung " & $tmp + 1 & "", $verk_neu_name, $verk_neu_pfad)

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

    ;Labelnamen abspeichern
    IniWrite (@scriptdir & "\verk\verk_name_progs.ini", "Verknüpfung " & $tmp + 1 & "", "Name", $verk_neu_name)

    MsgBox(48, "Hinweis", "Damit der Eintrag sichtbar ist, wird das " & @CRLF &"Programm jetzt neu gestartet werden")
    _progreboot()
    EndIf
    EndIf
    EndFunc

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

    Func _progreboot()
    If @Compiled = 1 Then
    Run( FileGetShortName(@ScriptFullPath))
    Else
    Run( FileGetShortName(@AutoItExe) & " " & FileGetShortName(@ScriptFullPath))
    EndIf
    Exit
    EndFunc

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

    Func _formatieren_wichtig()
    $msg = MsgBox(36, "Werkseinstellung", "Wichtige Verknüpfungen löschen?")
    If $msg = 6 Then
    FileDelete (@ScriptDir & "\verk\verk_pfade.ini")
    FileDelete (@ScriptDir & "\verk\verk_name.ini")
    MsgBox(48, "Hinweis", "Programm muss neu gestartet werden!")
    _progreboot()
    ElseIf $msg = 7 Then
    ;~ EndFunc
    EndIf
    EndFunc

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

    Func _formatieren_games()
    $msg = MsgBox(36, "Werkseinstellung", "Spieleverknüpfungen löschen?")
    If $msg = 6 Then
    FileDelete (@ScriptDir & "\verk\verk_pfade_games.ini")
    FileDelete (@ScriptDir & "\verk\verk_name_games.ini")
    MsgBox(48, "Hinweis", "Programm muss neu gestartet werden!")
    _progreboot()
    ElseIf $msg = 7 Then
    ;~ EndFunc
    EndIf
    EndFunc

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

    Func _formatieren_progs()
    $msg = MsgBox(36, "Werkseinstellung", "Programmverknüpfungen löschen?")
    If $msg = 6 Then
    FileDelete (@ScriptDir & "\verk\verk_pfade_progs.ini")
    FileDelete (@ScriptDir & "\verk\verk_name_progs.ini")
    MsgBox(48, "Hinweis", "Programm muss neu gestartet werden!")
    _progreboot()
    ElseIf $msg = 7 Then
    ;~ EndFunc
    EndIf
    EndFunc

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

    Func _info()
    GUICtrlCreateLabel("Information:" & @CRLF, 10 , 10)
    GUICtrlSetFont (-1, 20, 900, "", $font)
    GUICtrlCreateLabel("Sinn und Zwecks des Programms ist eigentlich nur, dass man hiermit die" &@crlf& "Verknüpfungen besser verwalten kann." &@crlf&"Quitsch pro Quetsch... ein sauberer Desktop bzw. Leisten ;)", 10, 40)
    GUICtrlCreateLabel("Wichtig:" & @CRLF, 10 , 100, 150)
    GUICtrlSetFont (-1, 20, 900, "", $font)
    GUICtrlCreateLabel("Wichtig ist nur, dass ihr bei der weitergabe des Programms" &@crlf& "darauf achtet das... nichts! :)", 10, 130)
    GUICtrlCreateLabel("Update:" & @CRLF, 10 , 170, 180)
    GUICtrlSetFont (-1, 20, 900, "", $font)
    GUICtrlCreateLabel("v1.6: Verknüpfungen lassen sich an eine beliebige Stelle setzen"&@crlf&"v1.5: Verküpfungen lassen sich ändern/löschen und den Pfad anzeigen"&@crlf&"v1.4: Tabs für mehr Verknüpfungen eingefügt"&@crlf&"v1.3: Alle Bugs wurden beseitigt" &@crlf& "v1.2: Grafische Oberfläche" &@crlf& "v1.1: Reset Möglichkeit" &@crlf& "v1.0: Es ist nun möglich über den Öffnen-mit Dialog etwas anzulegen", 10, 205, 380, 130)

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



    GUICtrlCreateLabel("all created by", 200 , 335, 180)
    GUICtrlSetFont (-1, 11, 900, "", $font)
    GUICtrlCreateLabel("permanenT", 280 , 360, 180)
    GUICtrlSetFont (-1, 13, 900, "", $font)
    EndFunc

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

    _initialisieren_vor_gui()

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

    ;Gui erstellen
    $gui_main = GUICreate ( "Verknüpfungen" , $gui_breite , $gui_hoehe , 10 , 10)
    GUICtrlSetState(-1, $GUI_DISABLE)
    _initialisieren_nach_gui()

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

    GUISetState(@SW_SHOW, $gui_main)

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

    While 1
    $msg = GUIGetMsg(1)
    For $i = 0 To 14 ; Buttonaktion für WICHTIG
    If $msg[0] = $verk_go[$i] Then
    If $labelname[$i] <> "" Then
    $tmppfad = IniRead(@scriptdir & "\verk\verk_pfade.ini", "Verknüpfung " & $i+1, $labelname[$i] , "default" )
    Run($tmppfad)
    Else
    MsgBox(48, "Nicht definiert", "Keine Verknüpfung hinterlegt!")
    EndIf
    EndIf
    Next
    For $i = 0 To 14 ; Buttonaktion für SPIELE
    If $msg[0] = $verkgames_go[$i] Then
    If $labelnamegames[$i] <> "" Then
    $tmppfad = IniRead(@scriptdir & "\verk\verk_pfade_games.ini", "Verknüpfung " & $i+1, $labelnamegames[$i] , "default" )
    Run($tmppfad)
    Else
    MsgBox(48, "Nicht definiert", "Keine Verknüpfung hinterlegt!")
    EndIf
    EndIf
    Next
    For $i = 0 To 14 ; Buttonaktion für PROGRAMME
    If $msg[0] = $verkprogs_go[$i] Then
    If $labelnameprogs[$i] <> "" Then
    $tmppfad = IniRead(@scriptdir & "\verk\verk_pfade_progs.ini", "Verknüpfung " & $i+1, $labelnameprogs[$i] , "default" )
    Run($tmppfad)
    Else
    MsgBox(48, "Nicht definiert", "Keine Verknüpfung hinterlegt!")
    EndIf
    EndIf
    Next
    For $i = 0 To 14 ; Comboaktion für WICHTIG

    If $msg[0] = $combo_wichtig[$i] Then
    $select = GUICtrlRead($combo_wichtig[$i])
    Switch $select
    Case "...hinzu"
    $tmpvergleich = IniRead(@scriptdir & "\verk\verk_pfade.ini", "Verknüpfung " & $i + 1, $labelname[$i] , "" )
    If $tmpvergleich = "" Then
    $ver_counter = $i
    _verkhinzu_wichtig($ver_counter)
    Sleep (100)
    GUICtrlSetData($combo_wichtig[$i], "Verknüpfung...")
    Else
    MsgBox(48, "Hinweis", "Schon belegt! Bitte Option ...ändern benutzen")
    Sleep (100)
    GUICtrlSetData($combo_wichtig[$i], "Verknüpfung...")
    EndIf

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

    Case "...löschen"
    $msg2 = MsgBox(36, "Verknüpfung...", "...wirklich löschen?")
    If $msg2 = 6 Then
    IniDelete(@scriptdir & "\verk\verk_pfade.ini", "Verknüpfung " & $i + 1, $labelname[$i])
    IniDelete(@scriptdir & "\verk\verk_name.ini", "Verknüpfung " & $i + 1, "Name")
    MsgBox(48, "Hinweis", "Programm muss neu gestartet werden!")
    _progreboot()
    ElseIf $msg2 = 7 Then
    ;~ EndFunc
    EndIf
    Case "...ändern"
    $tmpvergleich = IniRead(@scriptdir & "\verk\verk_pfade.ini", "Verknüpfung " & $i + 1, $labelname[$i] , "" )
    If $tmpvergleich <> "" Then
    $ver_counter = $i
    $msg2 = MsgBox(36, "Verknüpfung...", "...wirklich ändern?")
    If $msg2 = 6 Then
    IniDelete(@scriptdir & "\verk\verk_pfade.ini", "Verknüpfung " & $i + 1, $labelname[$i])
    IniDelete(@scriptdir & "\verk\verk_name.ini", "Verknüpfung " & $i + 1, "Name")
    Sleep(100)
    _verkhinzu_wichtig($ver_counter)
    Sleep (100)
    GUICtrlSetData($combo_wichtig[$i], "Verknüpfung...")
    Elseif $msg2 = 7 Then
    Sleep (100)
    GUICtrlSetData($combo_wichtig[$i], "Verknüpfung...")
    EndIf
    Else
    MsgBox(48, "Hinweis", "Nicht belegt! Bitte Option ...hinzu benutzen")
    Sleep (100)
    GUICtrlSetData($combo_wichtig[$i], "Verknüpfung...")
    EndIf

    Case "...pfad"
    $pfad = IniRead(@scriptdir & "\verk\verk_pfade.ini", "Verknüpfung " & $i+1, $labelname[$i] , "default" )
    If $pfad = "default" Then
    MsgBox(0, "Pfad", "Nichts hinterlegt!")
    Else
    MsgBox(0, "Pfad", "Pfad der gewählten Verknüpfung " & @CRLF & $pfad & "")
    EndIf
    Sleep (100)
    GUICtrlSetData($combo_wichtig[$i], "Verknüpfung...")
    EndSwitch
    EndIf
    Next
    For $i = 0 To 14 ; Comboaktion für SPIELE

    If $msg[0] = $combo_games[$i] Then
    $select = GUICtrlRead($combo_games[$i])
    Switch $select
    Case "...hinzu"
    $tmpvergleich = IniRead(@scriptdir & "\verk\verk_pfade_games.ini", "Verknüpfung " & $i + 1, $labelnamegames[$i] , "" )
    If $tmpvergleich = "" Then
    $ver_counter = $i
    _verkhinzu_games($ver_counter)
    Sleep (100)
    GUICtrlSetData($combo_games[$i], "Verknüpfung...")
    Else
    MsgBox(48, "Hinweis", "Schon belegt! Bitte Option ...ändern benutzen")
    Sleep (100)
    GUICtrlSetData($combo_games[$i], "Verknüpfung...")
    EndIf

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

    Case "...löschen"
    $msg2 = MsgBox(36, "Verknüpfung...", "...wirklich löschen?")
    If $msg2 = 6 Then
    IniDelete(@scriptdir & "\verk\verk_pfade_games.ini", "Verknüpfung " & $i + 1, $labelnamegames[$i])
    IniDelete(@scriptdir & "\verk\verk_name_games.ini", "Verknüpfung " & $i + 1, "Name")
    MsgBox(48, "Hinweis", "Programm muss neu gestartet werden!")
    _progreboot()
    ElseIf $msg2 = 7 Then
    ;~ EndFunc
    EndIf
    Case "...ändern"
    $tmpvergleich = IniRead(@scriptdir & "\verk\verk_pfade_games.ini", "Verknüpfung " & $i + 1, $labelnamegames[$i] , "" )
    If $tmpvergleich <> "" Then
    $ver_counter = $i
    $msg2 = MsgBox(36, "Verknüpfung...", "...wirklich ändern?")
    If $msg2 = 6 Then
    IniDelete(@scriptdir & "\verk\verk_pfade_games.ini", "Verknüpfung " & $i + 1, $labelnamegames[$i])
    IniDelete(@scriptdir & "\verk\verk_name_games.ini", "Verknüpfung " & $i + 1, "Name")
    Sleep(100)
    _verkhinzu_games($ver_counter)
    Sleep (100)
    GUICtrlSetData($combo_games[$i], "Verknüpfung...")
    Elseif $msg2 = 7 Then
    Sleep (100)
    GUICtrlSetData($combo_games[$i], "Verknüpfung...")
    EndIf
    Else
    MsgBox(48, "Hinweis", "Nicht belegt! Bitte Option ...hinzu benutzen")
    Sleep (100)
    GUICtrlSetData($combo_games[$i], "Verknüpfung...")
    EndIf

    Case "...pfad"
    $pfad = IniRead(@scriptdir & "\verk\verk_pfade_games.ini", "Verknüpfung " & $i+1, $labelnamegames[$i] , "default" )
    If $pfad = "default" Then
    MsgBox(0, "Pfad", "Nichts hinterlegt!")
    Else
    MsgBox(0, "Pfad", "Pfad der gewählten Verknüpfung " & @CRLF & $pfad & "")
    EndIf
    Sleep (100)
    GUICtrlSetData($combo_games[$i], "Verknüpfung...")
    EndSwitch
    EndIf
    Next
    For $i = 0 To 14 ; Comboaktion für PROGRAMME

    If $msg[0] = $combo_progs[$i] Then
    $select = GUICtrlRead($combo_progs[$i])
    Switch $select
    Case "...hinzu"
    $tmpvergleich = IniRead(@scriptdir & "\verk\verk_pfade_progs.ini", "Verknüpfung " & $i + 1, $labelnameprogs[$i] , "" )
    If $tmpvergleich = "" Then
    $ver_counter = $i
    _verkhinzu_progs($ver_counter)
    Sleep (100)
    GUICtrlSetData($combo_progs[$i], "Verknüpfung...")
    Else
    MsgBox(48, "Hinweis", "Schon belegt! Bitte Option ...ändern benutzen")
    Sleep (100)
    GUICtrlSetData($combo_progs[$i], "Verknüpfung...")
    EndIf

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

    Case "...löschen"
    $msg2 = MsgBox(36, "Verknüpfung...", "...wirklich löschen?")
    If $msg2 = 6 Then
    IniDelete(@scriptdir & "\verk\verk_pfade_progs.ini", "Verknüpfung " & $i + 1, $labelnameprogs[$i])
    IniDelete(@scriptdir & "\verk\verk_name_progs.ini", "Verknüpfung " & $i + 1, "Name")
    MsgBox(48, "Hinweis", "Programm muss neu gestartet werden!")
    _progreboot()
    ElseIf $msg2 = 7 Then
    ;~ EndFunc
    EndIf
    Case "...ändern"
    $tmpvergleich = IniRead(@scriptdir & "\verk\verk_pfade_progs.ini", "Verknüpfung " & $i + 1, $labelnameprogs[$i] , "" )
    If $tmpvergleich <> "" Then
    $ver_counter = $i
    $msg2 = MsgBox(36, "Verknüpfung...", "...wirklich ändern?")
    If $msg2 = 6 Then
    IniDelete(@scriptdir & "\verk\verk_pfade_progs.ini", "Verknüpfung " & $i + 1, $labelnameprogs[$i])
    IniDelete(@scriptdir & "\verk\verk_name_progs.ini", "Verknüpfung " & $i + 1, "Name")
    Sleep(100)
    _verkhinzu_progs($ver_counter)
    Sleep (100)
    GUICtrlSetData($combo_progs[$i], "Verknüpfung...")
    Elseif $msg2 = 7 Then
    Sleep (100)
    GUICtrlSetData($combo_progs[$i], "Verknüpfung...")
    EndIf
    Else
    MsgBox(48, "Hinweis", "Nicht belegt! Bitte Option ...hinzu benutzen")
    Sleep (100)
    GUICtrlSetData($combo_progs[$i], "Verknüpfung...")
    EndIf

    Case "...pfad"
    $pfad = IniRead(@scriptdir & "\verk\verk_pfade_progs.ini", "Verknüpfung " & $i+1, $labelnameprogs[$i] , "default" )
    If $pfad = "default" Then
    MsgBox(0, "Pfad", "Nichts hinterlegt!")
    Else
    MsgBox(0, "Pfad", "Pfad der gewählten Verknüpfung " & @CRLF & $pfad & "")
    EndIf
    Sleep (100)
    GUICtrlSetData($combo_progs[$i], "Verknüpfung...")
    EndSwitch
    EndIf
    Next

    Select
    Case $msg[0] = $formatieren_wichtig
    _formatieren_wichtig()

    Case $msg[0] = $formatieren_games
    _formatieren_games()

    Case $msg[0] = $formatieren_progs
    _formatieren_progs()

    Case $msg[0] = $info
    $gui_info = GUICreate ( "Infos" , 400 , 400 , 10 , 10 )
    _info()
    GUISetState(@SW_SHOW, $gui_info)

    Case $msg[0] = $GUI_EVENT_CLOSE And $msg[1] = $gui_main
    ExitLoop

    Case $msg[0] = $GUI_EVENT_CLOSE And $msg[1] = $gui_info
    GUIDelete($gui_info)

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

    EndSelect
    WEnd

    Exit

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