如何把我这个源码做成带托盘图标？

cjmbbbbb

如题，先出示我的源码，是一个循环检测再调用程序的：

#NoTrayIcon
While 1
        If WinExists("请输入资料") And ProcessExists("Fill.exe") = 0 Then
                RunWait(@ScriptDir&"\Fill.exe")
        EndIf
        Sleep(2000)
WEnd

我想实现的是，给它加一个托盘图标，易于操作，因为它没有图形界面......
请赐教啊！！！

cjmbbbbb

唉，真是不如信自己，解决了！

#NoTrayIcon
#Include <Constants.au3>

Opt("TrayMenuMode", 1)
Opt("trayOnEventMode", 1) 

$g_szVersion = "Filler"
If WinExists($g_szVersion) Then Exit
AutoItWinSetTitle($g_szVersion)

$aboutitem = TrayCreateItem("关于")
TrayItemSetOnEvent($aboutitem, "TrayMsg") 
TrayCreateItem("")
$exititem = TrayCreateItem("退出")
TrayItemSetOnEvent($exititem, "TrayMsg") 

TraySetState()

While 1
        If WinExists("请输入资料") And ProcessExists("Fill.exe") = 0 Then
                RunWait(@ScriptDir&"\Fill.exe")
        EndIf
        Sleep(2000)
WEnd

Func TrayMsg()
        Switch @TRAY_ID
                Case $aboutitem
                        MsgBox(64, "关于程序", "我填！")
                Case $exititem
                        Exit
        EndSwitch
EndFunc

316428696

如果是有界面的如何叫它显示！