Delphi 2007程序启动时最小化（不使用托盘），任务栏无图标求解决方法

我之前在Delphi 2007里折腾过这个看似简单的问题，一开始也踩了和你一样的坑——直接设置Application.ShowMainForm := false确实会让主窗体彻底“隐身”，连任务栏图标都没了，完全不符合需求。

问题根源在于：Application.ShowMainForm := false会跳过主窗体的自动显示流程，而MainFormOnTaskBar := true需要主窗体正常创建并完成与任务栏的关联，才能生成对应的图标。所以核心是要让主窗体处于已创建、最小化、关联任务栏的状态，而非直接阻止它显示。

下面是两种亲测有效的解决方法：

方法一：在主窗体OnCreate事件中控制状态 #

这种方式逻辑清晰，把窗体状态的控制放在窗体自身的事件里，便于维护：

1. 确保在.dpr文件中开启MainFormOnTaskBar：

begin
  Application.Initialize;
  Application.MainFormOnTaskBar := True; // 必须开启，让主窗体关联任务栏
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.

2. 打开主窗体的OnCreate事件，添加以下代码：

procedure TMainForm.FormCreate(Sender: TObject);
begin
  // 先设置最小化状态，再确保窗体可见
  WindowState := wsMinimized;
  Visible := True;
end;

方法二：直接在.dpr文件中一次性配置 #

如果你习惯在项目入口统一控制，可以这么写：

begin
  Application.Initialize;
  Application.MainFormOnTaskBar := True;
  Application.ShowMainForm := False; // 暂时阻止自动显示
  Application.CreateForm(TMainForm, MainForm);
  
  // 先设置最小化状态，再手动显示窗体，触发任务栏图标生成
  MainForm.WindowState := wsMinimized;
  MainForm.Show;
  
  Application.Run;
end.

关键注意点 #

• 必须开启Application.MainFormOnTaskBar := True：这是Delphi 2006+引入的属性，用来让主窗体直接对应任务栏按钮，替代旧版本通过Application句柄关联的方式，开启后才能保证最小化时任务栏保留图标。
• 不能只靠WindowState := wsMinimized：如果不确保窗体处于可见状态，Delphi可能不会触发任务栏图标的创建流程，所以需要显式设置Visible := True或调用Show方法。

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