delphi 执行程序不在任务栏显示

Application.MainFormOnTaskbar := False;

procedure TForm1.FormShow(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_HIDE); //不显示在任务栏上
end;

通过上面两行代码隐藏执行程序图标。