Delphi 2010/XE下隱藏程序在系統任務欄的圖標

以前的代碼不能用。貌似在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;