感谢来如风热心指点!关于托盘显示问题,谁能点化我?在线等待! (220分)

这是定义好的数据结构呀<br>你要用到这个结构，但不要你定义的<br>你的aa就是这个类型的<br><br>你所需要的就是在每次需要改变提示时<br>var<br>&nbsp; aTip:String;<br><br>StrLCopy(@(aa.szTip[0]),PChar(aTip),SizeOf(aa.szTip)-1);<br>Shell_NotifyIcon(NIM_MODIFY, @aa);<br>

zjan521, <br>&nbsp; 我按你提示,改了,通过了编译,鼠标移在上面无提示；<br>麻烦你，把timer一整句发过来，我试试！！<br>

{procedure TForm1.Timer1Timer(Sender: TObject);<br>var tipinfo,info:string;<br>begin<br>myregistry:=Tregistry.Create;<br>&nbsp;MyRegistry.RootKey:=HKEY_LOCAL_MACHINE;<br>&nbsp;try<br>&nbsp;if MyRegistry.OpenKey('/SOFTWARE/d-ok',True)<br>&nbsp; then tnnd:= '现在数据是:'+inttostr(MyRegistry.Readinteger('tnnd'));<br>&nbsp; finally<br>&nbsp; MyRegistry.Free;<br>&nbsp;end;<br><br>&nbsp;{这里如何显示tnnd值,请高人点化}<br><br>[red]StrLCopy(@(aa.szTip[0]),PChar(tnnd),SizeOf(aa.szTip)-1);<br>Shell_NotifyIcon(NIM_MODIFY, @aa);[/red]<br><br>end;}<br><br>你把定时器的时间间隔先设大一些，比如30秒，再试

多人接受答案了。