我的ICON怎么不能加载到任务栏中的状态栏呢？(附代码)

Question

代码如下：
procedure TfmMain.FormCreate(Sender: TObject);
var
    NewItem:TListItem;
begin
  nd0.cbSize := sizeof(NotifyIconData);
  nd0.Wnd := handle;
  nd0.uID := 0;
  nd0.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
  nd0.uCallbackMessage := WM_TRAYNOTIFY;
  nd0.hIcon:= LoadIcon(hInstance,'Icon0');
  StrPLCopy(nd0.szTip,'Hello!', 63);  //hs[0]:=LoadIcon(hInstance,'ico');
  Shell_NotifyIcon(NIM_ADD,@nd0);程序运行时任务栏的状态栏可以看出来有东西，可是却不能加上我想加的图标,请高手指导!
谢谢!

Answer 1

如果是想通过LoadIcon(hInstance,'Icon0');取得应用程序图标，那么直接：
nd0.hIcon:= Application.Icon.Handle;
就可以了。
如果是从编译到应用程序的资源中取得图标，请确保'Icon0'为该图标的名字（注意大小写）。————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————