Application - Invisivel mas rodando

Top  Previous  Next

Como evitar que seu programa apareça na barra de tarefas?

Inclua na seção uses: Windows

 

{ Você já observou a caixa "Propriedades", aquela que mostra

  as propriedades de um arquivo no Windows Explorer, não

  aparece na lista do Alt+Tab e tampouco na barra de tarefas?

 

  Isto ocorre porque ela funciona como uma ToolWindow, enquanto

  os demais aplicativos funcionam como AppWindow. Porém podemos

  mudar o comportamento de nossos programas feito em Delphi

  para que se comportem como uma ToolWindow também.

 

  Para experimentar, crie um novo projeto e altere o

  Project1.dpr como abaixo (não esqueça do uses): 

}

 

program Project1;

 

uses

  Forms, Windows,

  Unit1 in 'Unit1.pas' {Form1};

 

{$R *.RES}

 

var

  ExtendedStyle : Integer;

begin

  Application.Initialize;

 

  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.