没有分就没有人愿意回答了吗?(0分)

没有分就没有人可以回答这个问题了吗?<br>procedure TForm1.Timer1Timer(Sender: TObject);<br>var IconData: tNotifyIconData;<br>&nbsp; &nbsp; Icon1: TIcon;<br>begin<br>&nbsp; i:=i+1; <br>&nbsp; if i&gt;4 then // 全局变量I应该小于ImageList1的图标个数。<br>&nbsp; &nbsp; i:=0;<br>&nbsp; icon1 :=TIcon.Create;<br>&nbsp; ImageList1.GetIcon(i,icon1);<br>&nbsp; IconData.cbSize := SizeOf(IconData);<br>&nbsp; IconData.wnd := Icon1.Handle;<br>&nbsp; IconData.uID := 0;<br>&nbsp; IconData.hIcon := Icon1.Handle;<br>&nbsp; IconData.uFlags := NIF_ICON;<br>&nbsp; Shell_NotifyIcon(NIM_MODIFY, @IconData);<br>&nbsp; icon1.Free;<br>&nbsp; icon1 := nil;<br>end;<br>为什么这段程序什么效果也没有?

unit Unit1;<br>interface<br>uses<br>&nbsp; Windows, Messages, SysUtils,<br>Classes, Graphics, Controls, Forms,<br>&nbsp; Dialogs,ShellAPI, StdCtrls, ImgList, ExtCtrls;<br><br>type<br>&nbsp; TForm1 = class(TForm)<br>&nbsp; &nbsp; Timer1: TTimer;<br>&nbsp; &nbsp; ImageList1: TImageList;<br>&nbsp; &nbsp; procedure FormCreate(Sender: TObject);<br>&nbsp; &nbsp; procedure FormClose(Sender: TObject; var Action: TCloseAction);<br>&nbsp; &nbsp; procedure Timer1Timer(Sender: TObject);<br>&nbsp; private<br>&nbsp; &nbsp; { Private declarations }<br>&nbsp; public<br>&nbsp; &nbsp; { Public declarations }<br>&nbsp; end;<br><br>var<br>&nbsp; Form1: TForm1;<br>&nbsp; lpDataNotifyIconData;<br>&nbsp; iICon : TICon;<br>&nbsp; i: Integer=0;<br>implementation<br><br>{$R *.DFM}<br><br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br>&nbsp; iICon := TIcon.Create;<br>&nbsp; ImageList1.GetIcon(i,iIcon);<br>&nbsp; lpData := new(PNotifyIconDataA);<br>&nbsp; lpData.cbSize := 88;<br>&nbsp; lpData.Wnd := Handle;<br>&nbsp; lpData.hIcon := iIcon.Handle;<br>&nbsp; lpData.uID :=0;<br>&nbsp; lpData.szTip := 'Samples';<br>&nbsp; lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;<br>&nbsp; Shell_NotifyIcon(NIM_ADD,lpData);<br>&nbsp; dispose(lpData);<br>end;<br><br>procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);<br>begin<br>&nbsp; lpData := new(PNotifyIconDataA);<br>&nbsp; lpData.cbSize := 88;<br>&nbsp; lpData.Wnd := Handle;<br>&nbsp; lpData.hIcon := iIcon.Handle;<br>&nbsp; lpData.uID :=0;<br>&nbsp; lpData.szTip := 'Samples';<br>&nbsp; lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;<br>&nbsp; Shell_NotifyIcon(NIM_DELETE,lpData);<br>&nbsp; dispose(lpData);<br>end;<br><br>procedure TForm1.Timer1Timer(Sender: TObject);<br>begin<br>&nbsp; Randomize;<br>&nbsp; i:=Random(7); //取得一个随机数，这里的7为ImageList1的图标个数<br>&nbsp; ImageList1.GetIcon(i,iIcon);<br>&nbsp; lpData := new(PNotifyIconDataA);<br>&nbsp; lpData.cbSize := 88;<br>&nbsp; lpData.Wnd := Handle;<br>&nbsp; lpData.hIcon := IIcon.Handle;<br>&nbsp; lpData.uID :=0;<br>&nbsp; lpData.szTip := 'Samples';<br>&nbsp; lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;<br>&nbsp; Shell_NotifyIcon(NIM_MODIFY, lpData);<br>&nbsp; dispose(lpData);<br>end;<br><br>end.<br>

谢谢,非常感谢!~~~