Delphi 10.3程序在Win11任务栏无法显示运行时指定图标

你的代码在Win7/8/10系统中正常生效，但Win11下任务栏始终显示默认图标，核心原因是Win11对任务栏图标的管理更依赖应用程序用户模型ID（AppUserModelID），默认Delphi程序的AppUserModelID固定，导致系统缓存了默认图标，即便修改Application.Icon也无法触发更新。以下是具体解决步骤：

1. 为每个企业实例设置唯一的AppUserModelID #

Win11通过AppUserModelID关联任务栏图标与应用实例，相同ID的实例会共享图标缓存。你需要根据当前连接的企业设置唯一ID，确保不同企业的实例被系统识别为独立应用。

实现时需引用ShellAPI单元，在设置图标前调用SetCurrentProcessExplicitAppUserModelID：

procedure TFrmMain.FormCreate(Sender: TObject);
var
  IcoFile: string;
  AppID: WideString;
begin
  Application.Title := DBCompany + ' ' + Application.Title;
  
  // 设置唯一的AppUserModelID，可根据实际情况调整命名规则
  AppID := 'YourCompany.' + DBCompany + '.YourAppName';
  SetCurrentProcessExplicitAppUserModelID(PWideChar(AppID));

  IcoFile := CompanyIconFile;
  if FileExists(IcoFile) then
  begin
    Application.Icon.LoadFromFile(IcoFile);
    Self.Icon.LoadFromFile(IcoFile);
  end;
end;

2. 延迟图标加载时机 #

FormCreate事件触发过早，此时Win11可能已完成任务栏图标的初始绑定。可将图标加载逻辑移至FormShow事件（仅执行一次）：

private
  FIconLoaded: Boolean; // 新增布尔变量标记图标是否已加载
procedure TFrmMain.FormShow(Sender: TObject);
var
  IcoFile: string;
begin
  if not FIconLoaded then
  begin
    IcoFile := CompanyIconFile;
    if FileExists(IcoFile) then
    begin
      Application.Icon.LoadFromFile(IcoFile);
      Self.Icon.LoadFromFile(IcoFile);
    end;
    FIconLoaded := True;
  end;
end;

3. 强制通知系统刷新图标 #

修改图标后，调用SHChangeNotify强制系统更新任务栏图标缓存：

// 在加载图标后添加以下代码（需引用ShellAPI单元）
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);

额外验证要点 #

• 确保CompanyIconFile指向的图标路径正确，且图标支持Win11推荐尺寸（至少256x256像素的ICO/PNG格式）；
• 若程序以管理员权限运行，需确认图标文件所在目录有读取权限。

内容的提问来源于stack exchange，提问作者Heinzi Tuberkel