【Delphi 开箱即用 6】应用程序在任务栏中更换ico图标

当一个程序同时打开多个窗口时，任务栏中的图标往往是一样的，导致很难快速辨别哪个程序正常运行，哪个程序可能出现了BUG。为了更好地区分不同的窗口，使用不同的图标（ICO文件）是一个有效的解决方案。上面的动态图演示了一个例子：通过更换窗口左上角的ICO图标，任务栏中的图标也会同步更新，这样用户就能轻松辨识每个窗口的状态。

核心代码：

procedure SetAppIcon( Icon : hIcon ); stdcall;
beginif (Icon > 0) thenApplication.Icon.Handle := Icon;
end;procedure TForm1.Button1Click(Sender: TObject);
varIcon: HICON;
beginIcon := LoadIcon(HInstance, 'heart_blue_48');SetAppIcon(Icon);
end;procedure TForm1.Button2Click(Sender: TObject);
varIcon: HICON;
beginIcon := LoadIcon(HInstance, 'heart_green_48');SetAppIcon(Icon);
end;

Demo下载：
https://download.csdn.net/download/gust2013/90250415