Hilfe bei Skript ?!

    Hi hab kurz diese Skript gebaut doch an manchen Punkten komm ich nich weiter , vieleicht hapt ihr ja ne Lösung :D
    hir zuerst das Skript is ja simpel (und unvollständig):

    Spoiler anzeigen
    [autoit]

    ;---------------------------->>>>
    #Include
    #NoTrayIcon

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

    Opt("TrayMenuMode",1)

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

    $Hinzu = TrayCreateItem("Hinzufügen")
    TrayCreateItem("")
    $Open = TrayCreateItem("Öffnen")
    TrayCreateItem("")
    $exititem = TrayCreateItem("Beenden")

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

    TraySetState()

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

    While 1
    $msg = TrayGetMsg()
    Select
    Case $msg = 0
    ContinueLoop
    Case $msg = $Hinzu
    $file = FileOpenDialog("Choose EmbedFile",@DesktopDir,"All Files (*.*)")
    Case $msg = $Open
    Run($file)
    Case $msg = $exititem
    ExitLoop
    EndSelect
    WEnd

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

    Exit;----------------------------------------->> ENDE

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


    So nun soll es so Funktionieren :
    Man klickt auf #Hinzufügen# wählt ein Pogram aus , der Name des Pograms steht da wo #Öffnen# ist .
    jetz wen man auf den Pogramnamem klickt soll es öffnen .
    Wen man jetz noch ma auf #Hinzufügen# klickt und ein 2es pogram auswehält , soll es ein neuen eintrag
    erstellen und nicht das andere Löschen wie bei mir es grad ist .
    Meine Probleme sind jetz :
    1. Wie schreibt er den Namen da rein .
    2. Wie erstellt er ein neuen eintrag ohne den anderen zu Löschen !
    so das wars Puhhhhh :rolleyes:

    Einmal editiert, zuletzt von FunH@cker (31. Mai 2009 um 16:30)

    Moin.. ungefähr so?

    Spoiler anzeigen
    [autoit]

    #Include <File.au3>
    #Include <Array.au3>

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

    Opt("TrayOnEventMode",1)
    Dim $szDrive, $szDir, $szFName, $szExt, $array[1]
    Opt("TrayMenuMode",1)

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

    $Progs = TrayCreateMenu("Programme")
    $Hinzu = TrayCreateItem("Hinzufügen")
    TrayItemSetOnEvent(-1, "_add")
    TrayCreateItem("")
    $exititem = TrayCreateItem("Beenden")
    TrayItemSetOnEvent(-1, "_Exit")
    TraySetState()

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

    While 1
    sleep(100)
    WEnd

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

    Func _add()
    $file = FileOpenDialog("Choose EmbedFile",@DesktopDir,"All Files (*.*)")
    If $file <> "" Then
    $split = _PathSplit($file, $szDrive, $szDir, $szFName, $szExt)
    $item = TrayCreateItem($split[3],$Progs)
    $array[Ubound($array)-1] = $file
    TrayItemSetOnEvent(-1, "_Run")
    _arrayAdd($array, "")
    EndIf
    EndFunc

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

    Func _Run()
    ShellExecute($array[@TRAY_ID-11])
    EndFunc

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

    Func _Exit()
    Exit
    EndFunc

    [/autoit]

    Jaaa :thumbup: Pervekt genau so wie ichs mir vorgestellt habe suuupie :) :)
    danke ChaosKeks !!!