匿名使用者 1級 2013-09-09 回答

var nid：TNotifyIconData；begin nid。cbSize：=sizeof（nid）； nid。Wnd：=Handle； nid。uID：=0； nid。hIcon：=application。Icon。Handle； nid。uCallbackMessage：=MY_MESSAGE； nid。szTip：=‘*****’； nid。uFlags：=NIF_ICON or NIF_TIP or NIF_MESSAGE； if not Shell_NotifyIcon（NIM_ADD，@nid） then begin application。MessageBox（‘找不到Shell32。dll檔案！’，‘警告’，MB_OK+MB_ICONWARNING）； end；

匿名使用者 1級 2013-09-09 回答

win32api中Shell_NotifyIcon

匿名使用者 1級 2013-09-09 回答

當然還要把Application的主窗體的顯示屬性設定為False

匿名使用者 1級 2013-09-09 回答

本人慾編一法度榜樣，使起監測計算機狀況，但若何是之執行時像輸入法那樣在狀況欄佔一個小擱筆而不是像通俗法度榜樣那樣僅是最小化罷了

匿名使用者 1級 2013-09-09 回答

搜刮一下，評論辯論過很多遍了。

匿名使用者 1級 2013-09-09 回答

看這個貼子http：//www。csdn。net/expert/TopicView。asp？id=68637