如何在闪屏任务栏中不显示图标

Question

我正在使用this question中的代码在Delphi语言中创建一个闪屏。

它看起来像这样：

begin

  SplashForm := TSplashForm.Create(nil)

  Application.Initialize;

  //create your forms, initialise database connections etc here
  Application.CreateForm(TForm1, Form1);

  if Assigned(SplashForm) then
    SplashForm.OkToClose := True;

  Application.Run;

end.

出于技术原因，在我保存的项目文件中

Application.MainFormOnTaskbar := False;

发生的情况是，在启动屏幕的任务栏中显示一个图标，然后随着启动屏幕的关闭，该图标消失，然后该图标在任务栏中重新出现(对于主窗体)。

如何防止在显示闪屏/窗体时显示图标？(这样，当显示主窗体时，该图标将只显示一次)。

Answer 1

感谢@Sertac将我引向与this相关的问题。覆盖CreateParams对我没有帮助，然而，下面的答案起作用了：

来源：http://www.scalabium.com/faq/dct0096.htm

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_HIDE);
  SetWindowLong(Application.Handle, GWL_EXSTYLE,
    GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
  ShowWindow(Application.Handle, SW_SHOW);
end;