Application - Esconder icone da barra

Top  Previous  Next

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.