然後詳細說明下具體實現方法
1、在user處添家乙個「shellapi」，這樣就可以代用這個api了，如：。
uses
windows, messages,...., shellapi;
2、宣告兩個常量
const
mousemsg = wm_user + 1; //自定義訊息，用於處理使用者在圖示上點選滑鼠的事件
iid = 100; //使用者自定義數值，在tnotifyicondataa型別全域性變數ntida中使用
3、宣告乙個函式
procedure mousemessage(var message: tmessage); message mousemsg;
4、宣告乙個變數
ntida:tnotifyicondataa; //用於增加和刪除系統狀態圖示
系統托盤程式設計
所謂的 托盤 在windows系統介面中，指的就是下面任務條右側，有繫 統時間等等的標誌的那一部分。二 托盤程式設計相關函式 winshellapi bool winapi shell notifyicon dword dwmessage,pnotifyicondata pnid 這個函式呢，負責向...
系統托盤程式
系統托盤程式 與系統托盤通訊的函式 shell notifyicon dword dwmessage,pnotifyicondata pnid 第乙個引數dwmessage可以取以下值 1 nim add 向托盤中加入乙個圖示 2 nim modify修改托盤中的圖示 3 nim delete 從托...
簡單實現系統托盤
使用 delphi 提供的 ttrayicon 類,兩三行程式甚至不寫程式 設計時選擇幾下 即可實現.設計時的準備工作 1 新增 ttrayicon tpopupmenu 控制項,tpopupmenu 用於托盤的右鍵選單.2 隨意給 tpopupmenu 新增些選單項.檔案 unitunit1 in...