如何让程序在任务栏中显示,就象qq一样!(100分)

  • 主题发起人 主题发起人 wood_ke
  • 开始时间 开始时间
W

wood_ke

Unregistered / Unconfirmed
GUEST, unregistred user!
如何让程序在任务栏中显示,就象qq一样!最好有一个例子,谢谢<br>可以qq28274903
 
procedure TForm1.FormCreate(Sender: TObject);<br>var<br>&nbsp; nia: TNotifyIconDataA;<br>begin<br>&nbsp; nia.cbSize := SizeOf(TNotifyIconDataA);<br>&nbsp; nia.Wnd := Handle;<br>&nbsp; nia.uFlags := NIF_TIP;<br>&nbsp; nia.szTip := 'abcd';<br>&nbsp; Shell_NotifyIcon(NIM_ADD,@nia);<br>end;<br>uses ShellAPI,做漂亮点,加个icon,增加菜单,处理些消息,无非就这个函数和这个函数相关的几个消息
 
用CoolTrayIcon控件!盒子上有。<br>有例子。
 
看Delphi 源代码有(Socket)
 
用CoolTrayIcon控件!盒子上有。<br>这个组件可以解决你的问题
 
建议用Cnpack。
 
楼上知道CnPack是干嘛的么?
 
不就是个托盘吗
 
地质灾害说的可能是CnPack IDE 专家包。<br>但CnPack 组件包中有个 CnTrayIcon 确实能做到这一点。
 
后退
顶部