ico := TIcon.Create;
  ico.LoadFromFile('F:\Miscellaneous\Icon\p_pospe.ico'); 

代码如上,我想用ImageList1里的第一个图标代替'F:\Miscellaneous\Icon\p_pospe.ico' 应该怎么解决? 谢谢指教!

begin
  // ...
  ImageList1.GetIcon(0, ico); // 0 表 ImageList1 裡的第 1 個 icon
end;

--

对呀，我这么写就不对了: ico := TIcon.Create; ico.LoadFromFile(ImageList1.GetIcon(0, ico)); 就会报错,请问是为什么?

引言: 对呀，我这么写就不对了: ico := TIcon.Create; ico.LoadFromFile(ImageList1.GetIcon(0, ico)); 就会报错,请问是为什么?

您的目的到底是什麼？ ico.LoadFromFile('c:\xx.ico'); 是把 c:\xx.ico 這個 icon 檔載入至 ico 中 ImageList1.GetIcon(0, ico); 則是把 ImageList1 的第 1 個 icon 載入至 ico 中 兩個是不一樣的 另外, ImageList1.GetIcon(0, ico) 是一 procedure 而 ico.LoadFromFile 要傳入的是一個字串 兩者形態不相符, 所以不能這樣寫. --

我是把一张图片放在ImageList1 里，然后用ico.LoadFromFile去调用这张图片, 而c:\xx.ico 这么写是固定写死的,要是我C盘下没这xx.ico 那程序就要报错了，所以我想通过ico.LoadFromFile直接去调用ImageList1 里的那张图片,请教一下该怎么办?

引言: 我是把一张图片放在ImageList1 里，然后用ico.LoadFromFile去调用这张图片, 而c:\xx.ico 这么写是固定写死的,要是我C盘下没这xx.ico 那程序就要报错了，所以我想通过ico.LoadFromFile直接去调用ImageList1 里的那张图片,请教一下该怎么办?

LoadFromFile 是載入檔案的方式 而已經載入至 ImageList1 的 icon 就不能再用 LoadFromFile 的方式來取得 如果要取得 ImageList1 裡的第 1 個 icon 就用上面說的 ImageList1.GetIcon(0, ico); 的方式 這樣 ico 就會顯示 ImageList1 裡的第 1 個 icon 了. 如果您堅持要用 LoadFromFile 的方式 那就先將 ImageList1 裡要取得的 icon 存成暫存檔 再用 LoadFromFile 的方式來取得 不過想不懂為什麼您一定要用 LoadFromFile 的方式？ --

代码如下: 

   ntida.cbSize := sizeof(tnotifyicondataa); //指定ntida的长度
  ntida.Wnd := handle; //取应用程序主窗体的句柄
  ntida.uID := iid; //用户自定义的一个数值，在uCallbackMessage参数指定的消息中使
  ntida.uFlags := nif_icon   nif_tip   nif_message; //指定在该结构中uCallbackMessage、hIcon和szTip参数都有效
  ntida.uCallbackMessage := mousemsg;
//指定的窗口消息
  ico := TIcon.Create;
  ico.LoadFromFile('F:\Miscellaneous\Icon\p_pospe.ico');
  Application.Icon.Handle := ico.Handle;
  ntida.hIcon := Application.Icon.handle; //'D:\Icon\47.ico';
//指定系统状态栏显示应用程序的图标句柄
  ntida.szTip := '消息提示信息';
//当鼠标停留在系统状态栏该图标上时，出现该提示信息
  shell_notifyicona(NIM_ADD, @ntida);
//在系统状态栏增加一个新图标

我是想把这个图标放在系统状态栏上，请问如果不用ico.LoadFromFile,那应该用什么方法能动态指定图片呢?

這樣行嗎？

  // ...
  ico := TIcon.Create;
  ImageList.GetIcon(0, ico);
  //ico.LoadFromFile('F:\Miscellaneous\Icon\p_pospe.ico');
  Application.Icon.Handle := ico.Handle;
  ntida.hIcon := Application.Icon.handle; //'D:\Icon\47.ico';
  // ...

--