论坛 › 已解决问题区 › 如何把我这个源码做成带托盘图标？

cjmbbbbb 发表于 2009-6-21 23:40:54

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

本帖最后由 cjmbbbbb 于 2009-6-22 00:17 编辑

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


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


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

cjmbbbbb 发表于 2009-6-22 00:16:42

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


#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 发表于 2009-10-24 20:05:20

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

查看完整版本: 如何把我这个源码做成带托盘图标？