Aplicação aparecer na barra tarefas do menu iniciar := false
Salve
Estou precisando fazer o seguinte ...
Quando minimizar minha aplicação ela nao aparecer na barra do menu iniciar .... Minha aplicação até poderia aparecer ali do lado do relogio do windows .. mas nao na barra de menu ....
Alguem sabe como eu faço isto?
Estou precisando fazer o seguinte ...
Quando minimizar minha aplicação ela nao aparecer na barra do menu iniciar .... Minha aplicação até poderia aparecer ali do lado do relogio do windows .. mas nao na barra de menu ....
Alguem sabe como eu faço isto?
Marcelo Bh
Curtidas 0
Respostas
Fabio.hc
19/12/2003
[b:07831eaa4a]Evitar que seu programa apareça na barra de tarefas[/b:07831eaa4a]
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):
}
Observações
Ao executar observe a barra de tarefas e teste o Alt+Tab (seu programa não estará lá!).
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´ ;
{$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.Ao executar observe a barra de tarefas e teste o Alt+Tab (seu programa não estará lá!).
GOSTEI 0
E-eduardo
19/12/2003
Valeu, obrigado.
GOSTEI 0