Traymenu funktion

  • Hiho,
    Ich werd hier bald verrück, da das alles nicht so funktioniert wie ich will...
    Ich hab auch schon die suche benutzt etc, allerdings ist da bisher noch nicht das beigewesen, was mich wirklich weiterbringt.
    Daher mach ich jetzt mal nen thread auf...

    ich bin sicher, dass ihr das in 5 min löst, warum ich kein item ausm traymenu benutzen kann. wenn ich draufklicke passiert nix.

  • Hallo

    versuchs doch so:

    Spoiler anzeigen
    [autoit]

    Opt("TrayMenuMode", 1) ; Standard Traymenüeinträge (Skript pausieren/beenden) werden nicht angezeigt.
    Opt("TrayIconHide", 0)

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

    $odir = "c:\DeinPfad"
    $oparameter = 1

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

    Oberflaeche()
    Func Oberflaeche()

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

    ;"buttons fürs gui"

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

    $tstart = TrayCreateItem("Start TF2")
    TrayCreateItem("")
    $tcut = TrayCreateItem("Cut")
    $tuncut = TrayCreateItem("Uncut")
    TrayCreateItem("")
    $topen = TrayCreateItem("Öffnen")
    $tclose = TrayCreateItem("Beenden")

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

    ;GUISetState(@SW_SHOW)
    TraySetState()
    While 1
    ;$msg = GUIGetMsg()
    $tmsg = TrayGetMsg()

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

    ;Select

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

    ;"Aufrufe für das gui."

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

    ;EndSelect
    Switch $tmsg
    case 0
    ContinueLoop
    Case $topen
    GUISetState(@SW_SHOW)
    GUISetState(@SW_RESTORE)
    Opt("TrayIconHide", 1)
    Case $tclose
    If FileExists($odir & "\Blutpatch\ClientRegistry.blob") Then
    FileMove($odir & "\Blutpatch\ClientRegistry.blob", $odir & "\", 1)
    EndIf
    Exit

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

    Case $tcut
    MsgBox(0, "", "Cut")
    FileMove($odir & "\Blutpatch\ClientRegistry.blob", $odir & "\", 1)

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

    Case $tuncut
    MsgBox(0, "", "UnCut")
    If FileExists($odir & "\Blutpatch\ClientRegistry.blob") Then
    FileMove($odir & "\Blutpatch\ClientRegistry.blob", $odir & "\", 1)
    EndIf
    FileMove($odir & "\ClientRegistry.blob", $odir & "\Blutpatch\", 8)

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

    Case $tstart
    MsgBox(0, "", "Start")
    ShellExecute($odir & "\Steam.exe", "-applaunch 440 " & $oparameter)
    EndSwitch
    WEnd
    EndFunc ;==>Oberflaeche

    [/autoit]

    mfg (Auto)Bert

  • hmm, danke für den hinweis mit dem

    Code
    Opt("TrayOnEventMode",1)

    genau das war der fehler.
    danke auch dir bert für den hinweis. wird sicherlich auch funktionieren, da du auch das mit dem event mode nicht drin hast.

    danke euch beiden, es funktioniert! war mal wieder ein banaler fehler.