Tray check, startup

[Vegar]

Hello

I want to make a function that if make a trayitem that i could "check". and if it is checked it i want the script to start on evry startup until i uncheck it.

$checkitem = TrayCreateItem("Checked")

$exititem = TrayCreateItem("Exit")

TraySetState()

While 1

$msg = TrayGetMsg()

Select

Case $msg = 0

ContinueLoop

Case $msg = $checkitem

TrayItemSetState($checkeditem,$TRAY_CHECKED)

Case $msg = $exititem

ExitLoop

EndSelect

WEnd

Exit

i gues i have to use this line in some way??

RegWrite ("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "myscript000", "REG_SZ", @ScriptFullPath)

[Valuater]

This is how I handle that

expandcollapse popup

Opt("TrayMenuMode", 1)

Global $StartUp = IniRead(@ScriptDir & "Settings.ini", "Settings", "StartUp", "off")

$checkitem = TrayCreateItem("Run @StartUp = " & $StartUp)
$exititem = TrayCreateItem("Exit")

TraySetState()

While 1
    $msg = TrayGetMsg()
    Select
        Case $msg = 0
            ContinueLoop
        Case $msg = $checkitem
            StartUp()

        Case $msg = $exititem
            ExitLoop
    EndSelect
WEnd

Exit

; Functions

Func StartUp()
    If $StartUp = "Off" Then
        $StartUp = "On"
        TrayItemSetText($checkitem, "StartUp = " & $StartUp)
        ; set the shortcut here
    Else
        $StartUp = "Off"
        TrayItemSetText($checkitem, "StartUp = " & $StartUp)
        ; remove the shortcut here
    EndIf
EndFunc   ;==>StartUp

Except I always use On-Event-Mode for the tray

8)

[Hawkwing]

You pretty much already had it.

$checkitem  = TrayCreateItem("Checked")
$exititem    = TrayCreateItem("Exit")

TraySetState()

While 1
    $msg = TrayGetMsg()
    
    Select
        Case $msg = 0
            ContinueLoop
        Case $msg = $checkitem
            TrayItemSetState($checkeditem,$TRAY_CHECKED)
            RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "myscript000", "REG_SZ", @ScriptFullPath)
        Case $msg = $exititem
            ExitLoop
    EndSelect
WEnd

Exit

[Valuater]

You pretty much already had it.

$checkitem  = TrayCreateItem("Checked")
$exititem    = TrayCreateItem("Exit")

TraySetState()

While 1
    $msg = TrayGetMsg()
    
    Select
        Case $msg = 0
            ContinueLoop
        Case $msg = $checkitem
            TrayItemSetState($checkeditem,$TRAY_CHECKED)
            RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "myscript000", "REG_SZ", @ScriptFullPath)
        Case $msg = $exititem
            ExitLoop
    EndSelect
WEnd

Exit

... and to "Uncheck" ???

8)

EDIT:

Generally, I do not like people going into my registry and putting crap in there. With the code I gave you, I place a shortcut in the startup folder. There is no need to write to the registry.

Edited May 27, 2009 by Valuater

[Hawkwing]

Oops! I didn't look through the whole thing. I went back and did it my own way.

#Include <Constants.au3>

Opt("traymenumode", 1)
Opt("trayoneventmode", 1)

$checkitem= TrayCreateItem("Checked", -1, -1, 1)
TrayItemSetOnEvent(-1, "editregistry")
$exititem= TrayCreateItem("Exit")
TrayItemSetOnEvent(-1, "end")
$checked = "false"
TraySetState()

While 1
    Sleep(100)
WEnd

Func editregistry()
    If $checked = "false" Then
        $checked = "true"
        TrayItemSetState($checkitem, $TRAY_UNCHECKED)
        RegDelete("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "myscript000")
    ElseIf $checked = "true" Then
        $checked = "false"
        TrayItemSetState($checkitem, $TRAY_CHECKED)
        RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "myscript000", "REG_SZ", @ScriptFullPath)
    EndIf
EndFunc

Func end()
    Exit
EndFunc

Though I do agree that shortcuts in the startup folder are better. I hate having to go into the registry to stop some stupid program from running on startup.

[MrCreatoR]

You don't have to use a variable to check the state (look here, i also thought that we need to):

#include <Constants.au3>

Opt("TrayMenuMode", 3)
Opt("TrayOnEventMode", 1)

$CheckItem = TrayCreateItem("Checked")
TrayItemSetOnEvent(-1, "EditRegistry")
$ExitItem = TrayCreateItem("Exit")
TrayItemSetOnEvent(-1, "End")

TraySetState()

While 1
    Sleep(100)
WEnd

Func EditRegistry()
    If BitAND(TrayItemGetState($CheckItem), $TRAY_CHECKED) <> $TRAY_CHECKED Then
        TrayItemSetState($CheckItem, $TRAY_CHECKED)
        ;RegDelete("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "myscript000")
    Else
        TrayItemSetState($CheckItem, $TRAY_UNCHECKED)
        ;RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "myscript000", "REG_SZ", @ScriptFullPath)
    EndIf
EndFunc

Func End()
    Exit
EndFunc