怎样使程序不在任务栏上显示，不使用showwindow.(50分)

怎样使程序不在任务栏上显示，不使用showwindow.

procedure TForm1.FormCreate(Sender: TObject);
begin
setwindowlong(application.handle,GWL_EXSTYLE,getwindowlong(application.handle,GWL_EXSTYLE)+WS_EX_TOOLWINDOW);
end;
要想程式不在Ctrl+alt+del列表中顯示，可在項目文件中加上：
Application.Title:='';

to zxb200
不行啊，我重载CreateParams用下面的代码也不行。

procedure TfrmFloat.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.style := Params.style or WS_EX_TOPMOST or WS_EX_ToolWindow;
Params.WndParent := GetDesktopWindow;
end;

应该在oncreate事件中加一下代码

SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);