Delphi中如何制作系统托盘程序？

Question

Delphi中如何实现当应用程序最小化时，程序图标在任务栏的系统托盘位置显示，请高手帮助!

Answer 1

自己去查查windows api 
好象是什么notify还是叫什么的函数吧

Answer 2

var
  nid:Tnotifyicondata;
begin
  nid.cbSize:=sizeof(Tnotifyicondata);
  nid.Wnd:=Handle;
  nid.uID:=0;
  nid.uFlags:=nif_message or nif_icon or nif_tip;
  nid.uCallbackMessage:=wm_icon1;
  nid.hIcon:=application.Icon.Handle;
  nid.szTip:='你好';
  shell_notifyicon(nim_add,@nid);
//其中要定义一个消息wm_icon1,
//在uses中加入shellapi

Answer 3

trayicon控件有小毛病
不过要实现你要求也算可以了

Answer 4

请问 如何定义一个消息呢？？如WM_iconl