在程序运行中修改托盘图标 (100分)

请各位帮忙：<br>&nbsp; &nbsp; 小弟近日正在做一程序，用到系统托盘，如何在运行中使程序的托盘图标随意更换，有帮忙源码<br>或提示，马上给分。

WINSHELLAPI BOOL WINAPI Shell_NotifyIcon(<br>&nbsp; &nbsp; DWORD dwMessage, // message identifier<br>&nbsp; &nbsp; PNOTIFYICONDATA pnid // pointer to structure<br>&nbsp; &nbsp; <br>参数说明：<br>&nbsp;dwMessage<br>&nbsp; 向系统发出的对任务条状态区图标的控制消息，可以为以下三个值：<br>&nbsp; NIM_ADD 向任务条状态区添加图标.<br>&nbsp; NIM_DELETE 删除任务条状态区的图标.<br>&nbsp; NIM_MODIFY 更换任务条状态区的图标. <br>&nbsp;pnid<br>&nbsp; 指向记录型数据NOTIFYICONDATA的指针.<br><br>返回值：成功则返回非零值，失败则返回零值。<br><br>typedef struct _NOTIFYICONDATA { <br>&nbsp; &nbsp; DWORD cbSize; <br>&nbsp; &nbsp; HWND hWnd; <br>&nbsp; &nbsp; UINT uID; <br>&nbsp; &nbsp; UINT uFlags; <br>&nbsp; &nbsp; UINT uCallbackMessage; <br>&nbsp; &nbsp; HICON hIcon; <br>&nbsp; &nbsp; char szTip[64]; <br>} NOTIFYICONDATA, *PNOTIFYICONDATA;

var<br>&nbsp; FIconData: TNotifyIconData; &nbsp;//系统托盘图标<br>//////改图标<br>&nbsp; Application.Icon.LoadFromFile('aaa.ICO');<br>&nbsp; FIconData.hIcon := Application.Icon.Handle;<br>&nbsp; Shell_NotifyIcon(NIM_MODIFY, @FIconData);<br>

多人接受答案了。