托盘

Question

  IconData.hIcon:=LoadIcon(HInstance, 'ag ');   资源中没有'ag '这个资源。提示：注意你后面是不是多了一个空格？
  你改成Application.Icon.Handle，看看能不能出来？

Answer 1

我只是想了解 Window Api

Answer 2

你的消息错了,自定义的消息不能出现在 wndproc 里,你需要写一个对于自定义消息的处理过程
 procedure   mymessage(var   Message:TMessage);messages wm_mymessage;

Answer 3

WM_MYMESSAGE=WM_USER+$100; 
放在 interface 里

Answer 4

IconData.uFlags:=NIF_MESSAGE+NIF_Icon+NIF_TIP;