让程序不在任务栏小按钮显示

program Project1; uses   Forms,   Windows,   Unit1 in 'Unit1.pas' {Form1},   Unit2 in 'Unit2.pas' {Form2}; {$R *.res} begin   Application.Initialize;   Application.ShowMainForm := False;   Application.MainFormOnTaskBar := False;   Application.CreateForm(TForm1, Form1);   Application.CreateForm(TForm2, Form2);   Form2.Show;   Application.Run; end. unit Unit2; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs; type   TForm2 = class(TForm)     procedure FormCreate(Sender: TObject);     procedure FormShow(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form2: TForm2; implementation {$R *.dfm} procedure TForm2.FormCreate(Sender: TObject); begin   showwindow(application.handle,sw_hide); end; procedure TForm2.FormShow(Sender: TObject); begin showwindow(application.handle,sw_hide); end; end.