Fórum Aplicação aparecer na barra tarefas do menu iniciar := false #202124
19/12/2003
0
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
Curtir tópico
+ 0
Responder
Posts
19/12/2003
Fabio.hc
[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á!).
Responder
Gostei + 0
17/04/2004
E-eduardo
Valeu, obrigado.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)