以前的代码不能用。貌似在Delphi2010后就开始不行了,搜索了一下,得到办法:
 
1 修改工程文件添加一句:Application.MainFormOnTaskbar := False;
 
2 在主窗体的 OnShow 事件中写下
 
var
Style: Integer;
begin
Style := GetWindowLong(Handle, GWL_EXSTYLE);
SetWindowLong(Handle, GWL_EXSTYLE, Style and (not WS_EX_APPWINDOW));
 
ShowWindow(Application.Handle, SW_HIDE);
end;