delphi - 如何更改任务栏中的应用程序图标 Delphi 2010

Question

我使用自己的图标（32x32 16bit EGA）更改了我的应用程序的图标：

Project > Option > Applications > Load Icon

任务栏中的图标在许多边框样式中变化得非常好：= bsNone 或 bsSingle 或 bsSizeable 或 bsSizeToolWin 或 bsToolWindow。但是当我使用 BorderStyle := bsDialog 时，图标没有改变。

请不要告诉我使用：

Application.Icon.LoadFromFile(extractfilepath(application.exename) + '\myicon.ico');

因为我只想提交一个 EXE 文件。

PS：我使用 Embarcadero Delphi 2010

Answer 1

该图标是与任务栏按钮关联的窗口的图标。因此，将 Application.MainFormOnTaskbar 设置为 True，它就是主窗体图标。False 时为应用程序隐藏窗口的图标。因此，要在主窗体上的任务栏上有不同的图标，您需要 MainFormOnTaskbar 为 False，并为 Application.Icon 分配不同的图标。这似乎是解决该问题的简单方法。

如果我记得 VCL 只设置一种尺寸的图标。根据我的经验，最好自己正确地完成这项工作并直接发送 WM_SETICON 消息来设置小图标和大图标。

至于您的图标所在的位置，请将它们作为资源链接到您的可执行文件。我避免使用图像列表，因为我失去了对原始 .ico 文件的控制，但这可能只是我很挑剔。如果您愿意，请随意使用图像列表。