我的托盘程序在WINDOWS98上不能转换图标？

Question

procedure TForm1.changeico(i:string);
var ii:TNotifyIconData;iii:ticon;
begin                begin
                iii:=TIcon.Create;
                iii.LoadFromFile(i);
                ii.Wnd:=Handle;
                ii.uID:=WM_USER+1;
                ii.hIcon:=iii.Handle;
                ii.uCallbackMessage:=WM_USER+2;
                ii.uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;
                Shell_NotifyIcon(NIM_MODIFY,@ii);
                end;end;
以上是我转换托盘图标的过程，在WIN2000，WINXP可以正常动态改变图标，可是在WIN98运行没法改变图标，请教如何？

Answer 1

handle  句柄取的对不对？？

Answer 2

ii.Wnd:=Handle; 错了
你取的是APP的HANDLE 
必须取ii.Wnd := IconImage.Picture.Icon.handle;
或者其他图象文件的HANDLE