setwindowlong(application.Handle ,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
这句代码在delphi2009下没有发挥其作用,delphi2009如何使其程序在工作列下不显示?

step1
project.dpr

[code delphi]
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}

begin
Application.Initialize;
Application.MainFormOnTaskBar := False; // 重點一
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
[/code]
step2
unit1.pas

[code delphi]
procedure TForm1.FormShow(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
end;

[/code]
參考資料
http://delphi.about.com/od/delphitips2008/qt/hide_taskbutton.htm

------
努力會更接近成功

谢谢二楼的,你的方法是正解!!
我也发现一种方法也可以:
program Project1;
uses
Forms, windows,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := false;
Application.CreateForm(TForm1, Form1);
SetWindowLong(application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
Application.Run;
end.

編輯記錄