如何不让窗口在任务栏显示？SETWINDOWLOG不好使！

Question

D7 +XP 已经在工程下加入代码
Application.Initialize;
  SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(Tfrmlock, frmlock);  Application.Run;
但会出现如图效果，出现一个标题栏在任务栏上方！

Answer 1

加个CoolTrayIcon可以达到你的需求。

Answer 2

你是不是要这样的效果？program Project1;uses
  Forms, Windows,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
  Application.Initialize;
  Application.Title := '';
  SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
  Application.CreateForm(TForm1, Form1);
  //Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

Answer 3

/////////////////////////项目文件代码
program Project6;uses
  ExceptionLog,
  Forms, Windows,
  Unit5 in 'Unit5.pas' {Form5};{$R *.res}
begin  Application.Initialize;
  Application.MainFormOnTaskbar := false;//这句
  Application.CreateForm(TForm5, Form5);
  Application.Run;
end./////////////////////////主窗体
procedure TForm5.FormPaint(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_HIDE)
end;procedure TForm5.FormShow(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_HIDE)
end;

Answer 4

首先SetWindowLong应当这样用：
SetWindowLong(Application.Handle,GWL_EXSTYLE, GetWindowLong(Application.Handle,gwl_exstyle) or WS_EX_TOOLWINDOW);其次，站在资源管理器的立场想想，任务栏已经不能有程序的按钮了，你再把窗口最小化，那就只好把程序的按钮放在其他地方了，总不能让窗口彻底不见了吧？只是最小化阿。