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分决不食言