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

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.