Delphi 10.4.2最小化程序致资源管理器导航栏及复制粘贴异常求助

使用Delphi 10.4.2开发的程序，启动时通过以下代码实现延迟最小化：

const
  WM_DELAYED_MINIMISE = WM_USER + 300;

procedure TMain.FormShow(Sender: TObject);
begin
  PostMessage(self.Handle,WM_DELAYED_MINIMISE,0,0);
end;

procedure TMain.DelayedMinimise(var Msg: TMessage);
begin
  Main.WindowState:=TWindowState.wsMinimized;

  Timer1.Enabled:=true;
end;

程序窗体上配置了ProgressState为Normal的TTaskBar组件，执行操作时通过以下代码更新进度：

barTask.ProgressValue:=0;
barTask.ProgressMaxValue:=pbStatus.Max;

pbStatus.Position:=i;
barTask.ProgressValue:=pbStatus.Position;
Application.ProcessMessages;

程序运行正常，但在Windows 2012和Windows 10系统中运行数天后，出现资源管理器导航栏错乱、复制粘贴功能失效的问题，请问问题出在哪里？

• 滥用Application.ProcessMessages：循环里频繁调用这个方法会打乱VCL消息队列的正常处理逻辑，长期运行后会干扰系统级消息的处理流程——它会强制处理所有待处理的Windows消息，包括不属于当前应用的消息，时间久了就会引发系统资源或消息队列紊乱，进而影响资源管理器这类依赖系统消息的进程。
• TTaskBar组件未正确收尾：操作结束后没有重置TTaskBar的进度状态（比如设置ProgressState为None），长期运行会持续占用任务栏相关的系统资源，导致资源管理器与任务栏交互时出现异常。
• 延迟最小化的潜在隐患：虽然自定义消息的写法本身问题不大，但如果窗体状态变化时存在未同步的逻辑，可能会累积消息队列异常，但这不是引发资源管理器问题的主因，主要还是前两个因素的叠加。

解决建议：

1. 删掉循环中的Application.ProcessMessages，改用TThread后台线程处理耗时操作，通过线程安全的方式（比如Synchronize或Queue）更新UI和任务栏进度，避免阻塞主线程的消息队列。
2. 每次操作完成后，必须将barTask.ProgressState设置为None，释放任务栏占用的系统资源。
3. 延迟最小化逻辑可以直接在FormShow里启动TTimer，设置好延迟时间后执行最小化，比自定义消息更直观，也能避免潜在的消息同步问题。

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