Delphi 2010/XE下隐藏程序在系统任务栏的图标

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