Application - Esconder icone da barra

var

   H : HWnd;

begin

     H := FindWindow(Nil,'Project1');

     if H <> 0 then ShowWindow(H,SW_HIDE);

end;

--------------- PARA Win2000 ----------------------

program Project1;

uses

  Windows,

  Forms,

  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

var

  ExtendedStyle: integer;

begin

  Application.Initialize;

  // Following line hides from Task Manager

  Application.Title := '';

  // Following hides from Task Bar

  ExtendedStyle := GetWindowLong(Application.Handle,GWL_EXSTYLE);

  SetWindowLong(Application.Handle,GWL_EXSTYLE,

                ExtendedStyle or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);

  Application.CreateForm(TForm1, Form1);

  Application.Run;

end.