隐藏任务图标

var
   dwExStyle : DWORD;
begin
   dwExStyle := GetWindowLong(Application.Handle, GWL_EXSTYLE);
   dwExStyle := dwExStyle + WS_EX_TOOLWINDOW ;
   SetWindowLong(Application.Handle, GWL_EXSTYLE, dwExStyle);


显示时用
 
  SetWindowLong(Application.Handle, GWL_EXSTYLE, 256);