怎样使任务栏不出现应用程序图标？

Question

怎样使任务栏不出现应用程序图标

Answer 1

program Project1;uses
  Forms,
  Windows,
  Unit1 in 'Unit1.pas' {Form1};{$R *.res}//==========================================
//注意这几行
var
  ExtendedStyle : Integer;
begin
  Application.Initialize;
  ExtendedStyle := GetWindowLong (Application.Handle, GWL_EXSTYLE);
  SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle OR WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW);
//==========================================
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Answer 2

在FormCreate调用一个API:
ShowWindow( Application.Handle, SW_HIDE );
如果要显示则ShowWindow( Application.Handle, SW_TRUE );

Answer 3

如果要显示则ShowWindow( Application.Handle, SW_SHOW );