怎样动态改变托盘的szTip(提示)有原代码再加100分决不食言!

                            
var   
      strinfo:   String;  
   
  nid.cbSize   :=   sizeof   (nid);  
      nid.wnd   :=   Handle;  
      nid.uID   :=   1;    
      nid.uCallBAckMessage   :=   wm_IconMessage;  
      nid.hIcon   :=   Application.Icon.Handle;  
      nid.szTip   :=strinfo   ;  
      nid.uFlags   :=   nif_Message   or   nif_Icon   or   nif_Tip;  
      Shell_NotifyIcon   (NIM_MODIFY,   @nid);  
  我想让鼠标每次移到托盘图表的时候nid.uFlas显示的字符都不一样。请问怎么实现。  
  现在这句话nid.szTip   :=strinfo   ;程序也通不过!提示[Erro]   main.pas(916):    
  Incompatible   types:   'Array   and   String'  
  如果有原代码再加100分决不食言  
 

查看回复

相关问题